今天天气好晴朗处处好风光，好天气好开始，图老师又来和大家分享啦。下面给大家推荐用clientsocket发送http头请求，希望大家看完后也有个好心情，快快行动吧！
【 tulaoshi.com - 编程语言 】
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）
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头还真是难搞呀。
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）来源:https://www.tulaoshi.com/n/20160219/1622392.html
看过《用clientsocket发送http头请求》的人还看了以下文章 更多>>
