Delphi编程中Http协议应用

Posted 2020-09-10 朝闻道

Http协议的通信遵循一定的约定.例如,请求一个文件的时候先发送Get请求,然后服务器会返回请求的数据.如果需要进行断点传输,那么先发送‘HEAD /‘请求,其中返回的‘Content-Length: ‘就是文件实际大小.将其和我们本地需要断点下载的文件大小比较,发送GET请求和发送需要下载的文件开始位置‘RANGE: bytes=‘+inttostr(iFilePos)+‘-‘+#13#10;服务器如果支持断点下载的话就会接着发送余下的数据了.因为这方面的文章比较多,我在这里就不详细讲述了.感兴趣的朋友可以自行查阅相关资料或者RFC文档。

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

procedure TForm1.Button2Click(Sender: TObject);
 var
   MyStream:TMemoryStream;
 begin
   IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应. 
   MyStream:=TMemoryStream.Create;
   try
     //下载我站点的一个ZIP文件
     IdHTTP1.Get(‘http://www.138soft.com/download/Mp3ToExe.zip‘,MyStream); 
   except//INDY控件一般要使用这种try..except结构. 
     Showmessage(‘网络出错!‘);
     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;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
    ProgressBar1.Position:=AWorkCount;
end;

IdHTTP1的Get还有一种形式就是获取字符串：例如，上面的程序可以改写成：
procedure TForm1.Button1Click(Sender: TObject);
 var
   MyStr:String;
 begin
   IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应. 
   try
     MyStr:=IdHTTP1.Get(‘http://www.138soft.com/default.htm‘);
   except
     Showmessage(‘网络出错!‘);
     Exit;
   end;
   Showmessage(MyStr);
 end;

　　应用:现在很多程序都有自动升级功能,实际上就是应用了GET.先在自己站点放一个文本文件注明程序版本号,当检查升级的时候,取文本内容与当前版本号比较,然后决定升级与否

 

http://blog.csdn.net/zang141588761/article/details/51934388