Fórum Como carregar foto no componente TImagem? #348432

// para gravar a imagem no banco.
procedure TForm1.btnGravarClick(Sender: TObject);
begin
   IBStoredProc1.ParamByName(´FOTO´).LoadFromFile(OpenPictureDialog1.FileName, ftBlob);
   IBStoredProc1.ExecProc;
   IBTransaction1.Commit;
end;

// para retornar a imagem contida no banco para o componente TImage.
procedure TForm1.btnRetornarClick(Sender: TObject);
begin
   RetornarImagem;
end;

Procedure TForm1.RetornarImagem;
var
   MemStm : TMemoryStream;
begin
   if not IBQuery1.FieldByName(´foto´).IsNull then
    begin
       MemStm := TMemoryStream.Create;
       IBQuery1FOTO.SaveToStream(MemStm);
       try
          MemStm.Position := 0;
          Image1.Picture.Bitmap.LoadFromStream(MemStm);
          Image1.Repaint;
       finally
          MemStm.Free;
       end;
    end;
end;

// para limpar o componente TImage.
procedure TForm1.btnLimparClick(Sender: TObject);
begin
   Image1.Picture := nil;
end;

procedure TForm1.RetornarJPGClick(Sender: TObject);
var
   MemStm : TMemoryStream;
   JPG : TJpegImage;
begin
   if not IBQuery1.FieldByName(´foto´).IsNull then
    begin
       MemStm := TMemoryStream.Create;
       Jpg := TJpegImage.create;
       IBQuery1FOTO.SaveToStream(MemStm);
       Jpg.LoadFromStream(MemStm);
       Image1.Picture.Assign(Jpg);
       MemStm.Destroy;
       jpg.free;
    end
   else
     Image1.Picture.assign(nil);
end;