Delphi-idHttp-Post JSON用法 good

標籤：資料   bsp   tac   建立   red   逾時   內容類型   creat   content   

從國外網站抄來的代碼

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

Delphi-idHttp-Post JSON用法 good