unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
http: Variant;
begin
http := CreateOleObject('MSXML2.XMLHTTP');
http.open('POST', 'http://127.0.0.1/gdzc/php/login.php', False);
http.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
http.send('username=李伟&password=8888');
Memo1.Text := http.responseText;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
http: Variant;
s: WideString;
begin
http := CreateOleObject('MSXML2.XMLHTTP');
http.open('POST', 'http://127.0.0.1/gdzc/php/asset_list.php', False);
http.send('start=1&limit=10');
s := UTF8Decode( http.responseText);

Memo1.Text := s;

end;

end.

注：网页是php编写，输出字符集为UTF-8,但在Delphi中POST下来后，汉字就只显示如图所示的编码而不是汉字，怎么转化为显示汉字呢？

shuiying 重新編輯於 2010-08-14 11:42:44， 註解 無‧

问题解决，采用了本论坛的代码。
unit Hanzi;

interface
uses
Classes,StrUtils,SysUtils;

function RTFUniCode(aTagText: AnsiString): WideChar;
function RTFUniToHanZi(aText: string): string;
function UniCodeRTF(aWC: WideChar): AnsiString;

implementation

function RTFUniCode(aTagText: AnsiString): WideChar;
var aAC: array[0..1] of Char;
begin
Result := #0;
if Length(aTagText) <> 6 then Exit;
if Copy(aTagText, 1, 2) <> '\u' then Exit;
HexToBin(PAnsiChar(Copy(aTagText, 5, 2)), @aAC[0], 1);
HexToBin(PAnsiChar(Copy(aTagText, 3, 2)), @aAC[1], 1);
Result := PWideChar(@aAC)^;
end;

function RTFUniToHanZi(aText: string): string;
var
i: Integer;
s1: string;
s2: string;
begin
i := Pos('\u', aText);
while (i > 0) do
begin
s1 := Copy(aText, i, 6);
s2 := RTFUniCode(s1);
aText := StringReplace(aText, s1, s2, [rfReplaceAll]);
i := Pos('\u', aText);
if i = 0 then Break;
end;
Result:=aText;

end;

function UniCodeRTF(aWC: WideChar): AnsiString;
var aAC: array[0..1] of AnsiChar;
begin
Result := '';
if aWC <> '' then begin
BinToHex(PAnsiChar(@aWC) 1, @aAC, 1);
Result := '\u' aAC;
BinToHex(PAnsiChar(@aWC), @aAC, 1);
Result := Result aAC;
end;
end;

end.