在不更改“非 unicode 程序设置的 windows 语言”的情况下使 base64 解码文本可见

Question

我使用 base64 编码工具（如 Indy 工具）在 TMemo 中编码了一个文本，但在解码结果文本后，我只得到一些“？”字符而不是正确的文本。 原文为波斯语。

问题是：

如果我将 windows“非 unicode 程序的语言”设置为波斯语，我可以看到解码后的文本。但我想让解码后的文本可见而不改变“windows non unicode ...”。

它大约两个星期我坚持这个！我试过 "UTF8ToWideString" , "UTF8ToUTF16","UTF8ToUnicodeString","UTF8ToString","UTF8Decode" 和 "UTF8EncodeToShortString" ，但没有一个起作用。

编码 >

  var input,output:TstringStream;
    begin
    input:=nil;
    output:=nil;
    input:=TstringStream.Create;
    output:=TstringStream.Create;
    memo1.Lines.SaveToStream(input);

    input.Position:=0;
    encoder.Encode(input,output);
    output.Position:=0;
    memo2.Clear;
    memo2.Lines.LoadFromStream(output);
    input.Free;
    output.Free
    end; 

解码>>

var input,output:TStringStream;
  begin
  memo3.Clear;
  input:=nil;
  output:=nil;
  input:=TStringStream.Create();
  output:=TStringStream.Create();
  memo2.Lines.SaveToStream(input);
  input.Position:=0;
  decoder.DecodeBegin(output);
  decoder.Decode(input);
  decoder.DecodeEnd;
  output.Position:=0 ;
  memo3.Lines.Add(output.DataString);
   end;

我也试过delphi内部编码工具。如下

// encoding >
memo2.Lines.Add(EncodeString(memo1.Lines.Text))
// decoding>

 memo3.lines.add(DecodeString(memo2.Lines.Text)) ;

Answer 1

试试这样的：

memo2.Text := TIdEncoderMIME.EncodeString(memo1.Text, IndyUTF8Encoding);

memo3.Text := TIdEncoderMIME.DecodeString(memo2.Text, IndyUTF8Encoding);