文件名称: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