`
sunties7
  • 浏览: 9219 次
  • 性别: Icon_minigender_1
  • 来自: 广州
社区版块
存档分类
最新评论

delphi TByteArray 装换成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;
end.
分享到:
评论

相关推荐

    delphi TByteArray 转base64

    delphi TByteArray 转base64

    Delphi_SysUtils中文翻译

    通过理解和掌握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]...

    传家宝2.65程序字符串参考

    - `"TByteArray"`、`"TBoundArray"`、`"TFileFormat"`:这些类名可能代表了不同类型的数据结构或文件格式,用于程序内部的处理。 通过上述分析可以看出,传家宝2.65程序字符串资源覆盖了从用户交互到内部逻辑的...

    基于net的超市管理系统源代码(完整前后端+sqlserver+说明文档+LW).zip

    功能说明: 环境说明: 开发软件:VS 2017 (版本2017以上即可,不能低于2017) 数据库:SqlServer2008r2(数据库版本无限制,都可以导入) 开发模式:mvc。。。

    LABVIEW程序实例-公式节点.zip

    labview程序代码参考学习使用,希望对你有所帮助。

    大米商城开源版damishop(适合外贸)

    大米外贸商城系统 简称damishop 完全开源版,只需做一种语言一键开启全球133中语言自动翻译功能,价格实现自动汇率转换,集成微信支付宝 paypal以及国外主流支付方式,自带文章博客系统。 软件架构 基于MVC+语言包模式,增加控制台,API导入产品方便对接其他系统(带json示例数据)。 使用要求 PHP7.4+ MYSQL5.6+ REDIS(可选) 安装方法 composer install 打开安装向导安装 http://您的域名/install 特色 1、缓存层增加时间与批量like删除 2、API产品导入方便对接其他系统 3、增加控制台命令行,命令行生成语言翻译包 4、后台一键开启自动翻译模式,支持全球133中语言,由于google代理翻译需要收费,这个功能需要付费。 5、可选购物车与ajax修改购物车产品 6、一键结算checkout 7、增加网站前台自定义路由 方便seo 更新日志 v3.9.7 集成鱼码支付接口,方便个人站长即使收款到账使用 v3.9.3 更新内容 1:增加ueditor与旧编辑器切换 2:增加可视化布局插

    LABVIEW程序实例-通过全局变量接收数据.zip

    labview程序代码参考学习使用,希望对你有所帮助。

    LABVIEW程序实例-日历控件.zip

    labview程序代码参考学习使用,希望对你有所帮助。

Global site tag (gtag.js) - Google Analytics