从国外网站抄来的代码

Delphi source:

http := TIdHttp.Create(nil);

http.HandleRedirects := True;//允许头转向

http.ReadTimeout := 5000;//请求超时设置

http.Request.ContentType := 'application/json';//设置内容类型为json

jsonToSend := TStringStream.Create('{"name":"Peter Pan"}');//创建一个包含JSON数据的变量

jsonToSend.Position := 0;//将流位置置为0

Memo1.Lines.Text := http.Post('http://www.website.com/test.php', jsonToSend);//用MEMO控件接收POST后的数据返回

jsonToSend.free;
http.free;//用完记得释放


PHP source://以下是PHP网站的源码

GitHub 加速计划 / js / json
41.72 K
6.61 K
下载
适用于现代 C++ 的 JSON。
最近提交(Master分支:1 个月前 )
960b763e 3 个月前
8c391e04 6 个月前
Logo

旨在为数千万中国开发者提供一个无缝且高效的云端环境,以支持学习、使用和贡献开源项目。

更多推荐