Delphi 通知从dll到主应用程序的事件_Delphi_Dll_Callback_Messages

Delphi 通知从dll到主应用程序的事件

delphi dll

Delphi 通知从dll到主应用程序的事件,delphi,dll,callback,messages,Delphi,Dll,Callback,Messages,我正在开发打算跨平台的应用程序。我以前使用Windows消息，但现在我放弃了它。我用回调替换了消息，但不管我可以使用不同的技术，我不知道不使用windows消息时会有不同的可能性我有主要的exe应用程序和一些dll插件。我在dll中有一些对象和线程，我想通知主应用程序dll对数据结构所做的一些更改正如我所说，我目前正在处理一些回调。为了提供与不同语言（C++、VB、C#）的兼容性，我使用了非对象类型的回调。我不确定其他语言是否支持对象的回调因此，我的问题是： windows消息的替代方案

我正在开发打算跨平台的应用程序。我以前使用Windows消息，但现在我放弃了它。我用回调替换了消息，但不管我可以使用不同的技术，我不知道不使用windows消息时会有不同的可能性

我有主要的exe应用程序和一些dll插件。我在dll中有一些对象和线程，我想通知主应用程序dll对数据结构所做的一些更改

正如我所说，我目前正在处理一些回调。为了提供与不同语言（C++、VB、C#）的兼容性，我使用了非对象类型的回调。我不确定其他语言是否支持对象的回调

因此，我的问题是：

windows消息的替代方案（跨平台）是什么？回调可以代替消息吗
其他语言是否支持对象的回调
我猜其他语言有不同的技术来替代消息

type
  THandle = LongWord;
  {$IF SizeOf(THandle) < SizeOf(Pointer))}
  {$MESSAGE Error 'Invallid handle type'}
  {$ENDIF}

  TCallback = procedure(const aHandle: THandle); cdecl;

  var
      gCallback: record
        Routine: TCallback;
        Obj: TObject;
        Info: string
  end;

  function Object2Handle(const aObj: TObject): THandle;
  begin
    Result:= THandle(Pointer(aObj))
  end;

  function Handle2Object(const aHandle: THandle; out aObj: TObject): Boolean;
  begin
    if gCallback.Obj <> nil then
      if aHandle = Object2Handle(gCallback.Obj) then
      begin
        aObj:= gCallback.Obj;
        Result:= true;
        Exit // WARRNING: program flow disorder
      end;

    aObj:= nil;
    Result:= false
  end;

procedure DoCallback();
begin
  if Assigned(gCallback.Routine) then
    gCallback.Routine(Object2Handle(gCallback.Obj))
end;

procedure SetupCallback(const aCallback: TCallback); cdecl;
begin
  gCallback.Routine:= aCallback;
end;

procedure DoSomething(const aHandle: THandle; out aInfo: string); cdecl;
var
  O: TObject;
begin
  if Handle2Object(aHandle, O) then
    aInfo:= Format('%s class object %s', [O.ClassName(), gCallback.Info])
end;

procedure Test();
begin
  gCallback.Obj:= TStream.Create();
  try
    gCallback.Info:= 'created';
    DoCallback();
  finally
    FreeAndNil(gCallback.Obj)
  end;
  gCallback.Obj:= TMemoryStream.Create();
  try
    gCallback.Info:= 'will be freed';
    DoCallback();
  finally
    FreeAndNil(gCallback.Obj)
  end
end;

exports
  SetupCallback,
  DoSomething,
  Test;

插座
（在这种情况下，IMO太大了？）就绪消息传递系统（我最喜欢的）

定义一个接口
```
type
  IDataStructureChanged = interface
    ['{GUID}']
    procedure Call; stdcall;
  end;
```
您可以向方法中添加一些参数，以便插件可以告诉数据结构是如何更改的，或者传递一些值，指示哪个插件正在发出通知
在应用程序中实现它
```
type
  TDataStructureChangedListener = class(TInterfacedObject, IDataStructureChanged)
  private
    FForm: TForm;
    procedure Call; stdcall;
  public
    constructor Create(Form: TForm);
  end;
```
当实例化该类时，可以向其传递对程序主窗体的引用，或者当插件最终调用
```
Call
```
方法时，程序能够执行操作所需的任何其他信息。实现
```
Call
```
，使应用程序在数据结构发生更改时执行任何需要执行的操作
初始化每个插件时，传递对它们的引用
```
ChangeListener := TDataStructureChangedListener.Create(Self);
for i := 0 to Pred(PlugIns.Count) do
  PlugIns[i].Init(ChangeListener);
```
插件应该存储对侦听器对象的引用，当数据结构发生更改时，它可以调用
```
call
```
方法来通知应用程序

type
  TDataStructureChangedListener = class(TInterfacedObject, IDataStructureChanged)
  private
    FForm: TForm;
    procedure Call; stdcall;
  public
    constructor Create(Form: TForm);
  end;