如何在Delphi中创建COM DLL（类库）？

Question

如何在 Delphi 中创建 COM DLL（类库）？

它适用于非常旧的 PC，其中未安装、也不会安装 .NET，并将替换并稍微扩展我有源代码的 VB 6 DLL。

Answer 1

您创建一个新的 ActiveX 库。您可以在 ActiveX 选项卡中找到它。 （文件-新建-其他-ActiveX-ActiveX 库）

Answer 2

这里有如何做到这一点：

AnIntroduction to COMProgramming with Delphi
那么，什么是接口？
接口是 COM 技术的核心。当我使用“界面”这个词时，不要将它与用户交互的视觉显示混淆。它实际上是 Delphi 中纳入的一个相当新的保留字。接口只不过是一组用于操作对象的抽象方法。

我们在上一课中确定了接口不是类；它是一个类。它是一个接口。因此，我们必须这样声明。让我们探讨一些界面特征。

• 接口被定义为类型接口
• 您将使用字母 I 来定义您的接口。 IE "IMyInterface = interface"
• 接口继承自 IUnknown
• 您不能像创建包含抽象方法的类那样创建接口的实例
• 接口不能包含变量。 （阅读：它可以包含属性，我稍后将向您展示）
• 接口中声明的所有函数和过程都是公共虚拟抽象方法。即使您不以这种方式声明它们，但人们会理解它们就是它们。
• 接口是引用计数的

现在我们更多地了解了接口可以做什么和不能做什么，让我们看看声明接口是什么样的。

IMyInterface = interface
['{676C8DA0-D8B3-11D4-BDE0-00A024BAF736}']
procedure SomeUnimplementedMethod;
end;

关于 GUID
我相信您想知道这一大串疯狂的字符是什么。它称为 GUID，代表全局唯一标识符。有些人将其发音为“gwid”或“Gooey ID”。这里是 GUID 的一些特征：

• 您的接口将具有与世界上任何其他接口不同的 GUID
• 所有接口和 COM 接口都将附加一个 GUID
• 您可以通过按 CTRL-SHIFT-G 在 Delphi 中创建 GUID
• 您永远不会复制从一个接口到另一个接口的 GUID

好的，但是我如何实现一个接口呢？
这是一个好问题。答案是：你不能直接实现接口。您必须创建一个将实现您的接口的类。请参阅下面所示的编码示例。

unit InterfaceUnit;

interface

uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;

type
IMyInterface = interface
['{6675C5C0-D95C-11D4-BDE0-00A024BAF736}']
procedure DisplaySomething;
end;

TMyClass = class(TInterfacedObject, IMyInterface)
procedure DisplaySomething;
end;

TMyForm = class(TForm)
TestBtn: TButton;
procedure TestBtnClick(Sender: TObject);
end;

var
MyForm: TMyForm;

implementation

{$R *.DFM}
procedure TMyForm.TestBtnClick(Sender: TObject);
var
//Declare a TMyClass object
MyClass : TMyClass;
//Declare a IMyInterface Object
MyInterface : IMyInterface;
begin
//Create an interface pointing
//to a TMyClass object
MyInterface := TMyClass.Create;

//Call TMyClass'es DisplaySomething
//using our interface
MyInterface.DisplaySomething;
end;

{ TMyClass }
procedure TMyClass.DisplaySomething;
begin
ShowMessage('MyInterface was created and
will now fall out of scope!');
end;

end.

上面列出的编码示例非常简单，同时仍然具有某种类型的可视化功能。让我们仔细看看过程 TextBtnClick。是不是少了点什么？如果您没有注意到，我们并没有明确释放该接口。这看起来像是内存泄漏，但外表是骗人的。一旦接口超出范围，Delphi 实际上会自动为您释放接口！当过程结束时，在过程或函数中声明的接口自然会超出范围。当对象被释放或程序结束时，在类内声明或全局声明的接口自然会超出范围。

现在我们需要讨论引用计数。每次检索对象的接口时，例如 IMyInterface := MyClass; Delphi 将使用 IUnknown 的 _AddRef 函数自动增加其引用计数。当接口超出范围时，Delphi 自动调用 IUnknown 的 ._Release 函数。如果您还没有弄清楚，IUnkown 也是一个接口，并且由于我们已经知道接口无法实现它定义的方法，那么您可能想知道 AddRef 和 Release 从何而来。答案是TInterfacedObject！
TInterfacedObject 到底是什么？
TInterfacedObject 和 IUnknown 在 system.pas 中定义。在详细说明这一点之前，我们至少需要看一下代码：

SYSTEM.PAS
未知声明
TInterfacedObject 的声明及其实现 该

IUnknown = interface
['{00000000-0000-0000-C000-000000000046}']
function QueryInterface
(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
end;

TInterfacedObject = class(TObject, IUnknown)
protected
FRefCount: Integer;
function QueryInterface
(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
public
procedure BeforeDestruction; override;
property RefCount: Integer read FRefCount;
end;

procedure TInterfacedObject.BeforeDestruction;
begin
if RefCount <> 0 then Error(reInvalidPtr);
end;

function TInterfacedObject.QueryInterface
(const IID: TGUID; out Obj): HResult;
const
E_NOINTERFACE = $80004002;
begin
if GetInterface(IID, Obj) then
Result := 0 else Result := E_NOINTERFACE;
end;

function TInterfacedObject._AddRef: Integer;
begin
Result := InterlockedIncrement(FRefCount);
end;

function TInterfacedObject._Release: Integer;
begin
Result := InterlockedDecrement(FRefCount);
if Result = 0 then Destroy;
end;

代码可能看起来有点吓人，但我们将逐步完成此过程，因为了解引用计数对于有效地在 COM 中进行编程至关重要。从上面的代码可以明显看出，TInterfacedObject 实现了 IUnkown 中定义的方法。当您创建一个使用 TInterfacedObject 的类时，您实际上是在告诉该类，如果为它分配了接口，则它将进行引用计数。

让我们看一段简单的代码，以便我可以描述所发生的过程。

TMyInterfaceClass = class(TInterfacedObject, IMyInterface)
{blah blah blah}
{blah blah blah}
procedure DoThis;
var
MyClass : TMyInterfaceClass;
MyInterface : IMyInterface;
begin
MyClass := TMyInterfaceClass.Create;
MyInterface := MyClass
end;

当您使用直接分配将 MyInterface 分配给 MyClass 时，Delphi 将自动调用 _AddRef 方法。这对 MyClass 说：“嘿，一个接口正在引用您！我们将增加您的引用计数。”如果您要将上述代码更改为以下内容：

TMyInterfaceClass = class(TInterfacedObject, IMyInterface)
{blah blah blah}
{blah blah blah}
procedure DoThis;
var
MyClass : TMyInterfaceClass;
MyInterface : IMyInterface;
MyInterface2: IMyInterface;
begin
MyClass := TMyInterfaceClass.Create;
MyInterface := MyClass;
MyInterface2 := MyClass
end;

请注意，我添加了一个名为 MyInterface2 的新变量。由于我们现在将 2 个不同的接口设置为等于 MyClass，猜猜 Myclass 的引用计数会发生什么？它变成 2，因为我们现在分配了两个接口！

您可能想知道 TInterfacedObject 实现的 _Release 方法。对于分配给超出范围的类的每个接口，都会自动调用 _Release 方法。显然，在过程 DoThis 结束时，程序执行将返回它来的地方，因此，您的本地类和接口声明超出了它们声明的范围。由于我们定义了两个接口，_Release 将被调用多少次？答案是一个闪亮的“2”！一旦我们的引用计数为零，MyClass 就会被 Delphi 自动释放。多漂亮多干净啊！

答案来源

Answer 3

访问此站点，这是在 Delphi 中开发 COM 的良好起点。它提供有关 Delphi 中的 COM 技术的教程、文章和代码。这可能对你有帮助