Delphi：如何将 TIdBytes 编码为 Base64 字符串？

Question

如何将 TIdBytes 编码为 Base64 字符串（不是 AnsiString）？

  ASocket.IOHandler.CheckForDataOnSource(5);

  if not ASocket.Socket.InputBufferIsEmpty then
  begin
    ASocket.Socket.InputBuffer.ExtractToBytes(data);
    // here I need to encode data to base64 string, how ? I don't need AnsiString!!
    // var s:string;
    s := EncodeBase64(data, Length(data)); // but it will be AnsiString :(

或者如何通过 AContext.Connection.Socket.Write() 发送 AnsiString ？

编译器说从'AnsiString'隐式字符串转换为'string'

“data”变量包含来自网站的UTF-8数据。

Answer 1

您可以使用 Indy 的 TIdEncoderMIME 类将 String、TStream 和 TIdByte 数据编码为 base64（以及 TIdDecoderMIME 从 Base64 解码回 String、TStream 或 TIdBytes），例如：

s := TIdEncoderMIME.EncodeBytes(data);

至于发送AnsiString 数据，D2009+ 中的 Indy 根本没有任何 TIdIOHandler.Write() 重载来处理 AnsiString 数据，只有 UnicodeString数据。要按原样发送 AnsiString，您可以：

1) 使用 RawToBytes()AnsiString 复制到 TIdBytes 中code> 然后调用 TIdIOHandler.Write(TIdBytes)：

var
  as: AnsiString;
begin
  as := ...;
  AContext.Connection.IOHandler.Write(RawToBytes(as[1], Length(as)));
end;

2) 将 AnsiString 数据复制到 TStream 中，然后调用TIdIOHandler.Write(TStream)：

var
  as: AnsiString;
  strm: TStream;
begin
  strm := TMemoryStream.Create;
  try
    strm.WriteBuffer(as[1], Length(as));
    AContext.Connection.IOHandler.Write(strm);
  finally
    strm.Free;
  end;
end;

或者：

var
  as: AnsiString;
  strm: TStream;
begin
  as := ...;
  strm := TIdMemoryBufferStream.Create(as[1], Length(as));
  try
    AContext.Connection.IOHandler.Write(strm);
  finally
    strm.Free;
  end;
end;

Answer 2

在 Delphi 的更高版本中，默认使用 Unicode 字符串...您应该安全地将返回值简单地转换为 String 来摆脱该警告。 Base64 仅返回一小组值 (ascii) ...这永远不会导致转换为 Unicode 时数据丢失。

s := String(EncodeBase64(data, Length(data)));