VFP 愛用者社區

[aujolin]

目前使用 MITSUBISHI 的 PLC，要從 PLC 上面讀取、寫入資料
透過安裝 MX Component，使用其提供的 ActiveX 元件來對 PLC 作存取


以下是 VB 的範例


Private Type udt32BitInteger
l32BitInteger As Long
End Type

Private Type udtInteger
iarrInteger(19) As Integer
End Type


Dim lReturnCode As Long 'Return code
Dim buffer32BitInteger As udt32BitInteger 'User-defined type for '32bit Integer'
Dim bufferInteger As udtInteger 'User-defined type for reading to the PLC


udtIntegerudtInteger'Error Handler
On Error GoTo CatchError

'The WriteDeviceBlock2 method is executed.(from D10-D11)
lReturnCode = ActEasyIF1.ReadDeviceBlock2("D10", 2 , bufferInteger.iarrInteger(0))

'When ActEasyIF returns error code, display error message.
If lReturnCode <> 0 Then
DisplayErrorMessage (lReturnCode)
Exit Sub
End if

'Copy the 'bufferInteger' to the user-defined type for '32bit Integer' data.
LSet buffer32BitInteger = bufferInteger

'Set the 32bit integer data to the TextBox as string.
txt_Read32BitInteger.Text = CStr(buffer32BitInteger.l32BitInteger)

Exit Sub

CatchError: 'Exception processing

CatchErrorCatchErrorszErrMsg = Error$(Err)'
MsgBox szErrMsg, vbCritical
End

===============================================

問題來了
在 VB 中，利用
ActEasyIF1.ReadDeviceBlock2("D10", 2 , bufferInteger.iarrInteger(0))
可讀取到資料，並放到 bufferInteger.iarrInteger 中
但是在 VFP 中，
dimension laInteger(20)
for lnI = 1 to 20
laInteger(lnI) = 0
endif
Thisform.ActEasyIF1.ReadDeviceBlock2("D10", 2 , laInteger )
執行後
laInteger 中的值卻都還是 0，
有試過把 laInteger 換成一個變數 lnInteger ， lnInteger=0
結果還是一樣，回傳值是 0
有試過把 laInteger 換成 @laInteger 結果會回傳 OLE 錯誤 型態不對應，


還請各位先進提供看法以及建議，謝謝各位的觀看以及回覆。

[aujolin]