zoukankan      html  css  js  c++  java
  • delphi中使用词霸2005的动态库XdictGrb.dll实现屏幕取词

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

    当成控件来使用如下:

       直接拖到窗体上,然后将窗体代码中的TForm1 = class(TForm)改成

    TForm1 = class(TForm,IXDictGrabSink),并且实现IXDictGrabSink接口中的方法的声明

    function QueryWord(const WordString: WideString; lCursorX: Integer; lCursorY: Integer;
                           const SentenceString: WideString; var lLoc: Integer; var lStart: Integer): Integer;safecall;

    然后在指定他的属性

       GrabProxy1.GrabInterval := 1;//指定抓取时间间隔
       self.GrabProxy1.GrabMode := XDictGrabMouse;//模式(鼠标是否加按键)
       self.GrabProxy1.GrabEnabled := true;//是否有效
       self.GrabProxy1.AdviseGrab(self);//接口指向自身

    然后就是屏幕取词方法的实现

    function TForm1.QueryWord(const WordString: WideString; lCursorX,
      lCursorY: Integer; const SentenceString: WideString; var lLoc,
      lStart: Integer): Integer;
    begin
       //Label1是当前鼠标的位置,Lcursorx,LCursorY表示鼠标的位置
      Label1.Caption := '(' + inttostr(lCursorX) + ',' +inttostr(lCursorY) + ')';
      //Label2是当前鼠标指向的位置的字符串,保留在(SentenceString)中
      Label2.Caption := '当前语句:' + SentenceString ;
      //Lloc鼠标在语句中的位置 ,label3得到当前字符串
      Label3.Caption := '当前字符:' + Midstr(SentenceString,lloc+1,1);
    end;

    方法二:不使用控件,通过使用createOleObject(str)函数来实现动态创建该取词对象

    同样引用OleServer, XDICTGRB_TLB两个单元,然后

    TForm1 = class(TForm)改成

    TForm1 = class(TForm,IXDictGrabSink),并且实现IXDictGrabSink接口中的方法的声明

    之后声明变量Gp: variant;

    在窗体的Show中写代码如下:

    procedure TForm1.FormShow(Sender: TObject);
    var
      i: IXDictGrabSink;
    begin
       //声明一个接口变量,然后把自己赋给该变量以便后面的方法调用接口
       i := self;
       //创建对象
       gp := CreateOleObject('XdictGrb.GrabProxy');
       //指定属性
       gp.GrabEnabled := true;
       gp.GrabInterval := 1;
       gp.GrabMode := XDictGrabMouse;
       gp.AdviseGrab(i);
    end;

    然后实现接口的取词方法。

    注意:在窗体的Close事件中要写上 gp := 0;将创建的取词对象释放掉,否则窗体关闭的时候会出错哦!

    http://blog.csdn.net/genispan/article/details/3981159

  • 相关阅读:
    MFC下使用Mysql
    Curl的移植编译以及注意事项
    MFC 封装类为静态链接库
    MFC 任务托盘显示气泡
    MFC 获取本机IP、网络ip和物理地址
    MFC下获取系统内存和当前进程的内存使用情况
    C++ windows客户端支持SSL双向认证
    jdk+tomcat+mysql一键安装脚本
    mysql修改数据库密码
    MFC 任务托盘经常消失问题
  • 原文地址:https://www.cnblogs.com/findumars/p/7117043.html
Copyright © 2011-2022 走看看