TJPEGimage

[Tyrael Y.]

Mach ein TImage auf eine Form und einen Button.
Dann folgenden Code testen.
Sollte finktionieren.

Und danach bitte jede Zeile genau angucken und versuchen zu verstehen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 GetImage();
end;

procedure TForm1.GetImage();
var
  myClient: TidHTTP;
  myMemoryStream: TMemoryStream;
  myJPEG: TJPEGimage;
begin
  myClient := TidHTTP.Create(Self);
  myMemoryStream := TMemoryStream.Create;
  myJPEG := TJPEGImage.Create;

  try
    myClient.Get('http://www.delphipraxis.net/images/pages/impressum/daniel_wolf.jpg', myMemoryStream);
    myMemoryStream.Position := 0;

    Image1.Picture.Graphic := myJPEG;
    Image1.Picture.Graphic.LoadFromStream(myMemoryStream);


  finally
    myJPEG.Free;
    myMemoryStream.Free;
    myClient.Free;
  end;
end;