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

最新推荐文章于 2024-04-13 20:09:13 发布

尘中客

最新推荐文章于 2024-04-13 20:09:13 发布

阅读量1.3k

点赞数 1

分类专栏： Delphi 文章标签： Delphi php GET

本文链接：https://blog.csdn.net/s371795639/article/details/53706620

版权

Delphi 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

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.

//
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();