关于UTF8字符串转换的问题，在线等。马上给分！

Question

如下一个字符串，怎么转换成正常的文字显示？
=?utf-8?B?TWljcm9zb2Z0IE9mZmljZSBPdXRsb29rIOa1i+ivlea2iOaBrw==?=我用    UTF8Decode() Utf8ToAnsi()这两个东西都不行啊？到低该怎么用？

Answer 1

对。邮件主题。outlook发的测试邮件

Answer 2

先用base64解碼,再utf8decode,
function Base64Decode(const s: string): string;
var
  Coder: TIdBase64Decoder;
begin
  Coder := TIdBase64Decoder.Create(nil);
  try
    Coder.AddCRLF := False;
    Coder.UseEvent := False;
    Coder.Reset;
    Coder.CodeString(s);
    Result := Copy(Coder.CompletedInput, 3, MaxInt);
  finally
    FreeAndNil(Coder);
  end;
end;
aa := 'TWljcm9zb2Z0IE9mZmljZSBPdXRsb29rIOa1i+ivlea2iOaBrw==';
bb :=    Base64Decode(aa) ;
caption :=   UTF8Decode(bb ) ;
內容好像是 "Microsoft Office Outlook ??消息"
我的是繁體操作系統,??可能是無法轉換的字符.