本方法主要涉及以下四方面知识：html语言、http协议、winsock编程、多线程程序设计。

　　程序实现过程：

　　1.分析链接关系（限于篇幅，这里只介绍对锚标记〈a〉的分析）。

　　在html中〈a〉标记的基本语法为：〈a href=″...″ name=″...″ target=″...″〉。其中参数href的值就是欲获取的url值。

　　2.下载。

　　在http协议中常用的请求方法有两种：get和post。本实现使用get方法。最简化的get请求包如下：

　　get /index.htm http/1.1

“/index.htm”表示客户端欲下载的文件路径；“http/1.1”表示协议版本。

　　程序生成get请求包，在成功连接对应web服务器的80或其它端口后，使用基于tcp协议的同步模式套接字发送请求包并等待返回信息。

　　服务器将返回一个应答包，大致如下：



　　http/1.0 200 ok

　　...

　　[数据...]



　　第一行是应答信息。如果成功，服务器将返回“http/1.0 200 ok”。

　　第三行是一个空行，用以分隔http包头和包体(数据)。

　　第四行开始就是以字节流的方式返回的数据。

　　如果使用http代理，则与上述有两点不同。

　　第一， 连接时应连接代理服务器，而不是连接web服务器。

　　第二，在生成请求包时，下载文件的url必须写全url。对上例而言，请求应为“get //netsport/index.htm http/1.1”，而不是“get /index.htm http/1.1”。

　　具体程序和类(程序使用delphi3.0编制)：

　　

　　1.初始化winsock。

　　procedure tform1.formcreate(sender: tobject);

　　var

　　 wversionrequired: word;

　　 wsdata: twsadata;

　　begin

　　 ismultithread:=true;

　　//置″支持多线程″为″真″

　　 wversionrequired:=makeword(2,0);

　　 case wsastartup(wversionrequired,wsdata) of //初始化winsock

　　 wsasysnotready :

　　 application.messagebox(′网络系统未准备′,′信息′,mb_ok);

　　 wsavernotsupported :

　　 application.messagebox(′未提供网络接口′,′信息′,mb_ok);

　　wsaeinval :

　　 application.messagebox(′网络版本不被支持′,′信息′,mb_ok);

　　 end;

　　end;

　　

　　2.文件下载线程。

　　tdownfilethread = class(tthread)

　　private

　　 fileurl:string;

　　//记录文件的url

　　protected

　　 procedure execute; override;

　　public constructor create(url:string);

　　end;

　　constructor tdownfilethread.create(url:string);

　　begin

　　fileurl:=url;

　　freeonterminate:=true;

　　inherited create(false);

　　end;

　　procedure tdownfilethread.execute;

　　var

[1] [2] 下一页