- html - 我的下拉菜单的内容关闭得太快
- c# - 使用 Html Agility Pack 从网页中的表中获取值而不使用 "SelectNode'
- html - 内容容器下的 CSS 下拉菜单
- html - 如何停止嵌套列表重叠父列表?
我发现运行良好的代码片段可以轻松创建模块化 Delphi 应用程序。此代码适用于 Delphi 5 版本。
链接到片段 -> http://delphi.cjcsoft.net/viewthread.php?tid=44129
多年来,我有很大的 Delphi 5 项目构建,我开始怀疑是否可以加载使用较新版本的 Delphi(在我的情况下为 XE2)编译的插件(* .plg)。
我用 Borland 的 ShareMem 替换了 ShareMemRep.pas,因为 XE2 不能用 ShareMemRep 编译。 Delphi 5 版本的插件和客户端应用程序正在加载用 Delphi 5 编写的插件,到目前为止运行良好。
我使用了相同的代码(除了我必须将 PAnsiChar 更改为 PWideChar)并使用 Delphi XE2 编译插件和客户端应用程序。但是编译的客户端应用程序无法加载使用 Delphi XE2 编译的插件和使用 Delphi 5 编译的插件。
Delphi 5 客户端应用程序也无法加载使用 Delphi XE2 编译的插件。
Delphi XE2 客户端未加载使用 Delphi XE2 插件编译的因为(PlugInClass.GetInterface(PlugInGUID, PlugInIntf))
正在返回 False
.
当 Delphi XE2 或 Delphi 5 客户端应用程序加载相反版本的插件编译时,(PlugInClass.GetInterface(PlugInGUID, PlugInIntf))
导致访问冲突。
我从 System.pas 中发现,在底部进行了一些更改,但我对那种“黑客位”的了解是纯粹的。
有没有人知道是否可以加载使用不同版本编译的插件(库),而不是使用片段中的代码加载该插件的应用程序?
编辑:
我的源代码:
https://bitbucket.org/plum/delphimodularapp
插件加载(管理器)的源代码:
function TPlugInManager.LoadPlugIn(const AFileName: string;
PlugInGUID: TGUID; out PlugInIntf; ForceCreate: Boolean = False): Boolean;
var
FileName: string;
DLLHandle: THandle;
FuncPtr: TFarProc;
PlugInProc: TPlugInProc;
PlugInClass: TPlugInClass;
PlugInStruct: PPlugInStruct;
begin
{ initialize variables }
Result := False;
FileName := AFileName;
DLLHandle := 0;
try
{ try to load passed dll }
// Delphi XE
//DLLHandle := LoadLibraryW(PWideChar(AFileName));
// Loading *.plg plugin
DLLHandle := LoadLibrary(PAnsiChar(AFileName));
if DLLHandle <> 0 then
begin
{ get function address of 'RegisterPlugIn' }
FuncPtr := GetProcAddress(DLLHandle, 'RegisterPlugIn');
if FuncPtr <> nil then
begin
{ assign register method }
@PlugInProc := FuncPtr;
{ create plugin instance }
PlugInClass := TPlugInClass(PlugInProc(FOwner, ForceCreate)); // creates instance!
{ the only tricky-part: accessing the common interface }
if Assigned(PlugInClass) then begin
// On that line I'm getting AV when I'm trying to load
// plugin compiled with Delphi XE2 by Host application compiled with Delphi5.
if (PlugInClass.GetInterface(PlugInGUID, PlugInIntf)) then
begin
{ save plugin properties }
New(PlugInStruct);
PlugInStruct.AClass := PlugInClass;
PlugInStruct.GUID := PlugInGUID;
PlugInStruct.Handle := DLLHandle;
PlugInStruct.AInterface := Pointer(PlugInIntf);
PlugInStruct.FileName := AFileName;
FPlugIns.Add(PlugInStruct);
Result := True;
end;
end;
if Result = False then begin
FreeLibrary(DLLHandle);
end;
end;
end; // try/finally
except
on e: Exception do
begin
FLastError := e.Message;
if DLLHandle <> 0 then
FreeLibrary(DLLHandle);
end;
end; // try/except
end;
library libSamplePlugIn;
uses
ShareMem,
Windows,
Classes,
uPlugInIntf in 'uPlugInIntf.pas',
uSamplePlugInIntf in 'uSamplePlugInIntf.pas',
uSamplePlugInImpl in 'uSamplePlugInImpl.pas';
{$E plg} //
{$R *.res}
procedure DllMain(Reason: Integer);
begin
case Reason of
{ our 'dll' will be unloaded immediantly, so free up the shared
datamodule, if created before! }
DLL_PROCESS_DETACH:
{ place your code here! }
end;
end;
function RegisterPlugIn(AOwner: TComponent;
ForceCreate: Boolean = False): TSamplePlugIn; stdcall;
begin
Result := TSamplePlugIn.Create(AOwner);
end;
exports RegisterPlugIn;
begin
end.
unit uSamplePlugInImpl;
interface
uses
uPlugInIntf, uSamplePlugInIntf, Classes;
type
{ TSamplePlugIn }
TSamplePlugIn = class(TPlugInClass, ICustomPlugIn, ISamplePlugIn)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function GetAuthor: string;
function GetName: string;
function GetVersion: string;
function GetDescription: string;
function Sum(a, b: Integer): Integer;
end;
implementation
{ TSamplePlugIn }
constructor TSamplePlugIn.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
{ Rest of implementation ...}
function TSamplePlugIn.Sum(a, b: Integer): Integer;
begin
Result := a + b;
end;
end.
最佳答案
由于致命的设计缺陷,此代码被破坏。你不能通过一个 DLL 边界传递一个 Delphi 类并让它在另一边有意义。当你通过 TComponent
时,这条规则就被打破了。到 DLL,当它返回 TSamplePlugIn
.
您的主要选择:
TComponent
.寻找另一种管理生命周期的方法。接口(interface)已经为此提供了引用计数。并返回一个接口(interface)而不是一个类实例。那你应该上路了。
PChar
是
PWideChar
在 Unicode Delphi 和
PAnsiChar
中在 ANSI 德尔福。使用这一事实将允许您编写适用于两者的代码。
DLLHandle := LoadLibrary(PChar(AFileName));
DllMain
是虚假的。去掉它。
关于Delphi - 创 build 计良好的插件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/28477986/
我在互联网上搜索了很多小时,但没有找到满意的结果,所以 -VSTO Addin 和 COM Addin(我们作为类库项目制作并使用 Excel 对象)之间有什么区别?VSTO 项目是否有任何限制,例如
我在互联网上搜索了很多小时,但没有找到满意的结果,所以 -VSTO Addin 和 COM Addin(我们作为类库项目制作并使用 Excel 对象)之间有什么区别?VSTO 项目是否有任何限制,例如
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 要求我们推荐或查找工具、库或最喜欢的场外资源的问题对于 Stack Overflow 来说是偏离主题的,
我正在寻找有关如何构建可扩展 WCF 服务器(具有动态加载的服务)的建议,最好使用 System.Addins 或 MEF。 服务器应托管实现最小“插件”API(StartService/StopSe
有没有一种方法可以使用加载浏览器扩展/插件/插件的 headless 浏览器(即 PhantomJS、Selenium)来运行自动测试? 更具体地说,我想模拟广告拦截器(如 Ghostery、ad-b
我是 gradle 的新手,我使用 artifactory 作为我的 repo 服务器。我在网上查看了如何将我的项目发布到我的 repo 服务器,发现我可以使用 maven-publish 或使用 a
我想禁用某些状态的点击/事件,并仅使少数状态可点击。我通读了http://newsignature.github.io/us-map/处的文档,并且找不到与此问题相关的任何内容。 最佳答案 http:
据我了解,在Intellij中使用idea插件打开Maven构建的项目并不是最好的方法,即调用: mvn idea:idea 但是直接打开pom文件(Intellij有默认的Maven插件);同样的事
使用Artifactory plugin对于 Jenkins pipeline 来说是一种幸福,只要遵循文档就可以了。但后来我介绍了Maven Flatten plugin解析父模块和子模块 mvn
我已经安装了Elasticsearch版本1.7.1。一切正常。我也安装了 JDBC 驱动程序。检查下面我的插件文件夹 目录E:\Xampp\htdocs\my-elastic\elasticsear
在我使用 webpack common chunks 插件创建包含第三方库(如 angular、react、lodash 等)的 vendor 包之前,但后来我知道了 webpack dll
我们正在尝试使用(Jenkins、sonar、eclipse ...)安装 CI 平台。 为了让每个开发人员都可以在提交之前对他的代码进行分析,我想知道两种选择: 使用 Sonar 插件运行本地分析。
我知道这是一个比较特殊的问题。尽管如此,也许有些人知道这一点: 我想在 Eclipse 中使用 Maven 编译 Hector=> 分支:0.7.0 和标签:hector-0.7.0-29(https
我卡住了。我一直在尝试寻找或自己创建一个简单的准系统示例,说明如何为 VS 2010 Express 创建 Outlook 插件。我知道这在 VS 2010 Pro 中更简单,但是,在快速版本中真的不
我有以下排除过滤器来忽略所有 R 文件类: findbugs-exclude-filter.xml 当我将它用于 FindBugs-IDEA 插件时,它可以
我刚开始玩 CakePHP,我发现了 Wildflower CMS .我喜欢这个想法,并打算开始修补它。不过,我有一个问题。 在自述文件中,我发现了以下内容:“Wildflower 不是也不会是 Ca
虽然现在大部分情况都是使用n-api来编写插件,但是底层毕竟是v8(和libuv),使用v8编写简单的插件,同时熟悉v8的使用。 本文介绍在写c++插件时,简单又常用的写法,其实本质上,写插件
本篇是 Python 系列教程第 3 篇,更多内容敬请访问我的 Python 合集 Visual Studio Code的安装非常简单,就不放这里增加文章篇幅了。 相比PyCharm,V
Maven – 插件 什么是 Maven 插件? Maven 实际上是一个依赖插件执行的框架,每个任务实际上是由插件完成。Maven 插件通常被用来: 创建 jar 文件 创建 war
我正在编写一个插件来添加带有标签 [deposit_page] 的页面;该标记应替换为一些 PHP 代码。 这就是我所拥有的,但它不起作用。有什么我遗漏或做错了什么吗? function deposi
我是一名优秀的程序员,十分优秀!