Fórum Ajuda com DBImage #352361

Query3.First;

while not (Query3.EOF) do
begin

     //SalvaFigura.FileName := DBEdit1.Text+´-´+DBEdit3.Text+´-´+DBEdit2.Text+´.jpg´;
       //if SalvaFigura.Execute then
       //DBImageExt1.Picture.SaveToFile(´C:\migração\´+DBEdit1.Text+´-´+DBEdit3.Text+´-´+DBEdit2.Text+´.jpg´);
//////////

try
inherited;

//if DBImageFSO.Picture.Graphic is TJPEGImage then

BlobStream := TBlobStream.Create(Query3.FieldByName(´IM_FIGURA_FSO´) as TBlobField, bmRead);
FileStream := TFileStream.Create(´C:\migração\´+DBEdit1.Text+´-´+DBEdit3.Text+´-´+DBEdit2.Text+´.jpg´, fmCreate or fmOpenWrite);
FileStream.CopyFrom(BlobStream, 0);
//ShowMessage(´Documento salvo em disco. Clique em [OK] para prosseguir ...´);
finally
// Liberando memoria
FileStream.Free;
BlobStream.Free;
end;
/////////

Query3.Next;
end;

Query3.close;