用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;

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头还真是难搞呀。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18