用 aardio 我们可以简单地调用 C++ 代码

admin2021-11-12  1.6K+

Yimao软件
我们今天就不说下面这种 aardio 调用原生 API 如何简单:

var point = { INT x; INT y; }
::User32.GetCursorPos(point);


我们今天要玩一点难度高一些的,例如玩 C 地看到头都打转的 COM 接口,我们今天说的 COM 接口,也不说那种写起来累人用起来很舒服的 COM 控件。
我们今天要说几个难度高一些的:
1、直接调用 VC 实现了 IDispatch 接口指针。
2、直接用 C 专有的 thiscall 约定调用 C 对象。
一般调用 COM 控件,我们知道要先注册 COM 控件,但是一般注册 COM 控件还是比较麻烦,大多数需要管理权限注册,出现恼人的警告对话框,体验不是很好。在 aardio 中一般可以免管理权限注册,甚至可以免注册调用很多 COM 控件。
但是仍然有一些 COM 控件比较顽固是不能免注册调用的,其实 COM 控件注册啊什么的搞得很复杂,最终只是为了创建一个 IDispatch 对象,如果我们可以跳过上面这些所有的步骤,这会是非常舒服的。
我们用 VC 创建 IDispatch 对象,然后直接拿到原生的 IDispatch 接口指针,并且直接转换为 aardio 对象,这带来的好处是:
1、不用再注册 COM 控件了。
2、当然也不用什么免注册了。
3、可以直接通过内存加载 DLL,不用再带一个 DLL 文件了。
今天我们用 VC6 来写一个简单的 DLL 做一下演示,别小看 VC6,VC6 是唯一所有操作系统都自带的系统 C 运行时,所以可以生成极小的 DLL,而且一般是够用的,当然你要换新版 VC ,写法一样。
先看 aardio 调用代码有多简洁:

import console;

//加载 DLL
var dll = raw.loadDll($"/test.disp.dll",,"cdecl");

//创建 COM 对象,aardio 可自动支持 IDispatch 接口
import com;
var comObject = com.QueryObjectR( dll.CreateIDispatchObjectP() );
 
//使用 COM 对象
comObject.name = "测试";
console.log( comObject.name ); 
console.pause();


是不是简洁到难以置信?!
要做到上面的效果,一个编程语言需要同时做到能支持原生 API 开发,还要能支持 COM 动态接口对象,能做到这 2 样的编程语言其实非常少。而真正做到简洁方便好用的就更少了。
下面我们再看一下上面这个 test.disp.dll 的 C 源代码,这个先要有心理准备,世界上最复杂的编程语言不是白叫的,如果学 aardio 这样简单的编程语言让我叫苦不迭,我很难保证你看到下面的 C 代码不会晕过去。
不过我已经尽力把下面的代码处理到尽可能简单了,你不需要安装巨无霸的 VC 开发环境,直接运行下面的代码就可以编译生成 DLL,aardio 自带 VC6 扩展库。

import vc6;
import console; 
var vc = vc6( "/",, console.open() )  

//输入 C   源码
vc.cpp  = /****** 
    #include <afxwin.h> 
    #include <afxdisp.h>
   
    class CTestObject: public CCmdTarget
    { 
        DECLARE_DYNCREATE(CTestObject)
        CTestObject(); 
    protected:
        virtual ~CTestObject();
        CString strName;
    public:
        afx_msg BSTR GetName();
        afx_msg void SetName(LPCTSTR lpszName); 
        DECLARE_DISPATCH_MAP()
    };
    
    IMPLEMENT_DYNCREATE(CTestObject, CCmdTarget)
    CTestObject::CTestObject() {
        EnableAutomation();
        AfxOleLockApp(); 
    }
    CTestObject::~CTestObject() {
        AfxOleUnlockApp();
    }
    
    BEGIN_DISPATCH_MAP(CTestObject, CCmdTarget) 
        DISP_PROPERTY_EX(CTestObject, "version", GetName, SetName, VT_BSTR) 
    END_DISPATCH_MAP()
     
    BSTR CTestObject::GetName() 
    { 
         return strName.AllocSysString();
    }
    
    void  CTestObject::SetName(LPCTSTR lpszName) 
    { 
        strName = lpszName;
    } 
    
    extern "C" __declspec(dllexport) LPDISPATCH __cdecl CreateIDispatchObject() {
       LPDISPATCH pDispatch = ( new CTestObject() )->GetIDispatch(FALSE);//参数FALSE指定不要添加引用计数
       return pDispatch;
    }
******/ 

//编译生成DLL 
vc.exec(
    'cl *.cpp'
    ,'/W3' /*警告等级*/
    ,'/MD' /*使用多线程动态运行库*/
    ,'/O2 /Ot /EHsc' /*代码优化选项*/
    ,'/D "WIN32" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_AFXDLL" ' /*定义常数和宏*/
    ,'/I"./INCLUDE"'/*指定头文件目录*/
    ,'kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib' /*导入库*/
    ,'/link /SUBSYSTEM:WINDOWS /MACHINE:X86' /*后面是链接参数 */
    ,'/out:test.disp.dll'/*输出文件名*/
    ,'/dll' /*输出DLL*/ 
    ,'/LIBPATH:".\LIB" /LIBPATH:".\LIB2"' /*指定库目录*/
)


好吧,我们进入下一个目标,使用 thiscall 协议调用 C 对象,现在你见过 C 代码了,我就不再把 C 代码,aardio 代码分开发了,用 C 编译 DLL,再用 aardio 调用 C 对象,一锅炖:

import vc6;
import console; 
console.open();

var vc = vc6( "/" )  

//输入C  源码
vc.cpp = /****** 
    #include <windows.h> 
      
    struct TestInfo{
        int x;
        int y;
        BYTE name[256];
    };
    
    class CTestObject
    {
    public: 
        //注意函数声明前加上 virtual 以支持 aardio 中的 raw.interface
        virtual  void getName(char *buffer,int len); 
        virtual  void getInfo(TestInfo *pInfo);
    };
    
    void CTestObject::getName(char *buffer,int len){
        strcpy(buffer,"测试");
    }
    
    void CTestObject::getInfo(TestInfo *pInfo){
        pInfo->x = 1;
        pInfo->y = 2;
        strcpy((char *)pInfo->name,"测试");
    }
    
    extern "C" __declspec(dllexport) CTestObject* __cdecl CreateTestObject() { 
        return new CTestObject();
    }
    
    extern "C" __declspec(dllexport) void __cdecl DeleteTestObject( CTestObject* pTest) {
        delete pTest;
    }
******/

//编译生成DLL 
vc.exec(
    'cl *.cpp'
    ,'/W3' /*警告等级*/
    ,'/MD' /*使用多线程动态运行库*/
    ,'/O2 /Ot /EHsc' /*代码优化选项*/
    ,'/D "WIN32" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL"' /*定义常数和宏*/
    ,'/I"./INCLUDE"'/*指定头文件目录*/
    ,'kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib' /*导入库*/
    ,'/link /SUBSYSTEM:WINDOWS /MACHINE:X86' /*后面是链接参数 */
    ,'/out:test.dll'/*输出文件名*/
    ,'/dll' /*输出DLL*/ 
    ,'/LIBPATH:".\LIB" /LIBPATH:".\LIB2"' /*指定库目录*/
)

var dll = raw.loadDll("/test.dll",,"cdecl");

import raw.interface;
class testObject{
  ctor(){
    //创建 C   对象,并获取指针,注意这里使用了 P 尾标获取指针。
    var pTest = dll.CreateTestObjectP();
    
    //C   对象指针转换为 aardio 对象。
    this = ..raw.interface( pTest,"
        void getName(string &buffer,int len);
        void getInfo(struct &pInfo); 
        ","thiscall" //注意调用约定为thiscall
    )
    
    //添加析构函数  
    ..table.gc(this,"delete")  
  };
  delete= function(){
    if(!owner.deleted){
      dll.DeleteTestObject( owner );
      owner.deleted = true;
    } 
  };
}

//创建对象
var obj = testObject();

//调用 C   函数
var name = obj.getName(25,25);
console.log(name);

//调用 C   函数
var info = obj.getInfo({ int x;int y;BYTE name[256]})
console.log( info.name  );

console.pause();


好吧,如果你只是想试着跑几句 C 代码,并不想生成 DLL,就像硬盘干干净净的,还能跑一下 VC 代码,aardio 提供了一个 vc6.loadcode() 函数可以直接运行 VC 代码,示例如下:

import vc6;
import console; 

console.showLoading(" 正在加载 C   代码");
var dll = vc6.loadcode(`
#include <windows.h>  
#include <winioctl.h>  

extern "C" {
  __declspec( dllexport ) int __cdecl getValue() { 
    return CTL_CODE(IOCTL_STORAGE_BASE, 0x0500, METHOD_BUFFERED, FILE_ANY_ACCESS);
  }
}`);

var value = dll.getValue();
var str = string.format("0x%X",value);
console.log("已复制: "   str,value);

import win.clip;
win.clip.write(str);

console.pause();
转载请注明原文地址: http://www.aardio.net/read-268.html
最新回复(0)
aardio问答
aardio编程语言