-
本版专家分：156结帖率 98.28% -
VB代码
函数声明
private Declare Function WriteDataMulti Lib "VestoreForVb.dll" (sPointName() As String, ByRef dValue As Double, ByRef lTime As Long, ByVal lCount As Long) As Long
Dim lTag(2) As String
Dim lValue(2) As Double
Dim lTime(2) As Long
lTag(0) = "a"
lTag(1) = "b"
lTag(2) = "c"
lValue(0) = 123
lValue(1) = 234
lValue(2) = 345
lTime(0) = fCalDateLong(Now)
lTime(1) = fCalDateLong(Now)
lTime(2) = fCalDateLong(Now)
If WriteDataMulti(lTag(), lValue(0), lTime(0), 3) = 1 Then
MsgBox ("成功")
End If
在VB下调用正常
DELPHI代码
function WriteDataMulti(sPointName:pointer;var dValue:double;var lTime:longint;lCount:longint):longint;stdcall;external libname;
lTag:array of string;
lValue:array of double;
lTime:array of longint;
并且用setlength对这三个数组进行了赋值
Ret:=WriteDataMulti(@lTag, @lValue[0], @lTime[0], count);
结果报错，提示Extenal exception E0607363这样的错误，我已经检查过这三个数组均设好了正确的数据
怀疑声明或调用不对，请大师指点，在线等。
-
本版专家分：156
-
函数C++的原型是
int _stdcall WriteDataMulti(SAFEARRAY **psPointName,double *dValue, long *lTime,long count)
大家帮我看看怎么调用才正常。
-
本版专家分：20342
-
-
红花
2019年2月 其他开发语言大版内专家分月排行榜第一
2019年1月 Delphi大版内专家分月排行榜第一
2018年8月 Delphi大版内专家分月排行榜第一
2018年7月 Delphi大版内专家分月排行榜第一
2018年4月 Delphi大版内专家分月排行榜第一
2018年3月 Delphi大版内专家分月排行榜第一
-
- 黄花 2016年11月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2011年10月 其他开发语言大版内专家分月排行榜第三
2010年8月 其他开发语言大版内专家分月排行榜第三
2007年5月 其他开发语言大版内专家分月排行榜第三
-
-
uses WinApi.ActiveX;
function WriteDataMulti(var psPointName: PSafeArray; var dValue: double; var lTime: longint; count: longint): integer; stdcall; external 'VestoreForVb.dll';
