近日来,在网上发现关于屏幕取词技术的捷径,搜索很长时间,发现实现方式以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..来把该动态库引用进来,然后创建单元,或是简单的,你直接把他创建成一可用的控件。
然后在窗体中调用。
当成控件来使用如下:
直接拖到窗体上,然后将窗体