Idhttp向非80端口的地址Post数据,高手来看看啊~(100分)

  • 主题发起人 主题发起人 77902543
  • 开始时间 开始时间
7

77902543

Unregistered / Unconfirmed
GUEST, unregistred user!
我想发送一段这样的数据给192.168.0.1:9999端口
POST /test.asp?id=123456&ps=654321&str=我来做测试HTTP/1.0.. Connection: keep-alive..Content-Type: application/x-www-form-urlencoded..Content-Length: 4284..Host: 192.168.0.1:9999..Accept: text/html, */*..Accept-Encoding: identity..User-Agent: Mozilla/3.0 (compatible;
Indy Library)

ServerUrl:= '192.168.0.1';
GrStr:='我来做测试';
Params := TStringList.Create;
Params.Add('/test.asp?id=123456&ps=654321&str='+GrStr ) ;
Params.Add('/test.asp?id==123456');
Params.Add('&h=123456');
Params.Add('&str='+GrStr);
idhttp1.Port :=9999;
idhttp1.Request.Connection :='keep-alive';
idhttp1.Request.ContentType :='application/x-www-form-urlencoded';
idhttp1.Request.Host :='192.168.0.1';
idhttp1.Request.Accept :='text/html, */*';
idhttp1.Request.AcceptEncoding :='identity';
idhttp1.Request.UserAgent :='Mozilla/3.0 (compatible;
Indy Library)';
TestStr:=idhttp1.Post(ServerUrl , Params );
//到了这里就Socket Error 10061错误了。。。
ServerUrl:= '/test.asp';
GrStr := 'id=123456&h=123456&str=我来做测试';
Params := TMemoryStream.Create;
Params.Write(GrStr[1], Length(GrStr));
TestStr:=idhttp1.Post(ServerUrl, Params);
//也试过用这样的,也不行
用的是Delphi7+默认的控件,都弄了好几天了,一直没成功,有用过的高手Help一下啊~~
 
post没有弄过,不过可以考虑用 get 方法
你有那么大的数据吗?
我看你的teststr 的server url 好象不对哦 http://127.0.0.1:9999 这样的格式就可以呢啊
为什么不加http:// 啊???/
 
后退
顶部