用clientsocket发送http头请求

原创 2005年05月21日 08:45:00

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;

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请求

  • 2017年09月27日 11:10
  • 9KB
  • 下载

HttpSendRequest向服务端发送数据,构造请求http头

可以参考这篇文章: 使用 WinInte API 发送 HTTP 请求,不过在我的测试中发现是错误的.  //向http://192.168.8.72:8080/oss/client/analysi...

AsyncTask异步发送HTTP请求

  • 2017年08月18日 14:13
  • 985KB
  • 下载

Android 发送http请求

  • 2014年02月10日 10:20
  • 1021KB
  • 下载

ServerSocket和ClientSocket控件通讯的实例

在网络编程中,WinSocket   API编程是最基本,也是最麻烦的地方(说句不怕影响形象的话,我对此就是一知半解)。但是,如果你是使用C++Builder作为编程平台,你就偷着乐吧,有了BCB,菜...

ios cfnetwork 发送http请求简单实例

  • 2012年11月15日 17:04
  • 33KB
  • 下载

Java发送Http请求,解析html返回

  • 2013年07月25日 22:37
  • 65KB
  • 下载

利用ServerSocket和ClientSocket实现简单通讯

开始这前,在你的窗口中放入ServerSocket和ClientSocket控件。 ServerSocket的控件属性 threadcachsize:创建服务器线程的最大数目。 port...
  • cxcalm
  • cxcalm
  • 2015年08月31日 16:07
  • 1371

SQL 存储过程发送HTTP请求

  • 2010年08月12日 16:38
  • 816B
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用clientsocket发送http头请求
举报原因:
原因补充:

(最多只允许输入30个字)