Delphi 2010：EOleSysError’类型不匹配’调用ActiveX控件

发布时间：2020-12-15 09:47:07 所属栏目：大数据来源：网络整理

导读：我有这个C ActiveX API(没有源只是二进制文件)： // param a [out] Variant holding a byte array // param b [out] Reference to a longlong (Signed 64-bit)// param c [out] Reference to a shortshort foo(variant* a,longlong* b,short* c); 它在C#

我有这个C ActiveX API(没有源只是二进制文件)：

// param a [out] Variant holding a byte array 
// param b [out] Reference to a longlong (Signed 64-bit)
// param c [out] Reference to a short
short foo(variant* a,longlong* b,short* c);

它在C#中运行良好：

//auto-generated import:   
short foo(ref object a,ref long b,ref short c);

test {
 object a=null;
 long b=0;
 short c=0;
 foo(a,b,c); => OK 
}

Delphi 2010中的NOK(注意{?? Int64} OleVariant由Delphi导入工具添加)：

//auto-generated import:
function foo(var a: OleVariant; 
             var b: {??Int64}OleVariant; 
             var c: Smallint): Smallint;

procedure Test;
var
 a,b: OleVariant;
 c: Smallint;
begin
 foo(a,c); => **EOleSysError 'Type mismatch' exception**
end;

解决方法

您可以使用预定义的WinAPI类型：

// C definition
short foo(variant* a,short* c);

// Delphi definition
function foo(var a: OleVariant; 
             var b: LongLong; 
             var c: Smallint); Smallint;

procedure FooTest;
var
  a: OleVariant;
  b: LongLong;
  c,RetVal: ShmallInt;
begin
  Retval := foo(a,c);
end;

LongLong在Windows.pas中定义,还有许多其他WinAPI兼容类型. (至少他们通过Delphi XE在Windows单元中;由于跨平台和64位相关的重定位,XE2可能已经重新定位了其中一些.)

// Windows.pas definition (Delphi 2010)
type
  LONGLONG = int64;

正如David在下面的评论中提到的那样,longlong不是标准的C数据类型.但是,根据与更新中的参数相关的注释,它正是C开发人员所期望的,因此WinAPI定义是兼容的(并且为了文档目的而保留相同的名称以保持一致性).

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!