當(dāng)前位置：首頁(yè) > 编程资源 > 编程问答 >内容正文

编程问答

用 Delphi 下载网络文件

發(fā)布時(shí)間：2023/12/9 编程问答 37 豆豆

生活随笔收集整理的這篇文章主要介紹了用 Delphi 下载网络文件小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.

procedure?TForm1.Button2Click(Sender:?TObject);
var
??MyStream:TMemoryStream;
begin
??IdAntiFreeze1.OnlyWhenIdle:=False;//設(shè)置使程序有反應(yīng).
??MyStream:=TMemoryStream.Create;
??try
??? //下載我站點(diǎn)的一個(gè)ZIP文件
????IdHTTP1.Get('http://www.138soft.com/download/Mp3ToExe.zip',MyStream);?
??except//INDY控件一般要使用這種try..except結(jié)構(gòu).
????Showmessage('網(wǎng)絡(luò)出錯(cuò)!');
????MyStream.Free;
????Exit;
??end;
??MyStream.SaveToFile('c:/Mp3ToExe.zip');
??MyStream.Free;
??Showmessage('OK');
end;

procedure?TForm1.IdHTTP1WorkBegin(Sender:?TObject;?AWorkMode:?TWorkMode;
??const?AWorkCountMax:?Integer);
begin
??ProgressBar1.Max:=AWorkCountMax;
??ProgressBar1.Min:=0;
??ProgressBar1.Position:=0;
end;

IdHTTP1的Get還有一種形式就是獲取字符串：例如，上面的程序可以改寫成：

procedure?TForm1.Button1Click(Sender:?TObject);
var
??MyStr:String;
begin
??IdAntiFreeze1.OnlyWhenIdle:=False;//設(shè)置使程序有反應(yīng).
??try
????MyStr:=IdHTTP1.Get('http://www.138soft.com/default.htm');
??except
????Showmessage('網(wǎng)絡(luò)出錯(cuò)!');
????Exit;
??end;
??Showmessage(MyStr);
end;

總結(jié)

以上是生活随笔為你收集整理的用 Delphi 下载网络文件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。