淺述使用http協(xié)議和winsockapi實現(xiàn)webzip文件論文
淺述使用http協(xié)議和winsockapi實現(xiàn)webzip文件論文
webzip是著名的離線瀏覽器軟件，在它的幫助下你能夠完整下載網(wǎng)站的內(nèi)容，或者你也可以選擇自行設(shè)置下載的層數(shù)、文件類型、網(wǎng)頁與媒體文件的定位以及網(wǎng)址過濾器，以便按己所需地獲取網(wǎng)站內(nèi)容。你下載到本地硬盤中的網(wǎng)站內(nèi)容將仍保持原本的 HTML 格式，其文件名與目錄結(jié)構(gòu)都不會變化，這樣可以準確地提供網(wǎng)站的鏡像?，F(xiàn)在使用 WebZIP 中新的 FAR 插件工具，你可以把下載的內(nèi)容制作成 HTML-幫助文件(.chm)。你也可以把抓取的網(wǎng)站內(nèi)容壓縮為 ZIP 文件。以下是學(xué)習(xí)啦小編今天為大家精心準備的：淺述使用http協(xié)議和winsockapi實現(xiàn)webzip文件下載相關(guān)論文。內(nèi)容僅供參考，歡迎閱讀!
淺述使用http協(xié)議和winsockapi實現(xiàn)webzip文件下載全文如下：
本方法主要涉及以下四方面知識：html語言、http協(xié)議、winsock編程、多線程程序設(shè)計。
程序?qū)崿F(xiàn)過程：
1.分析鏈接關(guān)系(限于篇幅，這里只介紹對錨標記〈a〉的分析)。
在html中〈a〉標記的基本語法為：〈a href=″...″ name=″...″ target=″...″〉。其中參數(shù)href的值就是欲獲取的url值。
2.下載。
在http協(xié)議中常用的請求方法有兩種：get和post。本實現(xiàn)使用get方法。最簡化的get請求包如下：
get /index.htm http/1.1
“/index.htm”表示客戶端欲下載的文件路徑;“http/1.1”表示協(xié)議版本。
程序生成get請求包，在成功連接對應(yīng)web服務(wù)器的80或其它端口后，使用基于tcp協(xié)議的同步模式套接字發(fā)送請求包并等待返回信息。
服務(wù)器將返回一個應(yīng)答包，大致如下：
http/1.0 200 ok
...
[數(shù)據(jù)...]
第一行是應(yīng)答信息。如果成功，服務(wù)器將返回“http/1.0 200 ok”。
第三行是一個空行，用以分隔http包頭和包體(數(shù)據(jù))。
第四行開始就是以字節(jié)流的方式返回的數(shù)據(jù)。
如果使用http代理，則與上述有兩點不同。
第一， 連接時應(yīng)連接代理服務(wù)器，而不是連接web服務(wù)器。
第二，在生成請求包時，下載文件的url必須寫全url。對上例而言，請求應(yīng)為“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(′網(wǎng)絡(luò)系統(tǒng)未準備′,′信息′,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
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
mysocket:tsocket; myclient:tsockaddr;
recvbuf:array [0..332] of char; mycmdstr:string;
ptemp:pchar;
myhandle,index_ch,reccount,i:integer;
begin //創(chuàng)建本地socket
mysocket:=socket(af_inet,sock_stream,0);
if (mysocket=socket_error) then begin
application.messagebox(′初始化失敗!′,′信息′,mb_ok);
exit;
end; //生成連接主機的結(jié)構(gòu)
myclient.sin_family:=af_inet;
myclient.sin_port:=htons(connectedport);
// connectedport：全局變量，記錄連接端口號
strpcopy(recvbuf,getserverip(fileurl));
// getserverip(fileurl)：返回服務(wù)器的ip
myclient.sin_addr.s_addr:=inet_addr(recvbuf); //連接服務(wù)器
if (connect(mysocket,myclient,sizeof(myclient))〈〉0) then begin
closesocket(mysocket);
exit;
end; //發(fā)請求
if (q_useproxy=0) then
mycmdstr:=′get ′+extracturlpath(fileurl)+′ http/1.1′
//extracturlpath(fileurl)返回相對url
else mycmdstr:=′get ′+fileurl+′ http/1.1′;//使用代理寫全url
strpcopy(recvbuf,mycmdstr);
i:=length(mycmdstr);
recvbuf[i]:=#13; inc(i); recvbuf[i]:=#10; inc(i);
recvbuf[i]:=#13; inc(i); recvbuf[i]:=#10; inc(i);
recvbuf[i]:=#0;
send(mysocket,recvbuf,i,0);
//發(fā)送請求讀返回數(shù)據(jù)
reccount:=recv(mysocket,recvbuf,sizeof(recvbuf)-1,0); //判斷是否成功
i:=0;
while i〈10 do begin
i:=i+1;
// ′http/1.0 200 ok′是成功標志
if ((recvbuf[i]=′ ′) and (recvbuf[i+1]=′2′) and (recvbuf[i+2]=′0′)
and (recvbuf[i+3]=′0′) and (recvbuf[i+4]=′ ′)) then i:=200;
end;
if i〈〉200 then begin closesocket(mysocket); exit; end;
//得到數(shù)據(jù)起始位置
ptemp:=strpos(recvbuf,#13+#10+#13+#10)+4;
index_ch:=ptemp-recvbuf;
//建立下載目錄
try forcedirectories(extractfilepath(getfillocalpath(fileurl)));
except
end; //創(chuàng)建文件
deletefile(getfillocalpath(fileurl));
myhandle:=filecreate(getfillocalpath(fileurl)); //如果未接收完則繼續(xù)
while (reccount〈〉0) do
begin
filewrite(myhandle,recvbuf[index_ch] ,reccount-(index_ch));
index_ch:=0;
reccount:=recv(mysocket,recvbuf,sizeof(recvbuf)-1,0);
end; //關(guān)閉文件句柄和套接字
fileclose(myhandle);
closesocket(mysocket);
end;