Delphi通过Get获取来自PHP的返回值

Delphi代码

 

unit Unit1;

  

interface

  

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,

  IdTCPClient, IdHTTP;

  

type

  TForm1 = class(TForm)

    Button1: TButton;

    IdHTTP1: TIdHTTP;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

  

var

  Form1: TForm1;

  

implementation

{$R *.dfm}

  

procedure TForm1.Button1Click(Sender: TObject);

var

 

  idHttp1: TIdHTTP;

  stream: TStringStream;

 

begin

 

 stream := TStringStream.Create('');

 idHttp1 := TIdHTTP.Create(nil);

 

  try

 

  idHttp1.Get('http://localhost/DelphiRequest/index2.php', stream);

  Memo1.Lines.Add(UTF8Decode(stream.DataString));

 

  finally

  idHttp1.Free;

  stream.Free;

 

end;

end;

end.

//////////////////////////////////////////////////////////////////////////////////////PHP代码

 

<?php
/**
 * Created by PhpStorm.
 * User: Administrator
 * Date: 2016/12/16 0016
 * Time: 下午 3:00
 */
function test(){
     $P="中文字符";
    if(empty($_GET)){

        return $P;
    }else{
        return "cuowu";
    }
}
echo test();