捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
ZnCRC 数据校验
关键字：CRC16 CRC32 Stream 数据校验 多线程
来　自：原创
平　台：Win2k/XP/NT,Win2003 下载所需：0 火柴
深浅度：初级 完成时间：2006/7/8
发布者：dmzn 发布时间：2006/7/8
编辑器：DELPHI7 语　　种：简体中文
分　类：安全 下载浏览：3148/14640
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
为文件和数据流(Stream)提供16位32位的CRC校验运算。
多线程方式，大文件操作不会界面死锁，速度嘛比MD5快多了。
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
ZnCRC 数据校验
dmzn 2006/7/8 下+3148/浏+14641 评+8
CRC32自检壳加壳工具Unicode版
3652595 2006/4/17 下+1614/浏+11340 评+5
相关评论
共有评论8条 当前显示最后6条评论
iamdream 2006/7/8 22:52:38
以下是窗体代码（保存为Unit1.dfm : Delphi6）：
object Form1: TForm1
  Left = 203
  Top = 105
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #35745#31639#25991#20214#30340'CRC32'#26657#39564#20540
  ClientHeight = 93
  ClientWidth = 378
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object lblCRC32: TLabel
    Left = 192
    Top = 60
    Width = 78
    Height = 12
    Alignment = taRightJustify
    Caption = '&CRC32'#26657#39564#20540#65306
    FocusControl = edtCRC32
  end
  object btnFile: TButton
    Left = 8
    Top = 7
    Width = 75
    Height = 25
    Caption = #25991#20214#21517'(&F)'
    TabOrder = 0
    OnClick = btnFileClick
  end
  object edtFile: TEdit
    Left = 83
    Top = 10
    Width = 286
    Height = 19
    BevelKind = bkSoft
    BorderStyle = bsNone
    TabOrder = 1
    Text = 'edtFile'
  end
  object btnCalcCRC32: TButton
    Left = 8
    Top = 54
    Width = 169
    Height = 25
    Caption = #35745#31639'CRC32'#26657#39564#20540'(&R)'
    TabOrder = 2
    OnClick = btnCalcCRC32Click
  end
  object edtCRC32: TEdit
    Left = 272
    Top = 56
    Width = 97
    Height = 19
    BevelKind = bkTile
    BorderStyle = bsNone
    TabOrder = 3
    Text = 'edtCRC32'
  end
  object OpenDialog1: TOpenDialog
    Filter = #20219#24847#25991#20214'(*.*)|*.*'
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 112
    Top = 24
  end
end
iamdream 2006/7/8 23:06:27
我看了下，作者发布的代码也是分块计算的；诚如coffeemay所说，CRC似乎没办法用多线程来计算，所以用Application.ProcessMessages就可以了
guanbo 2006/7/9 7:50:15
学习ING....
MARK~!
register 2006/7/10 17:26:17
CRC32 与 CRC16 哪个更快一点?
iamdream 2006/7/10 21:35:12
可能是CRC32快一些吧，不过没测过^o^
linda0606 2006/7/14 14:53:44
我在使用中发现zncrc计算出来的CRC，有时不正确。这是怎么回事啊！
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表