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

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

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

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

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

2.下載。

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

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

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

服務器將返回一個應答包，大致如下：

http/1.0200ok

...

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

第一行是應答信息。如果成功，服務器將返回“http/1.0200ok”。

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

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

如果使用http代理，則與上述有兩點不同。

第一，連接時應連接代理服務器，而不是連接web服務器。

第二，在生成請求包時，下載文件的url必須寫全url。對上例而言，請求應為“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)絡系統(tǒng)未準備′，′信息′，mb_ok);

wsavernotsupported:

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

wsaeinval:

application.messagebox(′網(wǎng)絡版本不被支持′，′信息′，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