Jpeg in Speicher laden und auf Form darstellen.

[x000x]

Moin moin,

da du sowieso direkt auf die Form zeichnest, nehm doch ein TJPEGImage...

Delphi-Quellcode:

uses jpeg;
//..
var
   mjpg : tidhttp;
   mstream : Tmemorystream;
   mimage : TJpegImage;
begin
   mjpg    := tidhttp.Create(form1);
   mstream := Tmemorystream.Create;
   mimage  := TJpegImage.Create;
   try
      mjpg.Get('www.internetse.de/bild.jpg',mstream);
      mstream.Position := 0;
      mimage.LoadFromStream(mstream);
      form1.Canvas.Draw(0,0,mimage);
   finally
      mimage.Free;
      mstream.Free;
      mjpg.Free;
   end;
end