Interbase - gravando imagem

//Foto no InterBase

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;