要利用CRC-32計算一XML檔的餘數,即Checksum值,在網路上Download了些Delphi 程式,RUN之後所得的值,卻都不對? 有無他法? Thanks...

網路上找到了已解決了Thanks

我最近也在找，後來發現 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":{["賈氏柏"]}}

編輯記錄