Delphi Dll 消息处理 Dll (3)

页面导航:首页 > 软件编程 > Delphi > Delphi Dll 消息处理 Dll (3)

Delphi Dll 消息处理 Dll (3)

来源: 作者: 时间:2016-01-18 15:42 【

Delphi中DLL的消息处理 事情的导火线是GIF图片的显示. 在应用程序中, 利用三方的GIFImage.pas可以很好的显示GIF图片.这次, 要在一个DLL中显示一个GIF图片. 还是像往常一样拖个TImage放到窗体上

Delphi中DLL的消息处理
           事情的导火线是GIF图片的显示. 在应用程序中, 利用三方的GIFImage.pas可以很好的显示GIF图片.
这次, 要在一个DLL中显示一个GIF图片. 还是像往常一样拖个TImage放到窗体上, 打开一个动态GIF图片. 编译, 运行.   

        怪了: GIF图片显示是静态的. 还以为Delphi又出Bug了. 于是又把图片放到程序主窗体上一运行, 动的. 这下头可大了!

找相关的资料, 没有.

        看来事情还得自己解决: 于是专心研究起GIFImage.pas, 首先看的当然是重画部分的代码了( 呵呵, 这是我一贯的风格: 觉得是哪里出问题就先看哪里, 不管是谁的代码 ). 经过一番搜索.

           把目标定位在线程上. GIFImage.pas的重画其实就是调用一个线程, 在线程内读取文件中相应的图像数据画到目标位置.

          在线程内重画是调用线程的Synchronize过程. 以前知道这个过程是为了避免多个线程同时访问同一个数据或对象的. 现在得对它的执行方法做一番了解才行.

经过一翻摸索, 找到了解决方法. 在DLL的窗体上放一个TTimer控件. Interval尽量小. OnTimer只添加一行代码: CheckSynchronize;

运行. OK. 图片动起来了......( 这种方法所存的问题就不用再多说了吧. )

 

但接下来的一个问题却很恼火的: 在DLL的窗体上放一个TSpeedButton控件, Flat属性设置为True. 运行. 当鼠标从TSpeedButton上移过时, TSpeedButton怎么也还原不了. 试着调用它的重画等功能. 全部没用. 好几天的时间一直在思考这个问题.

后来在处理应用程序的消息的时候, 突然想到: DLL虽然有自己Application, 但它并没有自己的消息循环, 而线程的Synchronize不能执行, TSpeedButton不能还原都是因为有些消息没有得到相应的处理而导致的.

也就是说, 只要给DLL加上一个消息循环, 上面的这些问题都会全部解决.

刚开始的时候想从主程序发送消息给DLL. 可消息截取的结果是: 很多DLL里产生的消息并没有发送给主程序. 看来这个方法是行不通的. 只得另寻方法.

在看到以下几行大家很熟悉的代码后想到.
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
可不可以给DLL也加上这们的代码呢?

动手实验, 创建一个DLL, DLL里包含一个窗体DLLForm. 从DLL里导出一个函数. 加上上面的代码. 如下:
procedure InitDLL; stdcall;
begin
  Application.Initialize;
  Application.CreateForm(TDLLForm, DLLForm);
  Application.Run;
end;
再到主程序窗体的创建事件代码如下:
procedure TForm1.FormCreate(Sender: TObject);
begin
  InitDLL;
end;
运行, 结果不对. 它是先打开主窗体了... :( 郁闷. 并且 InitDLL; 也不是立即返回, 而是当DLL里主窗体关闭后才返回. 其实早就应该想到了.
把OnCreate的代码放到一个TTimer控件里. Interval为1. OnTimer的代码如下.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TTimer(Sender).Enabled := False;
  InitDLL;
end;
这下可以了. 但不能让DLL里的窗体一开始就显示出来吧. 得. 再改改InitDLL. 如下:
procedure InitDLL; stdcall;
begin
  Application.Initialize;
  Application.ShowMainForm := False;
  Application.CreateForm(TDLLForm, DLLForm);
  Application.Run;
end;
主窗体不显示了, 得加上一个, 看看效果:)
再到DLL里加上一个Form( 命名为 DLLChildForm ), 在窗体上放一个TSpeedButton控件.
再给DLL导出一个函数, 如下:
procedure CreateChildForm; stdcall;
begin
  with TDLLChildForm.Create(Application) do
  begin
    Show;
  end;
end;
再到主窗体中添加一个按钮. 点击事件代码如下.
procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateChildForm;
end;
运行. 结果理想: TSpeedButton在鼠标移过后能还原了. 呵呵...... 真爽!

不过, 问题又来了. 程序退出时报异常了. 想一下, 哦. DLL里的窗体资源还没有释放呢. 得, 再从DLL里导出一个过程, 代码如下:


[]
procedure DestoryDLL; stdcall; 
var 
  i: Integer; 
begin 
  for i := Application.ComponentCount - 1 downto 0 do 
  begin 
    if Application.Components[i].ClassNameIs('TDLLChildForm') then 
    begin 
      TDLLChildForm(Application.Components[i]).Release; 
    end; 
  end; 
 
  if DLLForm = nil then 
  begin 
    Exit; 
  end; 
 
  DLLForm.Release; 
  DLLForm := nil; 
end; 

procedure DestoryDLL; stdcall;
var
  i: Integer;
begin
  for i := Application.ComponentCount - 1 downto 0 do
  begin
    if Application.Components[i].ClassNameIs('TDLLChildForm') then
    begin
      TDLLChildForm(Application.Components[i]).Release;
    end;
  end;

  if DLLForm = nil then
  begin
    Exit;
  end;

  DLLForm.Release;
  DLLForm := nil;
end;


 

再给主程序主窗体的OnCloseQuery添加代码如下:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  DestoryDLL;
end;
运行. 靠, 虽然DLL里的窗体全关闭了, 可主程序还是退不出啊. 换换方法, 把 DLLForm.Release; 这里改成Application.Terminate; 试试. 还是不行. 咋回事?
反复调试, 发现虽然Terminate了, 可Run仍在循环. 并没有结束.
再研究Run的代码. 呵呵. 有了.
把Application.Terminate;换成PostMessage(Application.Handle, WM_QUIT, 0, 0);
运行, 还是不行. 但Run是循环是退出了. 那哪里还会有问题呢? 该不会是窗体没有释放吧. 好, 在PostMessage前加上DLLForm.Release;这时, DestoryDLL过程的代码如下:


[delphi]
procedure DestoryDLL; stdcall; 
var 
  i: Integer; 
begin 
  for i := Application.ComponentCount - 1 downto 0 do 
  begin 
    if Application.Components[i].ClassNameIs('TDLLChildForm') then 
    begin 
      TDLLChildForm(Application.Components[i]).Release; 
    end; 
  end; 
 
  if DLLForm = nil then 
  begin 
    Exit; 
  end; 
 
  DLLForm.Release; 
//  Application.Terminate;  
  PostMessage(Application.Handle, WM_QUIT, 0, 0); 
  DLLForm := nil; 
end; 

procedure DestoryDLL; stdcall;
var
  i: Integer;
begin
  for i := Application.ComponentCount - 1 downto 0 do
  begin
    if Application.Components[i].ClassNameIs('TDLLChildForm') then
    begin
      TDLLChildForm(Application.Components[i]).Release;
    end;
  end;

  if DLLForm = nil then
  begin
    Exit;
  end;

  DLLForm.Release;
//  Application.Terminate;
  PostMessage(Application.Handle, WM_QUIT, 0, 0);
  DLLForm := nil;
end;


 

运行. OK. 完美解决...
再加上线程试试( 这时InitDLL过程要改成如下, 这样才能真正的处理所有的消息 ) . 真爽. 与想像的一样.


[delphi]
rocedure InitDLL(AHandle: Thandle); stdcall; 
begin 
  Application.Initialize; 
  Application.ShowMainForm := False; 
  Application.CreateForm(TDLLForm, DLLForm); 
 
  // 保存原来的句柄  
  DLLForm.Tag := Application.Handle; 
  // DLL 从属的句柄 ( 如果没有此行, 线程的执行不能达到理想效果 )  
  // 并且这样才能真正的让消息循环处理它应处理的所有消息  
  Application.Handle := AHandle; 
  Application.Run; 
 
  Application.Handle := DLLForm.Tag; 
end; 

procedure InitDLL(AHandle: Thandle); stdcall;
begin
  Application.Initialize;
  Application.ShowMainForm := False;
  Application.CreateForm(TDLLForm, DLLForm);

  // 保存原来的句柄
  DLLForm.Tag := Application.Handle;
  // DLL 从属的句柄 ( 如果没有此行, 线程的执行不能达到理想效果 )
  // 并且这样才能真正的让消息循环处理它应处理的所有消息
  Application.Handle := AHandle;
  Application.Run;

  Application.Handle := DLLForm.Tag;
end;

 

 

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<