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源代码 改善运行效率博客园首页 社区 新闻频道 小组 博问 网摘 闪存
阅读(1088) | 评论(0) | 转发(0) |