Unmanaged DLL File

eddom

小弟現在再 Develop 一個 Access Control System，必須要用 VB.NET 來 Control 一些 Hardware,但有些東東不明百，希望有人能幫我解答，謝謝．

1)如何 Include Unmanaged DLL File 呢? 可否用 <DLLImport("DLLName,dll")> Public Shared Function ...... ? 是不是只要 Import 過後就馬上能用?

2)以下是某個 Function (the one which included in the statement above) 的 Structure:
int GetDLLVersion(Char *data, int datasize)

據大家所知, *data 會 return value, 但我要如何 store 這個 value 進 VB.NET 的 Variable 呢?

eddom

Nobody can help me?

meemee

这里的人，很多都有工作和自己的家庭，即使懂你的问题，也没办法立刻帮你。

1，对，我试过可以这样做。另一个方式可以用Declare来做。

2，据我所知，如果是pointer to string，你可以在vb里直接用string来pass它parameter。不过，vb里没有pointer这种东西，所以遇到不同种类的type就可能需要用不同的方式来做。

以下是我调用User32的MessageBox的方式。

1. 
   
2. int MessageBox(
   
3. LPCTSTR lpszText,
   
4. LPCTSTR lpszCaption = _T( "" ),
   
5. UINT nType = MB_OK);
   

复制代码

1. 
   
2. Imports System.Runtime.InteropServices    'Used for DllImport
   
3. Imports System.Runtime.InteropServices.Marshal   'Used for StringToBSTR
   
4. 
   
5. Module Module1
   
6.     <DllImport("user32.dll")> Public Function MessageBox( _
   
7.     ByVal Hwnd As Integer, _
   
8.     ByVal text As String, _
   
9.     ByVal Caption As String, _
   
10.     ByVal ype As Integer) As Integer
    
11. 
    
12.     End Function
    
13. 
    
14. 
    
15.     Declare Auto Function MBox Lib "User32.dll" Alias "MessageBox" (ByVal hwnd As Int32, ByVal text As String, ByVal caption As String, ByVal uType As Int32) As Int32
    
16. 
    
17.     Declare Auto Function MBox Lib "User32.dll" Alias "MessageBox" (ByVal hwnd As Int32, ByVal ptext As IntPtr, ByVal pcaption As IntPtr, ByVal uType As Int32) As Int32
    
18. 
    
19.     Sub main()
    
20. 
    
21.         Dim PtrString1 As IntPtr
    
22.         Dim PtrString2 As IntPtr
    
23. 
    
24.         MBox(0, "test1", "title1", 0)
    
25. 
    
26.         MessageBox(0, "test2", "title2", 0)
    
27. 
    
28.         PtrString1 = StringToBSTR("test3")
    
29.         PtrString2 = StringToBSTR("title3")
    
30.         MBox(0, PtrString1, PtrString2, 0)
    
31.     End Sub
    
32. End Module
    

复制代码