很多人使用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。

========================================如有需轉載的，請標明出處！謝謝======================