delphi Post數據到網頁

varhttp: TIdHttp;sendtoserver: TStringStream;str: string; 
beginhttp := 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;

?