获取MD5
代码
uses
System.Hash;
procedure TForm1.Button1Click(Sender: TObject);
var
vStream: TMemoryStream;
vBytes: TBytes;
I: Integer;
begin
//获取字符串的MD5值
Memo1.Lines.Add(THashMD5.GetHashString('测试数据'));
//获取文件的MD5值
Memo1.Lines.Add(THashMD5.GetHashStringFromFile('C:\Users\Administrator\Desktop\ceshi.db'));
//获取流的MD5值
vStream := TMemoryStream.Create;
try
vStream.LoadFromFile('C:\Users\Administrator\Desktop\ceshi.db');
Memo1.Lines.Add(THashMD5.GetHashString(vStream));
finally
vStream.Free;
end;
//获取字符串的MD5字节数组
Memo1.Lines.Add('----------------');
vBytes := THashMD5.GetHashBytes('测试数据');
for I := Low(vBytes) to High(vBytes) do
Memo1.Lines.Add(vBytes[I].ToHexString);
end;
方法
System.Hash.THashMD5.GetHashStringFromFile
class function GetHashStringFromFile(const AFileName: TFileName): string;
unit
从指定的文件创建哈希摘要,并将创建的摘要的值作为十六进制的字符串返回。
System.Hash.THashMD5.GetHashString
class function GetHashString(const AString: string): string;
class function GetHashString(const AStream: TStream): string;
unit
从指定的输入值创建哈希摘要,并将创建的摘要的值作为十六进制的字符串返回。
System.Hash.THashMD5.GetHashBytes
class function GetHashBytes(const AData: string): TBytes;
class function GetHashBytes(const AStream: TStream): TBytes;
unit
从指定的输入值创建哈希摘要,并将创建的摘要的值返回为字节数组。
System.Hash.THashMD5.GetHashBytesFromFile
class function GetHashBytesFromFile(const AFileName: TFileName): TBytes;
unit
从指定的文件创建哈希摘要,并将创建的摘要的值返回为字节数组。