2022年Delphi编程中Http协议应用(一)Delphi教程.docx

《2022年Delphi编程中Http协议应用(一)Delphi教程.docx》由会员分享，可在线阅读，更多相关《2022年Delphi编程中Http协议应用(一)Delphi教程.docx（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2022年Delphi编程中Http协议应用(一)Delphi教程Http协议的通信遵循肯定的约定.例如,恳求一个文件的时候先发送Get恳求,然后服务器会返回恳求的数据.假如须要进行断点传输,那么先发送HEAD /恳求,其中返回的Content-Length: 就是文件实际大小.将其和我们本地须要断点下载的文件大小比较,发送GET恳求和发送须要下载的文件起先位置RANGE: bytes=+inttostr(iFilePos)+-+#13#10;服务器假如支持断点下载的话就会接着发送余下的数据了.因为这方面的文章比较多,我在这里就不具体讲解并描述了.感爱好的挚友可以自行查阅相关资料或者RFC文档

2、。当然,假如你是个懒人,也可以干脆采纳Delphi自带的控件.以Delphi6的INDY组件为例.新建一个工程,放上一个TIdHTTP控件,一个TIdAntiFreeze控件,一个TProgressBar用于显示下载进度.最终放上一个TButton用于起先执行我们的吩咐.代码如下:procedure TForm1.Button1Click(Sender: TObject);/点击按钮的时候起先下载我们的文件varMyStream:TMemoryStream;beginIdAntiFreeze1.OnlyWhenIdle:=False;/设置使程序有反应.MyStream:=TMemoryStr

3、eam.Create;tryIdHTTP1.Get(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);/起先下载前,将ProgressBar1的最大值设置为

4、须要接收的数据大小.beginProgressBar1.Max:=AWorkCountMax;ProgressBar1.Min:=0;ProgressBar1.Position:=0;end;procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;const AWorkCount: Integer);/接收数据的时候,进度将在ProgressBar1显示出来.beginProgressBar1.Position:=ProgressBar1.Position+AWorkCount;end;IdHTTP1的Get还有一种形式就是获得字符串:例如,上面的程序可以改写成:procedure TForm1.Button1Click(Sender: TObject);varMyStr:String;beginIdAntiFreeze1.OnlyWhenIdle:=False;/设置使程序有反应.tryMyStr:=IdHTTP1.Get(exceptShowmessage(网络出错!);Exit;end;Showmessage(MyStr);end;应用:现在许多程序都有自动升级功能,事实上就是应用了GET.先在自己站点放一个文本文件注明程序版本号,当检查升级的时候,取文本内容与当前版本号比较,然后确定升级与否.