继续关于DLL动态库函数调用问题。
动态库名 daa.DLL
函数：GetMotionStatus
声明: long
GetMotionStatus(long *Sta);
说明: 获取驱动器运动状态
参数: Sta:驱动器运动状态,为0表示没有正在运动的轴
返回值: 返回0表示函数调用成功
备注: 无
VB示例:
Dim S As Long
Dim Res As Long
CbianK.Enabled = False
Res = GetPosDev(pos(0), pos(1), pos(2), 0)
If Res <> 0 Then
MsgBox "Communication Error! Please check the communication!"
End If
If pos(2) < 2 * Mcdl(2) Then
Pmove 3, 2 * Mcdl(2) - pos(2), Cssd(2) * Mcdl(2), Acc(2) * Mcdl(2), Smove(2) * Mcdl(2)
Do
Res = GetMotionStatus(S)
DoEvents
If Stophab = True Then GoTo E:
Loop While (S <> 0)
End If
-----------
我现在想在VFP下调用。
可捣鼓半天一直出错。
Declare Long GetMotionStatus IN V6LinkDll.DLL Long
？GetMotionStatus() 参数太少
？GetMotionStatus(1) 声明DLL调用出现异常
请高手指点，仅有110分，100分奉上！~ dll
[解决办法]
试试：
lnSta=0
Declare Long GetMotionStatus In 盘符\路径\V6LinkDll.Dll Long @Sta
?GetMotionStatus(lnSta)
[解决办法]
Local lnSta As Long
* lnSta=0
* lnSta=-1
