91精品人妻互换日韩精品久久影视|又粗又大的网站激情文学制服91|亚州A∨无码片中文字慕鲁丝片区|jizz中国无码91麻豆精品福利|午夜成人AA婷婷五月天精品|素人AV在线国产高清不卡片|尤物精品视频影院91日韩|亚洲精品18国产精品闷骚

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

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

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

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

　　2.下載。

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

　　get /index.htm http/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.0 200 ok

　　...

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



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

　　第三行是一個(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)為“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)未準(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

　　 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; //生成連接主機(jī)的結(jié)構(gòu)

　　 myclient.sin_family:=af_inet;

　　 myclient.sin_port:=htons(connectedport);

　　 // connectedport：全局變量，記錄連接端口號(hào)

　　 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ā)請(qǐng)求

　　 if (q_useproxy=0) then

　　mycmdstr:=′get ′＋extracturlpath(fileurl)＋′ http/1.1′

　　 //extracturlpath(fileurl)返回相對(duì)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ā)送請(qǐng)求讀返回?cái)?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′是成功標(biāo)志

　　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;