(原创,作者:cnzrs)
解决了一个问题, http post 问题
但是,很奇怪,以下的代码在delphi7上面成功运行,但是在家里的delphi6却不行。
procedure TForm1.Button1Click(Sender: TObject);
var
aStrs:TStringList;
begin
aStrs:=TStringList.Create;
aStrs.add('D0=all');//表单 变量名=变量值
aStrs.add('D1=jia');
aStrs.add('D2=all');
aStrs.add('D3=all');
aStrs.add('D4=all');
idhttp1.Host:='http://localhost/';
//idhttp1.AllowCookies:=false;
memo1.Text:=idhttp1.Post('http://localhost:17171/result.php',aStrs)
end;
end.
(原创,作者:cnzrs)