本文整理自网络，侵删。
//delphi webservices 字节数组 Base64编码
unit EncodingUtil;
interface
uses
SysUtils, Classes, Types, EncdDecd;
function BytesToBase64(const bytes : TByteArray) : string;
function StreamToBase64(AStream: TStream) : string;
implementation
function BytesToBase64(const bytes : TByteArray) : string;
var
memoryStream : TMemoryStream;
begin
memoryStream := TMemoryStream.Create;
memoryStream.WriteBuffer(bytes[0], Length(bytes));
memoryStream.Seek(0, soFromBeginning);
Result := StreamToBase64(memoryStream);
memoryStream.Free;
end;
function StreamToBase64(AStream: TStream) : string;
var
objSS: TStringStream;
begin
objSS := TStringStream.Create('');
try
EncodeStream(AStream, objSS); //Delphi7 自带unit EncdDecd的方法
Result := objSS.DataString;
finally
FreeAndNil(objSS);
end;
end;
相关阅读 >>
Delphi datetimepicker 宽度如何与Delphi自带style同步
Delphi cb_addstring 与lb_addstring的区别？
更多相关阅读请进入《Delphi》频道 >>
