procedure TfrmGetReportInter.btnGetReportClick(Sender: TObject);
var
mytemp:tStringList; //变量定义
begin
mytemp:=tStringList.Create;
mytemp.Add('UserId='+UserId.Text);
mytemp.Add('PassWord='+PassWord.Text);try
IdHTTP1:=TIdHTTP.Create(nil); IdHTTP1.Post('http://10.0.0.2:10026/get.asp',mytemp); //idhttp提交post请求
except
ShowMessage('估计是成功了'); //发送完毕记录
end;end;
该代码只能提交信息上去,不能打开get.asp页面,,要怎么做才可以提交时候打开get.asp页面
var
mytemp:tStringList; //变量定义
begin
mytemp:=tStringList.Create;
mytemp.Add('UserId='+UserId.Text);
mytemp.Add('PassWord='+PassWord.Text);try
IdHTTP1:=TIdHTTP.Create(nil); IdHTTP1.Post('http://10.0.0.2:10026/get.asp',mytemp); //idhttp提交post请求
except
ShowMessage('估计是成功了'); //发送完毕记录
end;end;
该代码只能提交信息上去,不能打开get.asp页面,,要怎么做才可以提交时候打开get.asp页面
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货