Fórum Gravando fotos no interbase?????????? #38685

Eu tenho esta rotina. Espero que ajude.

procedure TFrmCredenc.CarregaFotoParaBanco(FileName: String);
Var
stImagem: TFileStream;
begin
stImagem := TFileStream.Create( FileName, fmOpenRead or
fmShareDenyWrite );
Try
// ibdsCredenciadosFOTO é um campo BLOB SUB_TYPE 0
DMMain.ibdsCredenciadosFOTO.LoadFromStream( stImagem );
Finally
stImagem.Free;
End;
end;

procedure TFrmCredenc.ObtemImagemDoBanco(var imgDestino: TImage);
Var
jpgImg: TJPEGImage;
stMem: TMemoryStream;
begin
If DMMain.ibdsCredenciadosFOTO.IsNull Then Exit;
jpgImg := TJPEGImage.Create;
stMem := TMemoryStream.Create;
Try
DMMain.ibdsCredenciadosFOTO.SaveToStream( stMem );
stMem.Position := 0;
jpgImg.LoadFromStream( stMem );
imgDestino.Picture.Assign( jpgImg );
Finally
stMem.Free;
jpgImg.Free;
End;
end;