Delphi 2010: EOleSysError 'no coincide el tipo' llamando control ActiveX

Question

tengo esta API C ActiveX (no tienen las fuentes sólo los binarios):

// \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); 

que está funcionando muy bien en 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 
} 

NOK en Delphi 2010 (Tenga en cuenta que {} ?? Int64 OleVariant se añade por la herramienta de importación de 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,b,c); => **EOleSysError 'Type mismatch' exception** 
end; 

Answer 1

Puede utilizar los tipos predefinidos: WinAPI

// C definition 
short foo(variant* a, longlong* b, 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, b, c); 
end; 

LongLong se define en Windows.pas, junto con muchos, muchos tipos compatibles otra WinAPI. (Por lo menos están en la unidad a través de Windows Delphi XE; XE2 puede haber vuelto a poner algunos de ellos debido a la plataforma cruzada y 64 bits reubicaciones relacionados.)

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

Como David mantiene mencionar en los comentarios , longlong no es un tipo de datos C++ estándar. Sin embargo, en función de los comentarios relacionados con los parámetros en su actualización, es exactamente lo que el desarrollador de C++ pretendía que sea, y por lo tanto la definición de WinAPI es compatible (y conserva el mismo nombre para la coherencia a efectos de documentación).

Answer 2

longlong no es un tipo estándar de C++. No puedo decir desde el código C++ qué tipo usar.

Ahora, desde mi punto de vista, es más fácil trabajar desde C# donde los tipos son más inteligibles y confiables que C/C++. En C# long hay un entero de 64 bits con signo, por lo que Int64 en Delphi. Los otros dos parámetros en su fragmento Delphi en la pregunta se especifican correctamente.