VB中創建可以輸出函數的DLL
|
VB中創建的DLL只是COM組件，無法作為輸出函數的DLL。今天從朋友哪里搞到一種可以創建輸出函數的DLL的方法，欣喜之余，不敢獨享，現在把他介紹給大家。
VB編譯文件實際上采取了兩次編譯的方法，首先是調用c2.exe產生OBJ文件，然后調用Link.exe連接。如果在link的時候添加EXPORT選項，實際上是可以輸出函數的。但是，在VB的工程選項中將這些屏蔽了。而且過分的是：VB在Build完成后會將OBJ文件刪除，這樣就無法通過Link來輸出函數了。不過我找到一個比較齷鹺的變通的方法，就是先創建一個Exe工程，在Form_Load事件里面寫下面的語句:
| Private Sub Form_Load() If (MsgBox("hehe", vbOKCancel) = vbOK) Then Shell "link2.exe " & Command$ End If End End Sub |
然后編譯為linktemp.exe，接下來將LINK.EXE改名為Link2.exe，將linktemp.exe改名為link.exe。這樣在VB調用link.exe時會彈出對話框，處理就會中斷。這時就可以有機會將OBJ文件拷貝出來了 J
然后我創建了一個ActiveX DLL工程，在這個工程里面添加一個Module并創建一個Public函數mathadd：
| Public Function mathadd(ByVal a As Long, ByVal b As Long) As Long mathadd = a + b End Function |
Builder這個工程，在Link的時候就會中斷。然后把創建的Class1.obj、Module1.obj、Project1.obj備份出來。
然后就可以調用Link2.exe連接OBJ到DLL了，我的連接代碼是：
| link2.exe "e:vbdllClass1.obj" "e:vbdllModule1.obj" "e:vbdllProject1.obj" "E:Program FilesMicrosoft Visual StudioVB98VBAEXE6.LIB" /ENTRY:__vbaS /EXPORT:mathadd /OUT:"e:vbdllProjectOK.dll" /BASE:0x11000000 /SUBSYSTEM:WINDOWS,4.0 /VERS |
注意里面的/ENTRY和/EXPORT開關，/EXPORT開關聲明了輸出函數mathadd。這樣就大功告成了 :-D，可以被其他語言引入，例如在VB中，只需要：
| Private Declare Function mathadd Lib "e:vbdllProjectOK.dll" (ByVal a As Long, ByVal b As Long) As Long |
就可以了。