本文整理自网络，侵删。
unit untCRCMD5;
interface
{ 获取文件CRC校验码 }
function GetFileCRC(const iFileName: string): String;
{ 获取字符串CRC校验码 }
function GetStringCRC(const Str: string): Cardinal;
{ 取文件MD5码 }
function GetFileMD5(const iFileName: string): String;
implementation
uses Classes, IdHashMessageDigest, IdHashCRC;
{ 获取文件CRC校验码 }
function GetFileCRC(const iFileName: string): String;
var
MemSteam: TMemoryStream;
MyCRC : TIdHashCRC32;
begin
MemSteam := TMemoryStream.Create;
MemSteam.LoadFromFile(iFileName);
MyCRC := TIdHashCRC32.Create;
Result := MyCRC.HashStreamAsHex(MemSteam);
MyCRC.Free;
MemSteam.Free;
end;
{ 获取字符串CRC校验码 }
function GetStringCRC(const Str: string): Cardinal;
var
MyCRC: TIdHashCRC32;
begin
MyCRC := TIdHashCRC32.Create;
Result := MyCRC.HashValue(Str);
MyCRC.Free;
end;
{ 取文件MD5码 }
function GetFileMD5(const iFileName: string): String;
var
MemSteam: TMemoryStream;
MyMD5 : TIdHashMessageDigest5;
begin
MemSteam := TMemoryStream.Create;
MemSteam.LoadFromFile(iFileName);
MyMD5 := TIdHashMessageDigest5.Create;
Result := MyMD5.HashStreamAsHex(MemSteam);
MyMD5.Free;
MemSteam.Free;
end;
end.
相关阅读 >>
Delphi中destroy, free, freeandnil, release用法和区别
Delphi twebbrowser与嵌入youtube视频崩溃
用Delphi通过setupapi.dll列举和停用硬件设备
Delphi datetimetogmt gmt时间与tdatetime转换
更多相关阅读请进入《Delphi》频道 >>
