登陆

使用Delphi程序来下载网页

新建一个工程,放上一个TIdHTTP控件,一个TIdAntiFreeze控件,一个TProgressBar用于显示下载进度。最后放上一个TButton用于开始执行我们的命令。代码如下:

Delphi代码
  1. procedure TForm1.Button2Click(Sender: TObject);   
  2. var  
  3.   MyStream:TMemoryStream;   
  4. begin  
  5.   IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.    
  6.   MyStream:=TMemoryStream.Create;   
  7.   try  
  8.     //下载我站点的一个ZIP文件   
  9.     IdHTTP1.Get('http://www.138soft.com/download/Mp3ToExe.zip',MyStream);    
  10.   except//INDY控件一般要使用这种try..except结构.    
  11.     Showmessage('网络出错!');   
  12.     MyStream.Free;   
  13.     Exit;   
  14.   end;   
  15.   MyStream.SaveToFile('c:\Mp3ToExe.zip');   
  16.   MyStream.Free;   
  17.   Showmessage('OK');   
  18. end;   
  19.   
  20. procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;   
  21.   const AWorkCountMax: Integer);   
  22. begin  
  23.   ProgressBar1.Max:=AWorkCountMax;   
  24.   ProgressBar1.Min:=0;   
  25.   ProgressBar1.Position:=0;   
  26. end;  

 

IdHTTP1的Get还有一种形式就是获取字符串:例如,上面的程序可以改写成:

 

Delphi代码
  1. procedure TForm1.Button1Click(Sender: TObject);   
  2. var  
  3.   MyStr:String;   
  4. begin  
  5.   IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.    
  6.   try  
  7.     MyStr:=IdHTTP1.Get('http://www.138soft.com/default.htm');   
  8.   except  
  9.     Showmessage('网络出错!');   
  10.     Exit;   
  11.   end;   
  12.   Showmessage(MyStr);   
  13. end;   

(转)

Tags: 下载, 程序

« 上一篇 | 下一篇 »

相关文章