“天下为公”
---------------------------
《CRC32读取/写入》
此组件目的:计算文件的CRC32值。
此组件用途:CRC32
==Code=========
UCRC.pas
(*--------------------------------------------------------------------------
Delphi菜鸟XiaoBin 2006.5.31于黑龙江草甸子
http://blog.csdn.net/xiaobin_hlj80
veic_2005@163.com
--------------------------------------------------------------------------*)
unit UCRC32;
interface
uses
Windows, SysUtils, Classes, Udefine;
type
CRC32array=array[0..255]of Longint;
var
crc32table:CRC32array;
procedure generateCRC32Array;
function calculateCRC32Number(filePath1:WideString):DWORD;stdcall;
procedure saveFCNFile(saveFile1,CheckFilePath:WideString);stdcall;
function readFCNFile(loadFile1:WideString):DWORD;stdcall;
implementation
procedure generateCRC32Array;
var
i11,j22,crc:longword;
begin
for i11:=0 to 256 do
begin
crc:=i11;
for j22:=0 to 8 do
begin
if (crc and 1)=1 then
begin
crc:=(crc shr 1)xor $EDB88320;
end
else
begin
crc:=crc shr 1;
end;
end;
crc32table[i11]:=crc;
end;
end;
function calculateCRC32Number(filePath1:WideString):DWORD;
var
crc32:DWORD;
len:longword;
i1:integer;
fs:TFileStream;
Buffer: array[1..8192] of Byte;
begin
generateCRC32Array;
try
fs:=TFileStream.Create(filePath1,fmOpenRead);
len:=fs.Read(Buffer,sizeof(Buffer));
crc32:=$ffffffff;
for i1:=1 to len do
begin
crc32:=((crc32 shr 8)and $ffffff)xor crc32table[(crc32 xor dword(Buffer[i1]))and $ff];
end;
finally
fs.Free;
end;
Result:=crc32;
end;
procedure saveFCNFile(saveFile1,CheckFilePath:WideString);
var
fileStream1:TFileStream;
begin
DeleteFile(saveFile1);
If Not FileExists(saveFile1) Then
Begin
try
fileStream1:= TFileStream.Create(saveFile1, fmCreate);
FileHead.Version := '1.0.0.3';
FileHead.author:='xiaobin';
FileHead.CRC32:=calculateCRC32Number(CheckFilePath);
Filehead.UpdateDate := Now;
fileStream1.Write(FileHead, SizeOf(FileHead));
finally
fileStream1.Free;
end;
End;
end;
function readFCNFile(loadFile1:WideString):DWORD;stdcall;
var
fileStream2:TFileStream;
begin
try
fileStream2:=TFileStream.Create(loadFile1,fmOpenRead);
fileStream2.Read(FileHead,sizeof(FileHead));
Result:=FileHead.CRC32;
finally
fileStream2.Free;
end;
end;
end.
工程文件fcn.dpr
(*--------------------------------------------------------------------------
Delphi菜鸟XiaoBin 2006.5.31于黑龙江草甸子
http://blog.csdn.net/xiaobin_hlj80
veic_2005@163.com
--------------------------------------------------------------------------*)
library FCN;
uses
SysUtils,
Classes,
Udefine in 'Udefine.pas',
UCRC32 in 'UCRC32.pas';
{$R *.res}
EXPORTS
saveFCNFile name 'saveFCN',
readFCNFile name 'readFCN',
calculateCRC32Number name 'calCRC32';
begin
end.
分享到:
相关推荐
百年辛亥——纪念辛亥革命一百周年借鉴.pdf
辛亥革命教案-人教版教案.doc
中外历史纲要【上】第19课-辛亥革命-教学设计-教案.pdf
辛亥革命纪念团日活动方案.doc
辛亥革命纪念日活动方案.doc
【精品】高考历史-辛亥革命-专题训练卷.pdf
辛亥革命纪念日学习课件PPT课件(带内容).pptx
《辛亥革命》PPT-山东人民版思品六上PPT课件.PPT
第8课--辛亥革命.ppt
第四章-辛亥革命时期的新闻事业.ppt
3-2辛亥革命.ppt
辛亥革命的意义和局限-[试述辛亥革命的历史意义和局限性是什么?].doc
辛亥革命课件一.ppt
高中历史-辛亥革命教学设计.doc
高中历史教案-辛亥革命教案.docx
八年级历史上册 2.3 辛亥革命教案 中图版-中图版初中八年级上册历史教案.doc
《辛亥革命》课件.ppt
八年级历史上册 第8课 辛亥革命教案 北师大版-北师大版初中八年级上册历史教案.doc
八年级历史上册 第7课 辛亥革命教案 岳麓版-岳麓版初中八年级上册历史教案.doc
高中历史教案-二辛亥革命教案.docx