delphi Crc32 校验文件和字串

时间:2016-09-09 10:16:52
【文件属性】:

文件名称:delphi Crc32 校验文件和字串

文件大小:2KB

文件格式:RAR

更新时间:2016-09-09 10:16:52

delphi crc32 校验 文件完整性 字串完整性

delphi crc 校验 文件完整性 crc32 字串完整性 Crc32.pas 拿着就用 procedure TUpdate_Form.Button16Click(Sender: TObject); var CRC32 : DWORD ; begin //FileStr:=Application.ExeName;//这里取指定的文件的crc32校验值; GetCRC32File(ExtractFilePath(ParamStr(0))+'VersionList.xsd',CRC32); if CRC32<>0 then Memo1.Lines.Add(PChar(IntToHex(CRC32,8))); end; procedure TUpdate_Form.Button17Click(Sender: TObject); begin Memo1.Lines.Add(GetCrc32Str(Edit8.Text,8));//这里取指定字符串的CRC32校验值; end;


【文件预览】:
Crc32.pas

网友评论

  • 不错,很好用,接口简单
  • 有 CRC8/16/32 阵列发生器,有参考价值。
  • 还行,有参考价值!
  • 还行吧,不过差一点
  • 可以用,但不是我想要的