在不同語言環境中，要判斷一個文件是否重複比較麻煩。通過文件的一般標準的sha1算法，得到文件的HASH值判斷文件重複是可行的，多可文檔系統即可中提供了delphi語言的判斷函數，如下:
unit IdHashSHA;
function FileSHA1(const FileName: string): string;
var
InStream: TFileStream;
SHA1: TIdHashSHA1;
begin
SHA1 := TIdHashSHA1.Create;
InStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
InStream.Position := 0;
Result := SHA1.HashStreamAsHex(InStream).ToLower;
// certutil -hashfile 文件 SHA1 微軟SHA-1校驗
finally
// R := nil;
InStream.Free();
SHA1.Free();
end;
end;
原創文章，作者：投稿專員，如若轉載，請註明出處：https://www.506064.com/zh-hk/n/222319.html
微信掃一掃 
支付寶掃一掃 
