首页 » 网站建设 » php挪用delphidll技巧_在 aardio 中嵌入 Delphi 控件

php挪用delphidll技巧_在 aardio 中嵌入 Delphi 控件

duote123 2024-11-06 0

扫一扫用手机浏览

文章目录 [+]

运行这个范例,会自动检测 Delphi 编写的 DLL 是否存在,不存在会自动打开 Delphi 工程,也便是这个文件:

~\codes\范例程序) 调用其他措辞\D) Delphi\Project1.dpr

把稳上面路径前面 ~ 符号,这在 aardio 里表示当前 EXE 文件所在目录。

php挪用delphidll技巧_在 aardio 中嵌入 Delphi 控件

首先在 Delphi 的窗口源码( Unit1.pas 文件) 添加一个创建窗口的函数如下:

php挪用delphidll技巧_在 aardio 中嵌入 Delphi 控件
(图片来自网络侵删)

function CreateForm(parentHandle: HWND): HWND; stdcall;var Form1 : TForm1;begin Form1 := TForm1.CreateParented(parentHandle); Form1.Show; Result := Form1.Handle;end;

这个函数吸收一个外部窗口的句柄,并且将 TForm1 创建为外部窗口的子窗口,然后返回创建窗口的句柄,把稳在 Delphi 工程的 exports 语句中导出 CreateForm 函数 。

然后在 aardio 中调用该函数创建控件,这里要把稳几个知识点:

1、在 win.ui.ctrl 名字空间下创建类,就可以在窗体上利用该控件类名,例如我们新建或导入一个类 win.ui.ctrl.delphiForm, 然后我们就可以拖一个自定义控件到窗体上,并且将该控件的类名改为 delphiForm 就可以了。

2、自定义控件可以返回创建控件的参数或类名,也可以直接创建控件并将控件窗口的句柄包含到 hwnd 属性中。

下面我们在 aardio 中编写 win.ui.ctrl.delphiForm 控件:

var delphiDll = raw.loadDll($"\Project1.dll");class win.ui.ctrl.delphiForm{ ctor(parent,tParam){ this.hwnd = delphiDll.CreateForm(parent.hwnd); }; @..win.ui.ctrl.metaProperty()}

可以将上面的源码放到库文件中,再用 import win.ui.ctrl.delphiForm 语句导入,大家可以在标准库中打开 win.ui.ctrl 名字空间,可以看到非常多的控件类库。

这里要解释一下,为什么 raw.loadDll($"\Project1.dll"); 这里要加一个 $ 符号,这在 aardio 中用于将文件编译到代码中,然后运行时通过内存加载该 DLL文件,也便是发布后就不再须要该 DLL了,这非常方便。
当然,不是必须要这样做,也有一些 DLL 并不支持内存加载。

可以看到,在 aardio 中调用 Delphi 的导出函数非常大略,直接调用就可以了,不须要任何繁芜的代码,实际上只要能编写 DLL 的措辞,我们都可以类似去调用他。

那么在 Delphi 里如何调用 aardio 函数呢?!
实在很大略,只要能调用 Delphi 函数,那么就可以把 aardio 函数作为回调函数传给 Delphi ,这种方法很常用,在文档里也有详细解释,但这次我们不用这个方法。

本日我们换一个更大略的方法,aardio 窗口工具支持一个神奇的 _WM_THREAD_CALLBACK ,通过发送这个,就可以调用该窗口的成员函数,我们可以在 aardio 自带的范例查看这个的用法:

~\codes\范例程序\1) aardio 措辞\1) 多线程\12.threadCallback.aardio

有趣的是,这个方法也可以在 Delphi 里利用,我在Delphi 工程范例里供应了一个 aardio .pas 文件,导入这个模块就可以利用这个调用 aardio 窗口的成员函数了,例如:

aardio.sendCallback(self.ParentWindow,'onTest( { int x;int y;} )',@TestStruct);

@TestStruct 是 Delphi 的一个构造体指针,而上面的 self.ParentWindow 则是 aardio 窗口的句柄,'onTest( { int x;int y;} )' 是函数原型声明,这句代码会调用 aardio 中的 winform.onTest 函数,并且参数会解析为 aardio 构造体 { int x;int y;}

aardio 中 winform.onTest 函数的源码如下:

winform.onTest = function(delphiStructParam){ winform.edit.print("Delphi 调用了aardio 函数,参数如下:"); winform.edit.print(delphiStructParam); delphiStructParam.x = 90; //可选返回修正后的构造体 return delphiStructParam;}

从上面的代码可以看到,我们不但可以吸收 Delphi 传过来的构造体参数,还可以修正这个构造体( 也便是直接修正 Delphi 的构造体,Delphi 中构造体的值会被改变)

在与Delphi 交互要把稳,Delphi 字符串利用的是ANSI 编码,而 aardio 利用的是 UTF-8 编码。

看一下运行后的效果:

把稳上面的构造体的值在第二次调用时已经被修正了。

利用这种办法嵌入 Delphi 控件,跟其他普通的自定义控件一样,具有 aardio 控件的所有自适应布局能力,支持固定边距、自适应大小等属性设置。

标签:

相关文章

微信第三方登录便捷与安全的完美融合

社交平台已成为人们日常生活中不可或缺的一部分。微信作为我国最受欢迎的社交软件之一,拥有庞大的用户群体。为了方便用户在不同平台间切换...

网站建设 2025-02-18 阅读1 评论0

广东高速代码表解码高速公路管理智慧

高速公路作为国家交通动脉,连接着城市与城市,承载着巨大的物流和人流。广东作为我国经济大省,高速公路网络密布,交通流量巨大。为了更好...

网站建设 2025-02-18 阅读1 评论0