delphi Post数据到网页


var
 http: TIdHttp;
 sendtoserver: TStringStream;
 str: string;
begin
 http := TIdHttp.Create();  // 创建
 http.HandleRedirects := True;  // 允许转头
 http.ReadTimeout := 3000;  // 延迟时间
 http.Request.ContentType := 'application/json';  // 要求格式
 sendtoserver := TStringStream.Create(joserv.AsJSON());
 str := http.Post('http://192.168.1.149/epark/WinData.php', sendtoserver);  // 服务器端
end;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678