本文整理自网络,侵删。
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;
相关阅读 >>
Delphi xe ttask.waitforall/waitforany 一不小心会造成内存泄露
Delphi 10 下提示sharedactivitycontext错误的解决方法
Delphi firemonkey 保存图片到jpg的方法 bmp转jpg
Delphi关于dbgrid和webbrowser的焦点问题
更多相关阅读请进入《Delphi》频道 >>