help calling DLL.

[devilyn]

i need help calling DLL.

VB Example

VB Declaration (USBmAPI.bas)

Public Declare Function USBm_Version _
    Lib "USBm.dll" _
        (ByVal versionstring As String) _
    As Integer
VB Example

Dim strng As String * 255
Dim result As Integer

    result = USBm_Version strng
    frmStatus.lstDevices.AddItem "About the USBm DLL: " & strng

this is what i got up to now. but it's crashing every time i run it

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <Array.au3>

Global $hdll
OpenAPI()
GetVer()

Func OpenAPI()
    $API = "USBm.dll"
    If $hdll <> 1 Then
        $hdll = DllOpen($API)
        ConsoleWrite($hdll&@CRLF)
        If $hdll = 1 Then
            ConsoleWrite("+ Dll Opened OK " & @CRLF)
            $DLLVersion = FileGetVersion($API)
            If $DLLVersion <> "6.1.0.0" Then
            ;MsgBox(16, "Warning", "This Program was created for API version 6.1.0.0 this may not work for you. "&"("&$DLLVersion&")")
            EndIf
        Else
            ConsoleWrite("! Error Opening OK " & @CRLF)
        EndIf
    EndIf
EndFunc   ;==>OpenOMAPI

Func GetVer()
Local $Return
    $aResult = DllCall($hdll, "str", "USBm_Version")
    _ArrayDisplay($aResult)
;~  If $aResult[0] = 0 Then
;~      ConsoleWrite("+ Handle = " & $aResult[3] & @CRLF)
;~      Return $aResult[3]
;~  Else

;~      Return $aResult[0]
;~  EndIf

EndFunc   ;==>OmPlrOpen

Thanks in advance

[Yashied]

$hDll = DllOpen('USBm.dll')
$Ret = DllCall($hDll, 'int', 'USBm_Version', 'str', '')
If Not @error Then
    ConsoleWrite($Ret[0] & ' - ' & $Ret[1] & @CR)
EndIf
DllClose($hDll)

[devilyn]

Thanks