Buscar por:

Foto no interbase

Código

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;