再谈后台调用外部程序的完美实现

黒毛警长

黒毛警长

2016-02-19 20:48

岁数大了,QQ也不闪了,微信也不响了,电话也不来了,但是图老师依旧坚持为大家推荐最精彩的内容,下面为大家精心准备的再谈后台调用外部程序的完美实现,希望大家看完后能赶快学习起来。

  上次介绍了如何在Delphi中使用发送消息的方式控制外部程序,一开始我在自己的项目中也确实是这么做的,但是后来遇到了这么一个问题:

  我所调用的程序,会在执行一段处理过程中,将结果显示到一个ListView中,那么为了知道我发出的命令,到底被那个程序执行后结果如何,我就必须监视ListView中的内容,察看最后出现的结果文字是什么,从而知道到底是成功还是失败了。那么,我的想法是,不断的查询ListView中Items的个数,并且当个数大于0的时候,取出最后一条Item(就是最后加入的结果描述),然后取得其中的文字,通过判断字符串,就可以知道结果了。

  首先,ListView的窗口Handle我当然是有了,然后取得ListView中的Item个数,我发现有这么个函数可以使用:ListView_GetItemCount(),它在CommCtrl模块中有定义,其实只是对SendMessage的一个封装而已,同样的,该模块中还有另一个函数:ListView_GetItemText(),使用它可以取得指定行处的Item文字。

  那么只要在我的程序中使用这两个函数就可以了咯?很抱歉,我用实际经历告诉你:这样将会导致外部程序的崩溃!!

  要说明为什么,首先让我们来看一下ListView_GetItemText()函数到底做了什么(另外还有ListView_GetItemTextA和ListView_GetItemTextW这两个函数,暂时不用去理它们):

  function ListView_GetItemText(hwndLV: HWND; i, iSubItem: Integer;
    pszText: PChar; cchTextMax: Integer): Integer;
  var
    Item: TLVItem;
  begin
    Item.iSubItem := iSubItem;
    Item.cchTextMax := cchTextMax;
    Item.pszText := pszText;
    Result := SendMessage(hwndLV, LVM_GETITEMTEXT, i, Longint(@Item));
  end;

  相信你能看明白,它将一个字符串指针pszText放到item结构中,再用SendMessage将该结构地址传给ListView窗口,在本地程序中这当然不会有问题,但是试想一下在外部exe中的情况,Item和pszText都是我的程序中的变量,外部exe有自己的独立进程空间,同样的变量地址在它的进程空间中指向的是完全不同的数据,并且很有可能该数据正在被其它程序段使用,那么当外部程序收到Message,并向该错误的地址中写入数据的时候,程序就这么崩溃了!

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  难道就没有办法解决这个问题了吗?当然有!很简单,我只需要保证外部程序收到Message时,将数据写入到本地进程空间中的地址中就可以了,那么这就意味着我必须在外部程序中开辟一块内存,让SendMessage来写入,并且能够从中将数据读回来,有什么办法呢?在这里就要感谢Robert Kuster这个大师级人物了,他在以下这篇文章中详细的介绍了多种将代码注入外部程序的方法:

  Three Ways to inject Your Code into Another Process

  我选择了第二种,即制作一个dll,由主程序将这个dll注入到外部程序的进程空间中,以后就可以为所欲为了,哈哈!Robert Kuster的例子中,只需要用dll中的代码取一个文本框中的密码就可以了,而我的稍有不同,我需要不断的监视ListView中的状态,所以我使用了一个线程,dll被注入后,立即启动自己的线程,并进入线程循环,一直到外部程序关闭,线程会被自动关闭(所以关闭的事,我就不管了)。

  另外,既然有了线程,连控制外部程序的代码都可以放在线程中,这么一来就变成这样的一个流程了:

  1。主程序再虚拟桌面上启动外部程序,并将自制dll注入外部程序的进程

  2。被注入的dll启动线程,线程的开始,先找到所有需要使用的窗口的WindowHandle,这一点还是用FindWnidow方法。接着打开一个共享内存区,用来和主程序通讯使用。

  3。进入dll的线程循环,循环中使用一个event进入等待状态。

  4。当主程序中需要使用外部程序的功能时,将控制命令写入共享内存中,然后触发event。

  5。被注入dll中的线程的event被触发,它从共享内存中取得控制命令,然后使用SendMessage启动外部程序的功能,并进入循环,等待ListView中出现结束文字。

  6。外部程序中的功能执行结束后,dll中的线程再以event的方式通知主程序。

  好了,这下真的是“完美”实现了!

  由于商业上的原因,代码我就不能公开了,如果你还有什么疑问,倒是随时欢迎来信讨论:tonyki[at]citiz.net

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  http://www.tonixsoft.com
  


展开更多 50%)
分享

猜你喜欢

再谈后台调用外部程序的完美实现

编程语言 网络编程
再谈后台调用外部程序的完美实现

后台调用外部程序的完美实现(Delphi)

编程语言 网络编程
后台调用外部程序的完美实现(Delphi)

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

用java实现外部调用exe文件

编程语言 网络编程
用java实现外部调用exe文件

VC实现系统热键激活后台服务程序

编程语言 网络编程
VC实现系统热键激活后台服务程序

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Oracle调用外部程序C++常见问题解决

编程语言 网络编程
Oracle调用外部程序C++常见问题解决

调用CUI程序的方法

Java JAVA基础
调用CUI程序的方法

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

SD卡中常见的文件夹名称及其作用

SD卡中常见的文件夹名称及其作用

Delphi与DirectShow&DSPack/在Delphi7.0下安装DSPack

Delphi与DirectShow&DSPack/在Delphi7.0下安装DSPack
下拉加载更多内容 ↓