Delphi

本类阅读TOP10

·分布式网络考试系统原型分析及实现
·游戏外挂设计技术探讨①
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·试题库开发中非文本数据的处理
·如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
·如何使用Delphi设计强大的服务器程序
·工人线程中关闭窗体的实现
·用DLL方式封装MDI子窗体。
·支持XP下托盘栏气球提示的托盘单元

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
用clientsocket发送http头请求

作者:未知 来源:月光软件站 加入时间:2005-6-5 月光软件站

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




相关文章

相关软件




月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

月光软件站·版权所有