API调用,VARIANT怎么处理

pw33

这几周都在沉迷于aardio，也尝试用她来实现各种功能，经查看相关例子和手册最后都能实现了，唯有VARIANT，这个比较麻烦。在网上查到VARIANT是个结构体（参考 http://www.newxing.com/Tech/Program/Cpp/VARIANT_556.html），但这个结构体还是比较麻烦的，结构体中包含联合体，联合体内又嵌套结构体，而且里面还有IUnknown、IDispatch、SAFEARRAY 等指针，我尝试用aardio实现这样的结构体，但本人学业不精，无法实现。
aardio里有这样现成的结构体或替代体吗，比如c#中使用object,vb中使用Variant，ole中用COleVariant等，这样都可以方便使用。
api原型：
int ReadItem(INT itemHandle,VARIANT *value);

在aardio中这样定义:
ReadItem=dll.api("ReadItem","int(INT itemHandle,struct &value)");
或
ReadItem=dll.api("ReadItem","int(INT itemHandle,pointer &value)");
都可以成功调用，但返回值value不知道怎么转换，请高手指点，谢谢！

神码

类型声明为pointer ，参数传入 com.Variant() 指针。
如果声明为struct，应传入结构体，结构体类型转换参考帮助手册： API数据类型。

示例：

1. 
   
2. import vc6;
   
3. 
   
4. var vc = vc6( "/",, import console )  
   
5. 
   
6. vc.cpp = /******
   
7.         #include <windows.h>
   
8.         #include <OaIdl.h>  
   
9.          
   
10.         extern "C" __declspec(dllexport) double  __cdecl TestVARIANT( VARIANT *v )  
    
11.         {  
    
12.                 return v->dblVal;
    
13.         }
    
14. ******/
    
15. 
    
16. //编译生成DLL
    
17. vc.exec(
    
18.         'cl *.cpp'
    
19.         ,'/W3'  
    
20.         ,'/MD'
    
21.         ,'/O2 /Ot /GL /EHsc'
    
22.         ,'/D "WIN32" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL"'  
    
23.         ,'/I"./INCLUDE"'
    
24.         ,'kernel32.lib user32.lib'  
    
25.         ,'/link /SUBSYSTEM:WINDOWS /MACHINE:X86'  
    
26.         ,'/out:test.dll' ,'/dll'  
    
27.         ,'/LIBPATH:".\LIB" /LIBPATH:".\LIB2"'
    
28. )
    
29. 
    
30. var dll = raw.loadDll("test.dll")
    
31. TestVARIANT = dll.api("TestVARIANT","double(pointer b)" ,"cdecl")
    
32. 
    
33. import com;
    
34. import console
    
35. console.printf( TestVARIANT(com.Variant( 123.5 ) ) )

复制代码

神码

一般提供VARIANT参数API的对象会支持IDispach接口，可以自动转换数据类型，不需要去声明API。
所以 VARIANT指针 在aardio里作用不大，仔细去看看接口文档，是否支持 com.CreateObject() 或 com.QueryObject() 直接转换为aardio对象

pw33

神码 发表于 2014-1-6 09:46
一般提供VARIANT参数API的对象会支持IDispach接口，可以自动转换数据类型，不需要去声明API。
所以 VARIAN ...

谢谢高手指点，找到自动化接口了