使用http协议和winsockapi实现webzip文件下载论文.docVIP

　　使用http协议和winsockapi实现webzip文件下载论文 本方法主要涉及以下四方面知识：html语言、http协议、l中〈a〉标记的基本语法为：〈a href=″...″ name=″...″ target=″...″〉。其中参数href的值就是欲获取的url值。 2.。 在http协议中常用的请求方法有两种：get和post。本实现使用get方法。最简化的get请求包如下： get /index.htm http/1.1 “/index.htm”表示客户端欲的文件路径；“http/1.1”表示协议版本。 程序生成get请求包，在成功连接对应 http/1.1”，而不是“get /index.htm http/1.1”。 具体程序和类(程序使用delphi3.0编制)： 1.初始化1.formcreate(sender: tobject); var ultithread:=true; //置″支持多线程″为″真″ akeessagebox(′网络系统未准备′,′信息′,mb_ok); essagebox(′未提供网络接口′,′信息′,mb_ok); essagebox(′网络版本不被支持′,′信息′,mb_ok); end; end; 2.文件线程。 tdoinate:=true; inherited create(false); end; procedure tdoysocket:tsocket; myclient:tsockaddr; recvbuf:array 0..332 of char; mycmdstr:string; ptemp:pchar; myhandle,index_ch,reccount,i:integer; begin //创建本地socket mysocket:=socket(af_i,sock_stream,.freelysocket=socket_error) then begin application.messagebox(′初始化失败！′,′信息′,mb_ok); exit; end; //生成连接主机的结构 myclient.sin_family:=af_i; myclient.sin_port:=htons(connectedport); // connectedport：全局变量，记录连接端口号 strpcopy(recvbuf,getserverip(fileurl)); // getserverip(fileurl)：返回服务器的ip myclient.sin_addr.s_addr:=i_addr(recvbuf); //连接服务器 if (connect(mysocket,myclient,sizeof(myclient))〈〉0) then begin closesocket(mysocket); exit; end; //发请求 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); recvbufi:=＃13; inc(i); recvbufi:=＃10; inc(i); recvbufi:=＃13; inc(i); recvbufi:=＃10; inc(i); recvbufi:=＃0; send(mysocket,recvbuf,i,0); //发送请求读返回数据 reccount:=recv(mysocket,recvbuf,sizeof(recvbuf)－1,0); //判断是否成功 i:=0; ysocket); exit; end; //得到数据起始位置 ptemp:=strpos(recvbuf,＃13＋＃10＋＃13＋＃10)＋4; index_ch:=ptemp－recvbuf; //建立目录 try forcedirectories(extractfilepath(getfillocalpath(fileurl))); except end; //创建文件 deletefile(getfillocalpath(fileurl)); myhandle:=filecreate(getfillocalpath(fileurl)); //如果未接收完则继