使用http协议和winsockapi实现web.docVIP

　　使用http协议和winsockapi实现web 本方法主要涉及以下四方面知识：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,0); 　　 if (mysocket=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); 　　 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); 　　 //发送请求读返回数据 　　 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))); 　　 excep