Ler Gravar imagens no Delphi.

[malereis]

Olá Pessoal.

Seguinte,

Os exemplos que achei na internet são para salvar e carregar imagens através de um path... LoadFromfile ('c:\minhasimagens\imagea.jpeg); Ok... mas preciso usar de outra forma. (guardar a imagem e carregar do Banco de dados)

Vamos lá....

Tenho uma imagem JPEG já carregada em um DBImage.

Penso que o código para salvar seja esse:

TBlobField(AdoTable1.FieldByName('ImageA')).SaveToFile(FileListBox1.FileName);

AdoTable1.Post;

Mas não consigo reverter o processo para ler essa imagem.

1- A rotina para gravar está correta?

2- Como seria esse código para ler em um DBImage direto do banco.

Grato pela ajuda, porque estou no sufoco... :wacko:

Mauricio

[Alberto Mota]

Coloque no evento on data change do seu data source

var

foto1,guardafoto : string;

begin

guardafoto := inttostr(ADOQuery1.FieldByName('referência').AsInteger);

if not(fileexists('C:\wa\'+guardafoto+'.jpg')) then

begin

foto1 := ('C:\wa\wa2.jpg');

end else

foto1 := ('C:\wa\'+guardafoto+'.jpg');

DbImage1.Picture.loadfromfile(foto1);

[Jhonas]

Citar

guardar a imagem e carregar do Banco de dados

veja esses links

https://www.google.com.br/search?source=hp&ei=nioDWsHcN4WKwgTLoJ_wAw&q=http%3A%2F%2Fscriptbrasil.com.br%2Fforum%2Findex.php...e%3Dsalvar%2Bimagem&o que=http%3A%2F%2Fscriptbrasil.com.br%2Fforum%2Findex.php...e%3Dsalvar%2Bimagem&gs_l=psy-ab.3...1445.1445.0.2213.1.1.0.0.0.0.169.169.0j1.1.0....0...1.1.64.psy-ab..0.0.0....0.NjaHWGYU5b8

abraço

[jaumDoDelphi]

ola malereis tudo bem cara?

Vejo que você esta utilizando ADOTable / ADOQuery

Se caso você estiver utilizando o BANCO DE DADOS MS ACCESS com JET4.

é impossivel salvar JPEG neste tipo de banco. Somente BMP!

mesmo utilizando o mais novo banco de dados o Access 2007/2010 n é possivel salvar JPEG!

Um otimo banco de dados que se pode salvar JPEG é o MySQL ou FireBird! entre outros.

Para você ter uma ideia Eu tentei cololar os JPEG no MDB já a muito tempo desde 2002 e ate hj nunca achei uma solução!

PS. Se eu estiver errado alguém poste uma solução!