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;

Nenhum comentário:

Postar um comentário