本文整理自网络，侵删。
最近需要做delphi和php交互的方法；
就把这2个方法写了下
一，Get方法
const Url = 'http://www.delphitop.com';
procedure TForm1.Button1Click(Sender: TObject);
var
stream: TStringStream;
idHttpObj: TIdHTTP;
begin
try
stream := TStringStream.Create('', TEncoding.UTF8); //中文就不会乱码了
idHttpObj := TIdHTTP.Create(nil);
idHttpObj.Get(Url, stream);
Memo1.Text := stream.DataString;
finally
idHttpObj.Free;
stream.Free;
end;
二，POST方法，优点是比Get安全，我是通过json格式传送的；
(*********************************************************
获取web返回的信息
paramJson 参数，格式如下
'{"name":"myname","ID":"12356"}'
*********************************************************)
function GetWebData(URL:string;paramJson:string):string;stdcall;
var
slist : TStringList;
http : TIdHttp;
begin
try
http := TIdHttp.Create;
slist := TStringList.Create;
slist.Text := 'json='+paramJson;//加入json，方便php调用
result := http.Post(URL,slist);
finally
http.Free;
slist.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.lines.Add( GetWebData(URL,'{"key":"DFDGBFSE$#$$R","name":"中文","id":123456}') );
end;
通过PHP获取delphi发生的数据
<?php
$value = json_decode( $_POST['json'] );
var_dump($value);
?>
相关阅读 >>
Delphi firdac 对 sqlite 数字, int64也会被截断，会出现负数情况处理
Delphi firedac 连接access mdb数据库的方法
Delphi 2009 中 string 与 char 的改变
更多相关阅读请进入《Delphi》频道 >>
