Delphi Dll中多线程无法使用Synchronize同步的解决方法(转)

最新推荐文章于 2023-12-23 15:43:10 发布

tomliks

最新推荐文章于 2023-12-23 15:43:10 发布

阅读量2.6k

点赞数

文章标签： dll delphi 多线程 application function 任务

具体原因可以参考这篇文章
“DLL/ActiveForm中的线程同步处理”www.delphibbs.com/keylife/iblog_show.asp。

事实上，经试验可以在dll工程文件中加入以下语句：

Application.Initialize;

if Application.Handle = 0 then
begin
Application.CreateHandle;
end;

Application.Run;

解决线程中使用Synchronize 假死的问题，或者在线程中直接使用SendMessage替代Synchronize
同步。

原因在于若工程文件是DLL而不是EXE的话，Application默认不创建窗口句柄，因此Synchronize
向Application发送消息根本无法响应，手动创建句柄，并让其进入消息循环状态可以解决

转自http://hi.baidu.com/ferrylife/blog/item/c3a9ab51dc359e888d543021.html

用以上方法。会因为application的值不同而在任务栏上产生两个按钮

function SetApplicationHandle(AppHandle: THandle): Boolean; stdcall;
begin
try
    Application.Initialize;
    if Application.Handle = 0 then
      begin
        Application.CreateHandle;
      end;
    Application.Handle:= AppHandle;
    Application.Run;
    Result:= True;
except
    Result:= False;
end;
end;

在dll中导入一个函数
在主线程中调用传入application.handle使任务栏按钮变回一个

type
TExportEmuFormApplication = function(AppHandle: THandle): Boolean; stdcall;

......
private
    FAppHandle: TExportEmuFormApplication;
    FDLLHandle: THandle;
......

implementation

constructor TEmuMap.Create(aParent: TComponent);
begin
FDLLHandle := LoadLibrary('emudll.dll');
try
    FAppHandle:= GetProcAddress(FDLLHandle, 'SetApplicationHandle');

    if not (@FAppHandle = nil) then
      begin
        FAppHandle(Application.Handle);
      end;

......
end;