VFP 愛用者社區

[aujolin]

目前使用 VFP 在控制一塊 I/O 卡，
有使用到該 I/O 卡的 DLL，

以下為 VB 的範例說明

Write Data to USBIO
函式原型BOOL WriteIOData(DWORD,LPBYTE,DWORD,LPDWORD)
參數1 : DWORD dwDevice 裝置編號
參數2 : LPBYTE pSrc Data Pointer 8051有2個Port
byte[0]=Port1,byte[1]=Port2
參數3 : DWORD dwSize dwSize=2 , 2個Port
參數4 : DWORD dwRet 傳回寫入的大小
其中必須寫兩個byte至USBIO,因有兩個PORT,Port1 Port2
不能只寫一個byte給USBIO,否則會發生USBIO等待第二個
Byte的情形


宣告
Private Declare Function WriteIOData Lib _ "DevLink.dll" ( _ ByVal hInst As
Integer, _ ByRef pSrc As Byte, _ ByVal dwSize As Integer, _ ByRef dwRet As
Integer _
) As Byte


執行
Private Sub Command2_Click()
tmp(0) = "&h" & Text3.Text
tmp(1) = 100
A = WriteIOData(0, tmp(0), 2, ret1)
Text5.Text = A
Text6.Text = ret1
End Sub


問題來了，
Byte 的格式在 VFP 中要如何宣告呢？
有試過用 Integer 的方式宣告，呼叫正常，但是資料寫入失敗 (I/O卡無反應)，
有試過用 Varbinary 的方式宣告，呼叫時便發生錯誤。

還請各位先進能幫忙。


PS：目前是使用 VFP9

[garfield]

用"益眾"的卡 ^^.
Declare INTEGER OpenLinkDevice IN DevLink.dll Integer hInst, Integer @ pHandle
Declare INTEGER WriteIOData IN DevLink.dll integer hDevice, string @ pSrc, Integer dwSize,integer @ dwRet
Declare INTEGER ReadIOData IN DevLink.dll integer hDevice,string @ pSrc,integer dwSize,integer @ dwRet

mopen=0
Thisform.hardhandle= OpenLinkDevice(0, @mopen)
mstr = CHR(thisform.portvalue1.Value)+CHR(thisform.portvalue2.Value)
mdwret = 0
mret = WriteIOData(Thisform.hardhandle, @mstr, LEN(mstr), @mdwret)

[aujolin]