delphi中使用词霸2005的动态库XdictGrb.dll实现屏幕取词

最新推荐文章于 2012-07-06 10:09:00 发布

不得闲

最新推荐文章于 2012-07-06 10:09:00 发布

阅读量3.1k

点赞数

分类专栏： Delphi编程文章标签： delphi integer class vb function

本文链接：https://blog.csdn.net/suiyunonghen/article/details/1540840

版权

本文介绍了如何在Delphi中利用词霸2005的动态库XdictGrb.dll实现屏幕取词功能。通过导入类型库，创建TForm1类并实现IXDictGrabSink接口，设置GrabProxy属性，以及实现QueryWord方法来获取屏幕上的单词信息。

摘要由CSDN通过智能技术生成

近日来，在网上发现关于屏幕取词技术的捷径，搜索很长时间，发现实现方式以VB出现的居多，但是通过Delphi来实现的却好象没有看到，自己参考着VB的相关代码琢磨了一下通过delphi来实现的方式。

其实也差不多，唯一不同的只有一个地方就是取词对象GrabProxy的AdviseGrab这个方法，该方法的参数是一个IXDictGrabSink的接口类型，在Vb中是AdviseGrab(Me)就可以了，但是在delphi中则不能简单使用AdviseGrab(self)来，在前面TForm1 = class(TForm)的这个Form类声明必须在继承一个接口才行，所以应该改成 TForm1 = class(TForm,IXDictGrabSink)，然后实现IxDictGrabSink接口的方法QueryWord，该方法就是用来取词的。
function QueryWord(const WordString: WideString; lCursorX: Integer; lCursorY: Integer;
const SentenceString: WideString; var lLoc: Integer; var lStart: Integer): Integer;safecall;

此时你就可以通过类似于Vb中来进行指定了，AdviseGrab(self)就将接口指向了他自己。

但此之前，你必须先得到XDICTGRB_TLB单元，你可以通过delphi的
Project---->Import Type Library..来把该动态库引用进来，然后创建单元，或是简单的，你直接把他创建成一可用的控件。
然后在窗体中调用。

当成控件来使用如下：

直接拖到窗体上，然后将窗体