請教CRC-32問題? |
缺席
|
justin1688
一般會員 發表:2 回覆:3 積分:1 註冊:2004-12-29 發送簡訊給我 |
|
justin1688
一般會員 發表:2 回覆:3 積分:1 註冊:2004-12-29 發送簡訊給我 |
|
jasper_dale
初階會員 發表:2 回覆:48 積分:35 註冊:2005-09-19 發送簡訊給我 |
我最近也在找,後來發現 Delphi 7 內附的 Indy 就已經有了這個 Checksum 功能!
[code delphi] uses IdHashCRC procedure TForm1.btnCRC32Click(Sender: TObject); var vFileName: String; vCRC32: LongWord; vHashCRC32: TIdHashCRC32; vMS: TMemoryStream; begin vFileName := 'D:\a.pdf'; // vMS := TMemoryStream.Create; vMS.LoadFromFile(vFileName); // vHashCRC32 := TIdHashCRC32.Create; vCRC32 := vHashCRC32.HashValue(vMS); // ShowMessage(IntToStr(vCRC32)); end; [/code]
------
{"name":{["賈氏柏"]}}
編輯記錄
jasper_dale 重新編輯於 2008-08-27 12:11:19, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |