亚洲欧美精品沙发,日韩在线精品视频,亚洲Av每日更新在线观看,亚洲国产另类一区在线5

<pre id="hdphd"></pre>

  • <div id="hdphd"><small id="hdphd"></small></div>
      學(xué)習(xí)啦 > 論文大全 > 學(xué)科論文 > 計(jì)算機(jī)論文 > 淺述使用http協(xié)議和winsockapi實(shí)現(xiàn)webzip文件論文

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

      時(shí)間: 謝樺657 分享

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

        webzip是著名的離線(xiàn)瀏覽器軟件,在它的幫助下你能夠完整下載網(wǎng)站的內(nèi)容,或者你也可以選擇自行設(shè)置下載的層數(shù)、文件類(lèi)型、網(wǎng)頁(yè)與媒體文件的定位以及網(wǎng)址過(guò)濾器,以便按己所需地獲取網(wǎng)站內(nèi)容。你下載到本地硬盤(pán)中的網(wǎng)站內(nèi)容將仍保持原本的 HTML 格式,其文件名與目錄結(jié)構(gòu)都不會(huì)變化,這樣可以準(zhǔn)確地提供網(wǎng)站的鏡像。現(xiàn)在使用 WebZIP 中新的 FAR 插件工具,你可以把下載的內(nèi)容制作成 HTML-幫助文件(.chm)。你也可以把抓取的網(wǎng)站內(nèi)容壓縮為 ZIP 文件。以下是學(xué)習(xí)啦小編今天為大家精心準(zhǔn)備的:淺述使用http協(xié)議和winsockapi實(shí)現(xiàn)webzip文件下載相關(guān)論文。內(nèi)容僅供參考,歡迎閱讀!

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

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

        程序?qū)崿F(xiàn)過(guò)程:

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

        在html中〈a〉標(biāo)記的基本語(yǔ)法為:〈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”表示客戶(hù)端欲下載的文件路徑;“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ù))。

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

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

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

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

        具體程序和類(lèi)(程序使用delphi3.0編制):

        1.初始化winsock。

        procedure tform1.formcreate(sender: tobject);

        var

        wversionrequired: word;

        wsdata: twsadata;

        begin

        ismultithread:=true;

        //置″支持多線(xiàn)程″為″真″

        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.文件下載線(xiàn)程。

        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′;//使用代理寫(xiě)全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;

      399553