delphi – 在dll中传输基本程序中的过程名称并在那里执行它

如果我正确理解你的问题,你在EXE中有一些代码,在DLL中有一些代码.每隔一段时间,一个计时器就会触发,这会导致某些东西在其他方面进行轮询(不清楚谁在轮询什么),以查看一方是否有任何工作可用,而另一方的代码可以处理.并且您希望有一种方法让一方在工作可用时立即通知另一方,而不是等待计时器.

有一个非常完善的方法来做到这一点.在Delphi中设置它的标准习惯是使用事件和事件处理程序.这是基本的想法：

让我们调用创建数据的一方发布者,以及处理消费者工作的一方.为Publisher对象提供TNotifyEvent类型的变量.这在Classes单元中声明为

TNotifyEvent = procedure(Sender: TObject) of object;

如果这看起来很熟悉,那是因为很大比例的VCL事件处理程序(如TButton.OnClick)属于TNotifyEvent类型.如果要在事件中传递更多有用的数据,则可以声明自己的事件类型.例如：

TDataReadyEvent = procedure(data: TStatisticalData) of object;

将事件处理程序类型的变量放在Publisher(FOnDataReady：TDataReadyEvent;)上,并创建一个公开它的属性.然后添加一些代码来触发事件.在Producer的某个地方,您有代码可以生成要分析的新数据.在完成之后,添加如下内容：

if assigned(FOnDataReady) then
  FOnDataReady(NewData);

然后,在Consumer上,创建一个签名与事件处理程序类型匹配的方法.它应该能够处理数据.要将它们链接在一起,请在Consumer的初始化代码中执行以下操作：

Producer.OnDataReady := self.HandleDataReady;

你有它！这真的很简单.现在,无论何时可以从Producer获得新数据,都会自动调用您的Consumer,而不必使用计时器并不断轮询Producer,询问它是否还有任何内容.