cnvcl的base64单元 - CnPack IDE 专家包（CnWizards） - CnPack Forum

灌水科科长

UID 65881
Digest Posts 0
Credits 115
Posts 37
点点分 115
Reading Access 10
Registered 2011-5-26
Status Offline

Post at 2016-4-29 16:55 Profile | Blog | P.M.

cnvcl的base64单元

function Base64Encode(InputData: TStream; var OutputData: string): Byte; overload;
var
  Str: TStringStream;
begin
  Str := TStringStream.Create('');
  try
Str.CopyFrom(InputData, InputData.Size);
Result := Base64Encode({$IFDEF UNICODE}AnsiString{$ENDIF}(Str.DataString), OutputData);
  finally
Str.Free;
  end;
end;

InputData中间如果某些byte是$00 会影响Str.DataString，继而出现加密错误

Passion (LiuXiao)

管理员

UID 359
Digest Posts 19
Credits 6756
Posts 3554
点点分 6756
Reading Access 102
Registered 2004-3-28
Status Offline

Post at 2016-5-3 10:05 Profile | Blog | P.M.

我查查。

Passion (LiuXiao)

管理员

UID 359
Digest Posts 19
Credits 6756
Posts 3554
点点分 6756
Reading Access 102
Registered 2004-3-28
Status Offline

Post at 2016-5-3 16:56 Profile | Blog | P.M.

已修正。并增加了一个允许传入内存块指针与长度的方法进行Encode。麻烦从git上更新一下最新代码？