[Resolvido]Transferir imagem de uma tabela para uma pasta

Tenho alguns projetos que usam imagem que vinha colocando em tabelas como objeto OLE. Porém descobri aqui no forum uma maneira de selecionar a imagem e armazenar na tabela somente o endereço dela, o que diminui muito o tamanho do arquivo. Agora gostaria de encontrar uma maneira de "desanexar" as imagens armazenadas nas tabelas para usar o outro processo. Alguém sabe como fazer para "exportar" as imagens para uma pasta ?

Olá Sérgio Paula,

Já tentou a "Busca" aqui do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Será isto:
https://www.maximoaccess.com/t29913-resolvidoarquivo-ole-blob-extrair-dados-criar-ficheiro

Abraço

Caro Teixeira,

Parece que o caminho é próximo ao que você indicou porém, mesmo fazendo as adaptações sugeridas pelo Maicon, eu não consigo visualizar a imagem. Não sei se entendi, mas incorporei as duas funções e coloquei a seguinte sub :
Private Sub Salvar_foto_Click()
BlobToFile "F:\pastas acess\fotos usos\Image-in.jpg", foto
FileToBlob "F:\pastas acess\fotos usos\Image-in.jpg", foto
BlobToFile "F:\pastas acess\fotos usos\Image-Out.bmp", foto
End Sub

Tem algum erro ?

Obrigado !!

Olá Sérgio Paula,,

Monte um pequeno exemplo do que tem e pretende fazer.
Partilhe a base de dados.
Assim fica mais facil para compreender o que está a fazer e também para poder ajudar.

Abraço

Olá, Teixeira,

Como expliquei na abertura do tópico, tenho a imagem incorporada na tabela como objeto OLE, quero saber uma maneira de "desincorporar", colocando estas imagens numa pasta. Tipo c:\projeto\fotos. "Só" isso !! A foto está na tabela fotos, objeto fotos.ole, quero exportá-la para C:\projetos\fotos\imagem.jpg (ou outra extensão qualquer) !! Isto porque a foto, incorporada, aumenta muito o tamanho do projeto e, se eu tiver um campo tipo : me!caminho = c:C:\projetos\fotos\imagem.jpg o projeto fica muito mais leve !!
As imagens foram resultado de pesquisas, usando a metodologia corta e cola !! Não dá para recuperar os locais de onde foram retiradas !!
A solução que vc me passou "funcionaria", mas o visualizador de imagens do windows não consegue abrir a imagem diz que não oferece suporte para o formato de arquivo o Paint idem. (opero com windows 7 32 bits)
Espero ter esclarecido !! Obrigado pela atenção !

Olá Sérgio,

Estou no celular, o exemplo era para ser mais facil para qualquer membro ajudar.
No entanto veja neste topico se ajuda:

https://www.maximoaccess.com/t23187-fotos-em-fomulario-continuo-access-2003

Abraço

Olá Teixeira,

A metodologia usada nos exemplos que você mandou por último eu já tenho. E estou querendo usá-la mas, antes, preciso colocar as imagens (que estão na tabela) em um ficheiro.

obrigado !

Olá Sérgio Paula,

Vai ter que começar a por a mão na massa.
Se tiver dificuldades, disponibilize exemplo e código para se trabalhar.

Abraço

Olá, Teixeira ! Eu acho que vc não entendeu !! A parte que você me mandou é posterior à solução que preciso !! Como tirar as imagens da tabela e colocar no ficheiro? Os exemplos dados são de como tirar do ficheiro e colocar na tabela !!

Olá Sérgio Paula,

Assim sendo a solução está na mensagem nº 2.

Se tiver dificuldades, partilhe uma base de dados com a tabela envolvida na questão com 1 ou dois registos de amostragem para se testar.

Abraço

Sim !! Mas veja o tópico 3 !

Olá Sérgio Paula,

Sim, já vi a mensagem nº 3 e está a fazer conforme a indicação do tópico que mencionei.
Acontece que não está a conseguir e estou disposto ajudar, no entanto não se não disponibilizar o que tem para se verificar e poder ajustar não sei como quer ajuda.

Poderia fazer um exemplo, mas o tempo que vou perder a fazer posso ajudar outros membros mais colaborativos.
Está nas suas mãos.

Abraços e boa sorte

Olá Teixeira,

Eu já disponibilizei tudo o que era para disponibilizar, mas parece que vc não conseguiu entender. De qualquer maneira, obrigado pela tentativa.

Olá Sérgio Paula,

Ficamos assim, abraço e bons estudos com o MaximoAccess.