delphi 读取显示网页上的图片方法

uses jpeg,;

type
  TForm1 = class(TForm)

    ...
    Image1: TImage;

    IdHTTP1: TIdHTTP;

    ...

end;

 

procedure TForm1.FormCreate(Sender: TObject);

var

  tmp:string;

  IMS:TMemoryStream;

  ijpeg : TJPEGImage;

  IdHTTP1: TIdHTTP;

begin

  IMS:=TMemoryStream.Create;

  IdHTTP1:=TIdHTTP.Create;

  IdHTTP1.Get('http://192.168.1.168/2008/Services/images/1_r4_c2.jpg',IMS);

  Image1.Picture.Assign(nil);

  ijpeg := TJPEGImage.Create;

  IMS.Position :=0;

  ijpeg.LoadFromStream(IMS);

  IMS.Free;

  Image1.Picture.Assign(ijpeg);

  ijpeg.Free;

  IdHTTP1.Free;

end;