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;
end.
分享到:
相关推荐
delphi TByteArray 转base64
通过理解和掌握SysUtils单元中的这些知识点,开发者能够更加深入地使用Delphi进行程序开发,特别是在处理文件操作、时间计算以及数据转换等方面。SysUtils单元为Delphi提供了一个强大的工具箱,使得日常编程工作变得...
s : TByteArray; m : TByteArray; i, j: Integer; w, h : integer; cc: Integer; begin if not Assigned(ABmp) then Exit; SetLength(s, Length(AStr)); for i := 1 to Length(AStr) do begin s[i-1] := Ord(AStr[i]...
- `"TByteArray"`、`"TBoundArray"`、`"TFileFormat"`:这些类名可能代表了不同类型的数据结构或文件格式,用于程序内部的处理。 通过上述分析可以看出,传家宝2.65程序字符串资源覆盖了从用户交互到内部逻辑的...
白色大气风格的商务团队公司模板下载.zip
1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于计算机科学与技术等相关专业,更为适合;
1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于计算机科学与技术等相关专业,更为适合;
白色大气风格的手机电脑商城模板下载.zip
SecureCRT_9.6.0__mac
海康4117 Litermal 小李电子实验室 开源项目使用说明
白色大气风格的婚礼布置现场企业网站模板下载.zip
基于PLC和组态软件的智能停车场收费系统停车场电气控制
白色大气风格响应式项目团队动态企业网站模板.zip
“教育的智慧”读书分享会教案课件模板
白色大气风格的色彩管理网站模板下载.zip
计算机网络期末复习(第八版)谢希仁
白色大气的服装鞋包商城整站网站模板下载.zip
1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于计算机科学与技术等相关专业,更为适合;
白色扁平化风格的西餐厅网店模板下载.zip
数字时钟基础框架设计,内部关键模块均已仿真完成。。内容来源于网络分享,如有侵权请联系我删除。另外如果没有积分的同学需要下载,请私信我。