VB调用Delphi编写的DLL - 2
2012-05-15 22:14
239 查看
本篇讲程序2!
本程序主要有两个功能:计算CRC32数值和读取FCN文件的内容。
通过这个两个数值的对比可以发现是否文件被修改过!
1. 按钮事件cmdCal_Click()
外调函数声明:
2. 按钮事件cmdReadFCN_Click()
外调函数声明:
下面是完整的代码(frmDemCrc32.frm):
附:
说明文件
文件接口
—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
本程序主要有两个功能:计算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:\s\datasb.fcn"
Top = 1320
Width = 3735
End
Begin VB.TextBox filePathTxt
Height = 495
Left = 600
TabIndex = 6
Text = "c:\s\datasb.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)
一、函数列表
函数名称 | 参数名称 | 数据类型 | 返回值 | 备注 |
calCRC32 | filePath1 | String | Long | 计算文件的CRC32值 |
readFCN | loadFile1 | String | Long | 读取FCN文件的CRC32值 |
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
相关文章推荐
- VB调用Delphi编写的DLL - 1
- VS2015编写能够被vb\delphi等调用的dll
- 编写VB可调用C/C++ DLL
- [原创]如何在Delphi中调用.Net编写的DLL中的函数(Function)、过程(Procedure)
- 用Delphi编写一个Svchost.exe调用的DLL模块
- 在非VS环境下C++ Builder,Delphi,VC,VB等调用C#开发的DLL的完整方法
- 22.Silverlight使用WebService调用C++,Delphi编写的DLL文件
- 求教,c#如何调用delphi编写的dll中的函数
- 关于在VB.NET中调用使用VC++编写的类库dll的一点笔记
- Delphi中高级DLL的编写和调用技巧
- Delphi环境中编写调用DLL的方法和技巧
- Java Native Interface(Java 调用Delphi、C、C++编写的DLL)
- 在VB中调用C/C++语言编写的dll,数组参数的传递
- Delphi中高级DLL的编写和调用
- Delphi中高级DLL的编写和调用
- delphi 基础之三 编写和调用dll文件
- Delphi中编写DLL调用子窗口
- VS2010开发——vc++项目编写DLL提供vb.net调用
- 使用Delphi调用C++编写的DLL
- C# 如何调用 Delphi 编写的 DLL 方法