Delphi Dll 消息处理
转载:http://blog.csdn.net/lailai186/article/details/8770643
事情的导火线是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;
再给主程序主窗体的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过程的代码如下:
- 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过程要改成如下, 这样才能真正的处理所有的消息 ) . 真爽. 与想像的一样.
- 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;
Delphi Dll 消息处理的更多相关文章
- 在.net中调用Delphi dll的Pchar转换
Pchar是非托管代码,要在.net中调用Delphi dll中的功能,请使用MarshalAs属性告知.net调用PInvoke去转换.net中标准的string类型.如果Delphi dll是De ...
- Delphi Dll 动态调用例子(3)-仔细看一下
http://blog.163.com/bxf_0011/blog/static/35420330200952075114318/ Delphi 动态链接库的动态和静态调用 为了让人能快速的理解 静态 ...
- C# 调用Delphi dll
delphi dll 源码: library dllres; type char10 = ..] of char; TMydata = packed record id: Integer; name: ...
- Borland.Delphi.dll
Borland.Delphi.dll Borland Delphi Runtime for .NET Imports Borland.DelphiImports Borland.Delphi.Unit ...
- vb6如何调用delphi DLL中的函数并返回字符串?
1,问题描述 最近发现vb6调用delphi DLL中的函数并返回字符串时出现问题,有时正常,有时出现?号,有时干脆导致VB程序退出 -- :: 将金额数字转化为可读的语音文字:1转化为1元 ???? ...
- delphi dll调用问题
dll传递string实现方法 delphi中dll传递string的实现方法: dll项目uses第一个引用sharemem单元; 调用的项目uses第一个引用sharemem单元; 调用的单元us ...
- Delphi DLL的创建、静态及动态调用
转载:http://blog.csdn.net/welcome000yy/article/details/7905463 结合这篇博客:http://www.cnblogs.com/xumenger/ ...
- Visual Studio 调用 Delphi DLL 会退出的解决方案
新写了一个 Delphi 的 dll 供 C# 程序调用,却发现在使用 Visual Studio 2012 进行调试时,程序会在调用后自动退出. 经过对比,只需要将工程属性中“调试”一页下的“启用 ...
- C#调用Delphi DLL获取字符串(C# IntPtr 与 string互转 )
前因后果 调用一门锁的dll实现读取酒店IC卡数据,直接用Readme里的方法出错. 函数声明: 一.读卡函数 ************************ Delphi 调用 ****** ...
随机推荐
- easyUI增加视图分组的办法
1.在JSP头文件中引入如下代码 <script type="text/javascript" src="${pageContext.request.context ...
- HTML 通知公告练习
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/ ...
- ecshop 变量表
get_goods_info($goods_id) 商品详情 get_sales_count($goods_id) 商品销量 get_promote_goods() 参与促销商品 Mobile
- php上传$_FILES 无法取值
无法取值的主要原因在form. 代码 <form method="post" action="****" name="theForm" ...
- 事务环境下的CombGuid
一直使用osharp,osharp3使用的是combguid,代码如下 /// <summary> /// 返回Guid用于数据库操作,特定的时间代码可以提高检索效率 /// </s ...
- centos 7.0 编译 安装mysql 5.6.22 过程 已完成~ 成功~ 撒花~
mysql 下载目录/usr/local/srcmysql 解压目录 /usr/local/bin/mysql GitHub https://github.com/mysql/mysql-server ...
- Mysql 排名查询
原文地址: http://www.cnblogs.com/songshuai/p/5688550.html http://blog.csdn.net/u010503822/article/detail ...
- line-height:150%和 line-height:1.5 的区别
父元素line-height为150%或1.5em时,依据父元素的字体大小计算出行高值让子元素继承父元素line-height为1.5时,依据子元素字体大小计算其行高值.
- php-fpm进程关闭与重启脚本详解(转)
先来理解一下什么是php-fpm PHP-FPM是一个PHP FastCGI管理器,是只用于PHP的. PHP-FPM其实是PHP源代码的一个补丁,旨在将FastCGI进程管理整合进PHP包中.必须将 ...
- Nginx for Windows 使用笔记
一.常见启动错误 1. "No mapping for the Unicode character exists in the target multi-byte code page&quo ...