Delphi编程中Http协议应用

当然,如果你的程序想写的非常小,那么就要动用API了.大概过程如下:

........... ........... HeadInfo:=''; HeadInfo:=HeadInfo+'GET /'+''+' HTTP/1.1'+#13#10; HeadInfo:=HeadInfo+'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*'+#13#10; HeadInfo:=HeadInfo+'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)'+#13#10; HeadInfo:=HeadInfo+'RANGE: bytes='+inttostr(533263)+'-533263'+#13#10; HeadInfo:=HeadInfo+'Host: '+GetHost(HostName)+#13#10; HeadInfo:=HeadInfo+#13#10; ZeroMemory(@SendStrBuf,SizeOf(SendStrBuf)); for Re:=0 to Length(HeadInfo)-1 do SendStrBuf[Re]:=HeadInfo[Re+1]; Re:=send(MySocket,SendStrBuf,Strlen(SendStrBuf),0); if Re = SOCKET_ERROR then begin CloseSocket(MySocket); WSACleanUP();//Winsocket释构 Exit; end; Re:=recv(MySocket,ReciveStrBuf,SizeOf(ReciveStrBuf),0); if Re = SOCKET_ERROR then begin CloseSocket(MySocket); WSACleanUP();//Winsocket释构 Exit; end; Result:=GetInfoByYearNetHtm2(ReciveStrBuf); .......... ..........

　　应用:(1)无IP电脑取有IP电脑的地址,就是有IP的电脑把自己的IP更新上去,然后无IP的电脑去取回来连接.两者均是用GET.(2)注册版软件:在网站后台建立一个数据库,软件自动去取ID判断合法与否.现在一般注册软件都采用这种办法.

　　http协议的用途是非常大的.后面的章节讲述的内容可能如下:(1)http隧道的实现:写一个HTTP服务器,实现一些奇特的功能.例如:用IE查看别人的屏幕.遥控别人的电脑等.(2)WEB自动下载程序的三种方法.以及其它一些鲜为人知的应用.什么时候写出来?就要看有没有时间了,更重要的是你们喜欢与否.

查看本文来源