delphi 讀取顯示網頁上的圖片方法

uses jpeg,;

type
  TForm1 = class(TForm)

    ...
    Image1: TImage;

    IdHTTP1: TIdHTTP;

    ...

end;

 

1. procedure TForm1.FormCreate(Sender: TObject);
2. var
3.   tmp:string;
4.   IMS:TMemoryStream;
5.   ijpeg : TJPEGImage;
6.   IdHTTP1: TIdHTTP;
7. begin
8.   IMS:=TMemoryStream.Create;
9.   IdHTTP1:=TIdHTTP.Create;
10.   IdHTTP1.Get('http://192.168.1.168/2008/Services/images/1_r4_c2.jpg',IMS);
11.   Image1.Picture.Assign(nil);
12.   ijpeg := TJPEGImage.Create;
13.   IMS.Position :=0;
14.   ijpeg.LoadFromStream(IMS);
15.   IMS.Free;
16.   Image1.Picture.Assign(ijpeg);
17.   ijpeg.Free;
18.   IdHTTP1.Free;
19. end;