使用http协议和winsockapi实现webzip文件下载
本方法主要涉及以下四方面知识：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 http://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
