vb中的type---end type 在vfp中如何代替，调用外部dll遇到麻烦了。

[wolf_fq]

Type DAM3000M_PARA_DI ' 数字量输入参数(1为高电平)
DI0 As Byte ' 0通道
DI1 As Byte ' 1通道
DI2 As Byte ' 2通道


............................
End Type
Declare Function DAM3000M_GetDeviceDI Lib "DAM3000M_32" (ByVal hDevice As Long, ByVal lDeviceID As Long, ByRef pDIPara As DAM3000M_PARA_DI, ByVal lBufferSize As Long) As Boolean ' 读取开关量输入
dim DiPara as DAM3000M_PARA_DI

bRet = DAM3000M_GetDeviceDI(hDevice, lDeviceID, DIPara, 8)
以上是vb代码
**-----------------
请问在vfp中如何做啊？

[都市夜猫]

大概这样： Declare Long DAM3000M_GetDeviceDI in DAM3000M_32 ; Long hDevice, Long lDeviceID, String @ pDIPara, Long lBufferSize DiPara = Replicate(Chr(1), 8) bRet = DAM3000M_GetDeviceDI(hDevice, lDeviceID, @ DIPara, Len(DiPara))

[oldbbb]

是完整的代码吗？

[wolf_fq]

谢谢，非常感谢，这个方法帮了我大忙了。