Delphi-idHttp-JSON用法

从国外网站抄来的代码Delphi source:

http := TIdHttp.Create(nil);

[/code]

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

[/code]

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

[/code]

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

[/code]

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

[/code]

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

[/code]

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

[/code]

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

[/code]

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