InícioAmigos.
É possível fazer o processo inverso? Salvar no HD uma imagem incorporada em um objeto picture?
Cumprimentos.
É possível fazer o processo inverso? Salvar no HD uma imagem incorporada em um objeto picture?
Cumprimentos.
[Resolvido]Salvar como JPG imagem incorporada em Objeto Picture
Convidado- Convidado
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
- Mensagem nº2
![[Resolvido]Salvar como JPG imagem incorporada em Objeto Picture Empty](https://2img.net/i/empty.gif)
Re: [Resolvido]Salvar como JPG imagem incorporada em Objeto Picture
Avelino Sampaio 28/8/2013, 10:10
Olá!
Eu uso o SaveToFile para extrair arquivos de campo tipo anexo. Experimente para o seu caso.
http://www.usandoaccess.com.br/tutoriais/tuto23.asp?id=1#inicio
Sucesso!
Eu uso o SaveToFile para extrair arquivos de campo tipo anexo. Experimente para o seu caso.
http://www.usandoaccess.com.br/tutoriais/tuto23.asp?id=1#inicio
Sucesso!
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.
Convidado- Convidado
- Mensagem nº3
Re: [Resolvido]Salvar como JPG imagem incorporada em Objeto Picture
Convidado 28/8/2013, 14:44
Não deu Mestre... Funciona para campos.. mas para objeto picture não funcionou:
Private Sub Comando0_Click()
Dim strCaminho As String
strCaminho = CurrentProject.Path & "\temp"
'Verifica se a pasta temporária temp existe. Se não existir cria a pasta
'e coloca no modo oculto.
If Len(Dir(strCaminho, vbDirectory + vbHidden) & "") = 0 Then
FileSystem.MkDir (strCaminho)
FileSystem.SetAttr strCaminho, vbHidden
End If
'Faz um loop procurando pela imagem.
'Salva a imagem do campo tipo anexo para a pasta temporária.
Me.imgLogo.SaveToFile (strCaminho)
End Sub
Obrigado
Private Sub Comando0_Click()
Dim strCaminho As String
strCaminho = CurrentProject.Path & "\temp"
'Verifica se a pasta temporária temp existe. Se não existir cria a pasta
'e coloca no modo oculto.
If Len(Dir(strCaminho, vbDirectory + vbHidden) & "") = 0 Then
FileSystem.MkDir (strCaminho)
FileSystem.SetAttr strCaminho, vbHidden
End If
'Faz um loop procurando pela imagem.
'Salva a imagem do campo tipo anexo para a pasta temporária.
Me.imgLogo.SaveToFile (strCaminho)
End Sub
Obrigado
Convidado- Convidado
- Mensagem nº4
Re: [Resolvido]Salvar como JPG imagem incorporada em Objeto Picture
Convidado 31/10/2013, 21:00
Não consegui solução para esta questão.. Darei como resolvido.
Conteúdo patrocinado
- Mensagem nº5
Re: [Resolvido]Salvar como JPG imagem incorporada em Objeto Picture
Conteúdo patrocinado