使用http協(xié)議和winsockapi實(shí)現(xiàn)webzip文件下載

本方法主要涉及以下四方面知識(shí)：html語言、http協(xié)議、winsock編程、多線程程序設(shè)計(jì)。

程序?qū)崿F(xiàn)過程：

1.分析鏈接關(guān)系（限于篇幅，這里只介紹對(duì)錨標(biāo)記〈a〉的分析）。

在html中〈a〉標(biāo)記的基本語法為：〈ahref=″...″name=″...″target=″...″〉。其中參數(shù)href的值就是欲獲取的url值。

2.下載。

在http協(xié)議中常用的請(qǐng)求方法有兩種：get和post。本實(shí)現(xiàn)使用get方法。最簡化的get請(qǐng)求包如下：

get/index.htmhttp/1.1“/index.htm”表示客戶端欲下載的文件路徑；“http/1.1”表示協(xié)議版本。

程序生成get請(qǐng)求包，在成功連接對(duì)應(yīng)web服務(wù)器的80或其它端口后，使用基于tcp協(xié)議的同步模式套接字發(fā)送請(qǐng)求包并等待返回信息。

服務(wù)器將返回一個(gè)應(yīng)答包，大致如下：

http/1.0200ok

...

[數(shù)據(jù)...]

第一行是應(yīng)答信息。如果成功，服務(wù)器將返回“http/1.0200ok”。

第三行是一個(gè)空行，用以分隔http包頭和包體(數(shù)據(jù))。

第四行開始就是以字節(jié)流的方式返回的數(shù)據(jù)。

如果使用http代理，則與上述有兩點(diǎn)不同。

第一，連接時(shí)應(yīng)連接代理服務(wù)器，而不是連接web服務(wù)器。

第二，在生成請(qǐng)求包時(shí)，下載文件的url必須寫全url。對(duì)上例而言，請(qǐng)求應(yīng)為“gethttp://netsport/index.htmhttp/1.1”，而不是“get/index.htmhttp/1.1”。

具體程序和類(程序使用delphi3.0編制)：1.初始化winsock。

proceduretform1.formcreate(sender:tobject);

var

wversionrequired:word;

wsdata:twsadata;

begin

ismultithread:=true;

//置″支持多線程″為″真″

wversionrequired:=makeword(2，0);

casewsastartup(wversionrequired，wsdata)of//初始化winsock

wsasysnotready:

application.messagebox(′網(wǎng)絡(luò)系統(tǒng)未準(zhǔn)備′，′信息′，mb_ok);

wsavernotsupported:

application.messagebox(′未提供網(wǎng)絡(luò)接口′，′信息′，mb_ok);

wsaeinval:

application.messagebox(′網(wǎng)絡(luò)版本不被支持′，′信息′，mb_ok);

end;

end;2.文件下載線程。

tdownfilethread=class(tthread)

private

fileurl:string;

//記錄文件的url

protected

procedureexecute;override;

publicconstructorcreate(url:string);

end;

constructortdownfilethread.create(url:string);

begin

fileurl:=url;

freeonterminate:=tru