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;