delphi 10.1 Berlin 中使用自带的 MD5 校验
2017-04-15 22:22
260 查看
uses System.Hash;//要引用这个单元哈 var Digest: TBytes; MD5: THashMD5; MD5Buf: TBytes; params: string; begin SetLength(MD5Buf, Length(...));//做一些自己爱做的处理 MD5.Reset; MD5.Update(MD5Buf); Digest := MD5.HashAsBytes; //返回 TBytes params := MD5.HashAsString;//返回 string end;
很愉快的就得到结果了,无论是要字符串形式还是要别的。
因为从 delphi XE5 开始,一波隆就开始废弃了 ShortString AnsiString AnsiChar PAnsiChar PPAnsiChar UTF8String PUTF8String RawByteString PRawByteString 等(当然,如果依依不舍还是有补丁可以下载的,但根本没必要,旧的不去,新的不来),以前的还需要第三方的单元,现在越来越简单的自带了。
补丁下载参见:http://andy.jgknet.de/blog/2013/10/the-return-of-the-byte-strings/
相关文章推荐
- delphi 10.1 Berlin 中使用自带的 Base64 编码
- 使用PHP自带的filter函数进行数据校验
- 使用Delphi自带的TUDPSocket收发数据
- RAD Studio, Delphi, C++Builder 10.1 Berlin第二季优惠活动
- [教学] Delphi Berlin 10.1 开发 Windows 10 平板 App 远程调试
- Delphi 10.1 Berlin下TStringGrid单元格样式设定
- 转:delphi中使用MD5
- Delphi 10.1 berlin提示脚本错误的解决方法
- Delphi 10.1 Berlin 官方未列之修正
- RAD Studio, Delphi and C++Builder 10.1 Berlin 新版本功能介绍 - 首场在线教学
- RAD Studio, Delphi, C++Builder 10.1 Berlin 第四季优惠活动
- Delphi XE2 使用自带vclstyle换肤
- java使用计算md5校验码方式比较两个文件是否相同
- delphi 10.1 berlin最新的开发框架:咏南中间件+咏南开发框架,购买后提供全部的源码
- struts2.xml的自带校验的使用
- 使用Delphi自带的TDockTabSet组件实现停靠功能(Jeremy North)
- delphi中使用MD5
- mydac 7.6.1.1 for delphi 10.1 berlin
- Delphi 10.1 Berlin Starter Edition