Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1257642
  • 博文数量: 788
  • 博客积分: 4000
  • 博客等级: 上校
  • 技术积分: 7005
  • 用 户 组: 普通用户
  • 注册时间: 2008-08-19 15:52
文章存档

2017年(81)

2011年(1)

2009年(369)

2008年(337)

分类:

2008-10-28 10:00:14



procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      LoginInfo:TStrings;  
      Response:TStringStream;      
  begin  
      Response   :=   TStringStream.Create('');  
      LoginInfo   :=   TStringList.Create;  
      try  
          LoginInfo.Clear;  
          LoginInfo.Add('id='+trim(form1.Edit1.Text));  
          try  
            IdHTTP1.Post('',LoginInfo,Response);  
          except  
          showmessage('登陆失败');  
          end;  
          showmessage(Response.DataString);      
    finally  
      LoginInfo.Free;  
      Response.Free;  
  end;      
  end;  
  为什么我得到应该有的数值?

请帮忙看看

upup

假设Edit1.Text:='12';  
   
  可能就是这样的效果吧:  
  在IE里访问?ID=12  
 

对呀   但是"?ID=12  
  "什么也得不到

UPUP



[新闻]Facebook开放Scribe源代码 改善运行效率
博客园首页 社区 新闻频道 小组 博问 网摘 闪存
阅读(1080) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~