HanDs
管理员

[Delphi文章] Delphi中CRC算法的实现 



调用:
uses Crc32;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=GetCrc32Str('11111111',8);//这里取指定字符串的CRC32校验值;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  FileStr:String;
  crc: DWORD; 
begin
  FileStr:=Application.ExeName;//这里取指定的文件的crc32校验值;
  GetCRC32File(FileStr,crc);
  if crc<>0 then
    Edit2.Text:=PChar(IntToHex(crc,6));
end;
本文来自Delphi之窗,原文地址:http://www.52delphi.com


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
Delphi CRC 算法的实现
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复