用clientsocket发送http头请求

feihuahaha

feihuahaha

2016-02-19 19:57

今天天气好晴朗处处好风光,好天气好开始,图老师又来和大家分享啦。下面给大家推荐用clientsocket发送http头请求,希望大家看完后也有个好心情,快快行动吧!

  

  procedure TForm1.Button2Click(Sender: TObject);
  var Httpstr:string;
  begin
      cs1.Active :=true;
      Httpstr:='GET http://www.paymesurf.com:80/surf3.php?usrid=607 HTTP/1.1'+#13#10;
      httpstr:=httpstr+'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*'+#13#10;
      httpstr:=httpstr+'Accept-Language: zh-cn'+#13#10;
      httpstr:=httpstr+'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; MyIE2; .NET CLR 1.1.4322)'+#13#10;
      httpstr:=httpstr+'Host: www.paymesurf.com'+#13#10;
      httpstr:=httpstr+'Proxy-Connection: Keep-Alive'+#13#10;
      httpstr:=httpstr+' ';
      memo1.Lines.Add(httpstr);
      cs1.Socket.SendText(httpstr);
  end;

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  procedure TForm1.cs1Read(Sender: TObject; Socket: TCustomWinSocket);
  var s:string;
      succ:boolean;
  begin
   succ :=false;
   s:=socket.ReceiveText;
   memo1.Lines.Add(s);
   if  (pos('200',s)0) then    //返回信息:200 OK,表示发送成功
   begin
    StatusBar1.SimpleText:='成功!';
    cs1.Active :=false;
    succ :=true;
   end else
   begin
    StatusBar1.SimpleText:='失败';
    cs1.active:=true;
    succ :=false;
   end;
  end;

  为什么没有反回数据呢。试了多次也不行。看来http头还真是难搞呀。

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)
展开更多 50%)
分享

猜你喜欢

用clientsocket发送http头请求

编程语言 网络编程
用clientsocket发送http头请求

五、读取HTTP请求头

Java JAVA基础
五、读取HTTP请求头

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

关于用IDhttp发送网站http头的问题

编程语言 网络编程
关于用IDhttp发送网站http头的问题

AJAX Http请求

Web开发
AJAX Http请求

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

AJAX教程(2):AJAX Http请求

Web开发
AJAX教程(2):AJAX Http请求

XML入门指南(17)XML HTTP 请求

Web开发
XML入门指南(17)XML HTTP 请求

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Win8系统电源常见问题

Win8系统电源常见问题

如何通过程序实现网卡的启用和禁止功能?

如何通过程序实现网卡的启用和禁止功能?
下拉加载更多内容 ↓