http://www.delphi2007.net/DelphiNetwork/html/delphi_20061212111303142.html
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('http://flash.chinaren.com/ip/id.php',LoginInfo,Response);
except
showmessage('登陆失败');
end;
showmessage(Response.DataString);
finally
LoginInfo.Free;
Response.Free;
end;
end;
为什么我得到应该有的数值?
请帮忙看看
upup
假设Edit1.Text:='12';
可能就是这样的效果吧:
在IE里访问http://flash.chinaren.com/ip/id.php?ID=12
对呀 但是"http://flash.chinaren.com/ip/id.php?ID=12
"什么也得不到
UPUP
本文探讨了使用Delphi进行网络请求的具体实现,包括如何构造请求参数、处理响应数据,并通过示例代码展示了如何向特定URL发送POST请求及接收响应。
2万+

被折叠的 条评论
为什么被折叠?



