VB调用Delphi编写的DLL - 1

最新推荐文章于 2022-02-18 10:46:55 发布

iteye_6233

最新推荐文章于 2022-02-18 10:46:55 发布

阅读量464

点赞数

本文介绍了一个使用VB调用DLL文件进行文件校验的例子。通过一个简单的按钮点击事件，程序能够生成FCN文件并校验指定文件的CRC值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

很多人使用VB6来编写实用程序，但是VB6有些功能实现，太费劲了。

但是，VB提供了标准的COM接口---只要在Windows下运行的程序经过转换VB都可以调用！

本人(xiaobin)通过以前做给客户的DLL文件，来做一个抛砖引玉！希望给有此兴趣和需要的人提供一个帮助！

DLL提供的功能主要为文件校验之用！（根据C程序，使用Delphi实现）

有兴趣改写C程序的网上有很多！

程序1：生成FCN文件

程序2：读取文件CRC值与FCN文件保存的CRC值

本篇就讲一下程序1！

程序1只有一个按钮事件，cmdCall_Click()

主要功能就是完成FCN文件的保存。

  '调用过程
  Call saveFCN(saveFile1, CheckFilePath1)

此接口有两个参数：

           saveFile1：要保存的文件名（包含路径）

           CheckFilePath1：要校验的文件名（包含路径）

他们都是字符串类型，即String。

外调函数声明：

'vb define
Option Explicit
Private Declare Sub saveFCN Lib "FCN.dll" (ByVal saveFile1 As String, ByVal CheckFilePath As String)

下面是完整的代码（frmDemo.frm）：

VERSION 5.00
Begin VB.Form frmDemo 
   Caption         =   "调用FCN文件校验DEMO"
   ClientHeight    =   2955
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4455
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9.75
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   2955
   ScaleWidth      =   4455
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox fcnPathTxt 
      Height          =   375
      Left            =   720
      TabIndex        =   2
      Text            =   "c:\s\datasb.fcn"
      Top             =   1440
      Width           =   3495
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   720
      TabIndex        =   1
      Text            =   "c:\s\datasb.rar"
      Top             =   600
      Width           =   3495
   End
   Begin VB.CommandButton cmdCall 
      Caption         =   "调用文件校验过程"
      Height          =   375
      Left            =   2280
      TabIndex        =   0
      Top             =   2160
      Width           =   1935
   End
End
Attribute VB_Name = "frmDemo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Sub saveFCN Lib "FCN.dll" (ByVal saveFile1 As String, ByVal CheckFilePath As String)

Private Sub cmdCall_Click()
  '定义要保存的文件和检查的文件(具体路径和文件名称)
  Dim saveFile1, CheckFilePath1 As String

  'saveFile1 = "c:\s\datasb.fcn"
  CheckFilePath1 = Text1.Text
  
  saveFile1 = fcnPathTxt.Text
  
  
  '调用过程
  Call saveFCN(saveFile1, CheckFilePath1)
  frmDemo.Caption = "生成FCN文件-完成"
End Sub

本篇End。

========================================如有需转载的，请标明出处！谢谢======================