unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls;type TForm1 = class(TForm) btn1: TButton; idhttp1: TIdHTTP; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);var fs : TFileStream;begin fs := TFileStream.Create('c:/guanyue.jpeg', fmCreate); try idhttp1.Get('http://www.d1fx.cn/prdtpic.aspx?id=40695&type=prdtfile', fs); finally fs.Free; end;end;end.
