用clientsocket发送http头请求
来源:互联网 发布:网络正常电脑无法上网 编辑:程序博客网 时间:2024/05/17 22:36
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头还真是难搞呀。
- 用clientsocket发送http头请求
- linux发送http请求不执行原因 请求头
- Java发送http请求并为http设置头信息
- HttpSendRequest向服务端发送数据,构造请求http头
- 浏览器怎么决定发送HTTP的Accept-Language请求头
- 用perl发送http请求
- 用perl发送http请求
- http请求头响应头
- Http请求头、响应头
- HTTP请求头概述
- HTTP请求头概述
- 读取HTTP请求头
- HTTP请求-头信息
- 读取HTTP请求头
- 读取HTTP请求头
- HTTP请求头
- HTTP请求头概述
- http请求头
- 嘿嘿,这个blog又能用了么
- 解决Wap显示乱码问题
- 用PLC来控制运料小车
- 关于用IDhttp发送网站http头的问题
- Learning ADSI - Part 1: Adding Users To W2K
- 用clientsocket发送http头请求
- 如何设置WAP Server ?
- Backdoor and Linux LKM Rootkit(中文)
- 谈JDBC SQLSERVER"Error establishing socket"
- 设计模式重要性
- 失眠的治疗方法(整理版)
- Eclipse 运行命令行参数大全
- 少走弯路的十条忠告
- 欢迎大家访问小弟的新书[快乐的潜水员]