Bild aus Datenbank in TImage Komponente

[Bummi]

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;