jpg in TImage

[SirThornberry]

wenn das bild über http geladen werden soll

Delphi-Quellcode:

var stream: TStream;
    jpg1: TjpegImage;
begin
   stream := TMemoryStream.Create;
   http1.Get(doscriptname, stream); //http1 = TidHTTP von den Indys
   stream.Position := 0;

   jpg1 := Tjpegimage.Create;
   jpg1.LoadFromStream(stream);
   TImage01.Picture.Assign(jpg1);
   jpg1.Free;

   stream.free; //[Edit]hatte die Zeile doch glatt vergessen[/Edit]
end;