Delphi-idHttp-Post JSON用法 good

從國外網站抄來的代碼

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
$value = json_decode($_POST);
var_dump($value);
?>

 

http://blog.sina.com.cn/s/blog_722bc92e0101i7gp.html

http://stackoverflow.com/questions/12175952/delphi-tidhttp-post-json