请教一个dllcall的写法？[已解决]

haijie1223

回复 15# nmgwddj
果然如此，又学到了。以前只知道是ptr*是直接到地址取值。原来*是引用。
那么上面的函数又可以精简了。

[au3]#NoTrayIcon
#RequireAdmin
#pre_usex64=n
#include <array.au3>
Local $array = ReadIDCardComm()
ConsoleWrite(@error & @CRLF)
_ArrayDisplay($array, @error)

Func ReadIDCardComm($iPort = 1001, $nTimeOut = 10000)
        Local $aRet = DllCall("IdReaderApiComm.dll", _
                        'int', 'ReadIDCardComm', _
                        'int', $iPort, _
                        'wstr', '', 'int*', '', _
                        'wstr', '', 'int*', '', _
                        'wstr', '', 'int*', '', _
                        'wstr', '', 'int*', '', _
                        'wstr', '', 'int*', '', _
                        'wstr', '', 'int*', '', _
                        'wstr', '', 'int*', '', _
                        'wstr', '', 'int*', '', _
                        'wstr', '', 'int*', '', _
                        'wstr', '', 'int*', '', _
                        'int', $nTimeOut)
        If Not @error Then Return $aRet
        Return SetError(@error, 0, 0)
EndFunc   ;==>ReadIDCardComm[/au3]

仙乃日

回复 16# haijie1223


    代码可以运行了，但读取出来全是乱码。
暂时使用控件对象可以正确读取了。

1. #PRE_UseX64=n
   
2. $IdCard = ObjCreate("IDCARDREADER.IdCardReaderCtrl.1")
   
3. $IdCard.SetTimeout(5000); //设置读取超时时间
   
4. $IdCard.SetPort(1001); //设置 com 口号或 usb 后号
   
5. $IdCard.SetPicPath(@ScriptDir & "\ZP.bmp")
   
6. $iRet=$IdCard.ReadIDCard(); //开始读取
   
7. If $iRet<>0 Then
   
8. MsgBox(0,0,$IdCard.GetErrMsg())
   
9. Else
   
10. Local $Name=$IdCard.GetName(); //姓名
    
11. Local $Nation=$IdCard.GetNation(); //民族
    
12. Local $Address=$IdCard.GetAddress()
    
13. Local $IDNo=$IdCard.GetIDNo()
    
14. Local $Sex=$IdCard.GetSex()
    
15. Local $Birthday=$IdCard.GetBirthday()
    
16. MsgBox(0,"身份证信息", $Name & @CRLF & $Nation & @CRLF & $Address & @CRLF & $IDNo & @CRLF & $Sex & @CRLF & $Birthday)
    
17. EndIf

复制代码