“无标题文档”解码

[tsingfeng_bhcss]

我在用TIdPOP3获取邮件信息时，字符串"无标题文档"返回的是 (230, 151, 160, 230, 160, 135, 233, 162, 152, 230, 150, 135, 230, 161, 163)
谁能告诉我这个什么编码方式啊？怎么解码？多谢啊！

[etomahawk]

UTF8编码

使用Utf8ToAnsi就可以转换为String类型。Utf8ToUnicode可以转换为Unicode.

[gyk120]

似乎不是UTF8，UTF8编码一般都带符号的，“无标题文档”转成UTF8应该是无标题文档

[etomahawk]

经过测试，的确是UTF8编码，测试代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
nTmp: Integer;
sDst: String;
sTmp: UTF8String;
begin
sTmp:= AnsiToUtf8('无标题文档');

sDst:= '';
for nTmp:= 1 to Length(sTmp) do
sDst:= sDst + Format(' %d', [BYTE(sTmp[nTmp])]);

ShowMessage(sDst);
end;

运行结果：
---------------------------
Project1
---------------------------
230 151 160 230 160 135 233 162 152 230 150 135 230 161 163
---------------------------
OK
---------------------------

[tsingfeng_bhcss]

[Quote=引用 3 楼 etomahawk 的回复:]
经过测试，的确是UTF8编码，测试代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  nTmp: Integer;
  sDst: String;
  sTmp: UTF8String;
begin
  sTmp:= AnsiToUtf8('无标题文档');

  sDst:= '';
  for nTmp:= 1 to Length(sTmp) do
    sDst:= sDst + Format(' %d', [BYTE(sTmp[nTmp])]);

  ShowMessage(sDst);
end;

运行结果：
---------------------------
Project1
---------------------------
230 151 160 230 160 135 233 162 152 230 150 135 230 161 163
---------------------------
OK 
---------------------------

[/Quote]
多谢 我先测试一下

[tsingfeng_bhcss]

太感谢了 一会结贴

[tsingfeng_bhcss]

[Quote=引用 4 楼 tsingfeng_bhcss 的回复:]
引用 3 楼 etomahawk 的回复:
经过测试，的确是UTF8编码，测试代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  nTmp: Integer;
  sDst: String;
  sTmp: UTF8String;
begin
  sTmp:= AnsiToUtf8('无标题文档');

  sDst:= '';
  for nTmp:= 1 to Length(sTmp) do
    sDst:= sDst + Format(' %d', [BYTE(sTmp[nTmp])]);

  ShowMessage(sDst);
end;

运行结果：
---------------------------
Project1
---------------------------
230 151 160 230 160 135 233 162 152 230 150 135 230 161 163
---------------------------
OK 
---------------------------


多谢 我先测试一下
[/Quote]
能告诉我怎么将 230 151 160 230 160 135 233 162 152 230 150 135 230 161 163
再转成string吗？我刚才试了一下 没转回去 不好意思