Delphi-idHttp-JSON用法

本文整理自网络，侵删。

 
从国外网站抄来的代码

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;//用完记得释放
 

相关阅读 >>

Delphi 字符串保存utf-8过程

Delphi tlistview按指定列排序

Delphi 服务器与客户端的时间同步

Delphi不占cpu的延时函数

Delphi 把整个窗体保存为图片的方法

Delphi gridpanel percent百分比设置

Delphi在64位系统下读写注册表

Delphi 创建console-控制台应用

Delphi gethref 获取<a href="链接"></a>中href的数据

Delphi 在消息窗口中显示进度条

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi-idHttp-JSON用法