解码base64会增加额外的空格

Question

我在Delphi XE2工作 我正在使用此函数将 base64 字节数组转换为字符串

TEncoding.UTF7.GetString(byte1)

，然后使用此函数将字符串解码为字节数组

function Base64Decode(const EncodedText: string): TBytes;
var
  DecodedStm: TBytesStream;
  Decoder: TIdDecoderMIME;
begin
  Decoder := TIdDecoderMIME.Create(nil);
  try
    DecodedStm := TBytesStream.Create;
    try
      Decoder.DecodeBegin(DecodedStm);
      Decoder.Decode(EncodedText);
      Decoder.DecodeEnd;
      Result := DecodedStm.Bytes;
    finally
      DecodedStm.Free;
    end;
  finally
    Decoder.Free;
  end;
end;

，但输入字符串长度为 400，解码后其字节数组长度为 8192。

在某个地方添加了额外的空格...有什么建议吗？我做错了吗？

编辑...

这是我通过 tcp 从 c# 发送到 delphi XE2 应用程序的数据的 base64 字符串长度= 400

TVpQAAIAAAAEAA8A//8AALgAAAAAAAAAQAAaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAALoQAA4ftAnNIbgBTM0hkJBUaGlzIHByb2dyYW0gbXVzdCBiZSBydW4gdW5kZXIgV2luMzINCiQ3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFBFAABMAQgAGV5CKgAAAAAAAAAA4ACOgQsBAhkArAoAAMQCAAAAAAAwugoA

当我将TBytes转换为字符串时，我在delphi应用程序中收到TBytes，下面是

Tbytes to UTF-7 string 字符串长度 = 401

TVpQAAIAAAAEAA8A//8AALgAAAAAAAAAQAAaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAALoQAA4ftAnNIbgBTM0hkJBUaGlzIHByb2dyYW0gbXVzdCBiZSBydW4gdW5kZXIgV2luMzINCiQ3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA‘AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFBFAABMAQgAGV5CKgAAAAAAAAAA4ACOgQsBAhkArAoAAMQCAAAAAAAwugoA

TByte 转 UTF-8 字符串 字符串长度= 0 (零)

TByte 到 ANSI 字符串 字符串长度= 401

TVpQAAIAAAAEAA8A//8AALgAAAAAAAAAQAAaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAALoQAA4ftAnNIbgBTM0hkJBUaGlzIHByb2dyYW0gbXVzdCBiZSBydW4gdW5kZXIgV2luMzINCiQ3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA‘AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFBFAABMAQgAGV5CKgAAAAAAAAAA4ACOgQsBAhkArAoAAMQCAAAAAAAwugoA

之间有 1 个额外的位，但我不知道为什么会出现。

善意的建议我做错了什么吗？

Answer 1

您可以添加一行来获得您期望的长度：

function Base64Decode(const EncodedText: string): TBytes;
var
  DecodedStm: TBytesStream;
  Decoder: TIdDecoderMIME;
begin
  Decoder := TIdDecoderMIME.Create(nil);
  try
    DecodedStm := TBytesStream.Create;
    try
      Decoder.DecodeBegin(DecodedStm);
      Decoder.Decode(EncodedText);
      Decoder.DecodeEnd;
      Result := DecodedStm.Bytes;
      SetLength(Result, DecodedStm.Size);  // add this line
    finally
      DecodedStm.Free;
    end;
  finally
    Decoder.Free;
  end;
end;

Answer 2

虽然将 UTF7 编码与 Base64 解码混合是一个非常糟糕的主意，但您应该使用 Soap.EncdDecd.pas 中的内置函数 EncodeBase64 和 DecodeBase64 。

Answer 3

首先，为什么要涉及 UTF-7？ Base64 是一种仅使用 ASCII 字符的 7 位编码。将 Base64 与 UTF-7 相互转换是不必要的操作。如果您有一个包含 Base64 编码的字符八位组的 TBytes，那么您只需将 TBytes 直接复制到 AnsiString 中，无需进行任何解码all：

var
  byte1: TBytes;
  s: AnsiString;

SetString(s, PAnsiChar(byte1), Length(byte));

或者使用 Indy 的 BytesToStringRaw() 函数：

var
  byte1: TBytes;
  s: String;

s := BytesToStringRaw(byte1);

无论哪种方式，一旦有了 Base64 编码的字符串，就可以消除自定义的字符串Base64Decode() 功能完全通过使用 TIdDecoderMIME.DecodeBytes() 方法来实现：

var
  decoded: TBytes;

decoded := TIdDecoderMIME.DecodeBytes(s);