Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#28

AW: Bild aus Datenbank in TImage Komponente

  Alt 10. Sep 2010, 11:51
ausgehend von JPG-Images ....
Delphi-Quellcode:

procedure TForm5.saveClick(Sender: TObject);
var
  s:TMemoryStream;
    i:TJPEGImage;
begin
  i:=TJPEGImage.Create;
  s:=TMemoryStream.Create;
  try
    d.Edit;
    TJPEGImage(Image1.Picture.Graphic).SaveToStream(s);
    Showmessage(IntToStr(s.Position));
    s.Position := 0;

    TBlobField(dBild).LoadFromStream (s);
    d.Post;
  finally
    s.Free;
    i.Free;

  end;

end;

procedure TForm5.Image1Click(Sender: TObject);
var
  s:TMemoryStream;
  i:TJPEGImage;
begin
  i:=TJPEGImage.Create;
  s:=TMemoryStream.Create;
  try
  TBlobField(dBild).SaveToStream(s);
  if s.Position > 0 then
      begin
        s.Position := 0;
        try
        i.LoadFromStream (s);
        Image2.Picture.Assign(i) ;
        except
        end;
      end;
  finally
  s.Free;
  i.Free
  end;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat