線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:91
推到 Plurk!
推到 Facebook!

取得檔案MD5值

 
it1506
初階會員


發表:30
回覆:83
積分:47
註冊:2011-02-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2017-09-26 15:58:57 IP:59.120.xxx.xxx 未訂閱
[code delphi] function myMethod.StreamToMD5(fileName: string): String;
//returns MD5 has for a file
var
idmd5 : TIdHashMessageDigest5;
fs : TFileStream;
hash : T4x4LongWordRecord;

begin
try
idmd5 := TIdHashMessageDigest5.Create;
fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;

result := idmd5.HashStreamAsHex(fs);
finally
fs.Free;
idmd5.Free;
end;
end;
[/code]
編輯記錄
it1506 重新編輯於 2017-09-26 16:01:15, 註解 無‧
it1506 重新編輯於 2017-09-26 16:02:11, 註解 無‧
it1506 重新編輯於 2017-09-26 16:03:26, 註解 無‧
it1506 重新編輯於 2017-09-26 16:04:34, 註解 無‧
it1506 重新編輯於 2017-09-26 16:05:17, 註解 無‧
系統時間:2017-11-19 18:22:21
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!