VB调用Delphi编写的DLL - 2
本篇讲程序2! 本程序主要有两个功能:计算CRC32数值和读取FCN文件的内容。 通过这个两个数值的对比可以发现是否文件被修改过! 1.按钮事件cmdCal_Click() Label_cal.Caption = calCRC32(filePath1)此接口有1个参数:
'定义要计算的文件(具体路径和文件名称) Dim filePath1 As String 外调函数声明:
'vb define Option Explicit Private Declare Function calCRC32 Lib "FCN.dll" (ByVal filePath1 As String) As Long 2.按钮事件cmdReadFCN_Click() Label_read.Caption = readFCN(loadFile1)此接口有1个参数: '定义要读取的文件(具体路径和文件名称) Dim loadFile1 As String Private Declare Function readFCN Lib "FCN.dll" (ByVal loadFile1 As String) As Long 下面是完整的代码(frmDemCrc32.frm): VERSION 5.00 Begin VB.Form frmDemCrc32 Caption = "CRC32演示" ClientHeight = 2790 ClientLeft = 60 ClientTop = 345 ClientWidth = 8895 BeginProperty Font Name = "宋体" Size = 9.75 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty LinkTopic = "Form1" ScaleHeight = 2790 ScaleWidth = 8895 StartUpPosition = 2 'CenterScreen Begin VB.TextBox fcnPathTxt Height = 495 Left = 600 TabIndex = 7 Text = "c:sdatasb.fcn" Top = 1320 Width = 3735 End Begin VB.TextBox filePathTxt Height = 495 Left = 600 TabIndex = 6 Text = "c:sdatasb.txt" Top = 360 Width = 3735 End Begin VB.CommandButton cmdReadFCN Caption = "读 FCN 文件" BeginProperty Font Name = "宋体" Size = 9 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 7440 TabIndex = 1 Top = 1320 Width = 1215 End Begin VB.CommandButton cmdCal Caption = "计算CRC32值" BeginProperty Font Name = "宋体" Size = 9 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 7440 TabIndex = 0 Top = 360 Width = 1215 End Begin VB.Label Label2 Caption = "读取值:" BeginProperty Font Name = "宋体" Size = 9 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4560 TabIndex = 5 Top = 1440 Width = 735 End Begin VB.Label Label1 Caption = "计算值:" BeginProperty Font Name = "宋体" Size = 9 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4560 TabIndex = 4 Top = 480 Width = 735 End Begin VB.Label Label_read ForeColor = &H80000001& Height = 495 Left = 5640 TabIndex = 3 Top = 1440 Width = 1605 End Begin VB.Label Label_cal ForeColor = &H80000001& Height = 495 Left = 5640 TabIndex = 2 Top = 480 Width = 1605 End End Attribute VB_Name = "frmDemCrc32" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Declare Function calCRC32 Lib "FCN.dll" (ByVal filePath1 As String) As Long Private Declare Function readFCN Lib "FCN.dll" (ByVal loadFile1 As String) As Long Private Sub cmdCal_Click() '定义要计算的文件(具体路径和文件名称) Dim filePath1 As String filePath1 = filePathTxt.Text '调用函数 Label_cal.Caption = calCRC32(filePath1) End Sub Private Sub cmdReadFCN_Click() '定义要读取的文件(具体路径和文件名称) Dim loadFile1 As String loadFile1 = fcnPathTxt.Text '调用函数 Label_read.Caption = readFCN(loadFile1) End Sub 附: 说明文件 文件接口 —CRC32动态库(FCN.DLL) 一、函数列表
二、VB声明 1.计算文件的CRC32值 ‘VB声明 PrivateDeclare Function calCRC32 Lib "FCN.dll" (ByVal filePath1 As String)As Long 2.读取FCN文件的CRC32值 ‘VB声明 Private Declare Function readFCN Lib"FCN.dll" (ByVal loadFile1 As String) As Long 使用说明:(xiaobin) 请把MSVBVM60.DLL和FCN.dll与程序文件在一个目录里!
下载地址:http://download.csdn.net/detail/binbsu37/4304645 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |