近日来,在网上发现关于屏幕取词技术的捷径,搜索很长时间,发现实现方式以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

delphi中使用词霸2005的动态库XdictGrb.dll实现屏幕取词的更多相关文章

  1. GetWord 3.3 屏幕取词

    1. 缘起 要搞一个作弊软件,需要把屏幕上的试题取下来. 据说针对IE的取词很难,所以也就打消了自己开发的念头,找一找好用的控件. 发现了两个可以用的,一个是金山词霸的XdictGrb.dll文件,一 ...

  2. 基于C#利用金山取词组件实现屏幕取词功能

    这个程序在网上有很多例子,近期要做的项目中有和这个有某些一点点相似的地方,就练练,发现在本机上(Win 7 64位)不能实现其功能,可能原因是API组件太老了吧,毕竟金山大佬公布他的组件是2005年, ...

  3. C#调用SCL2008 动态库SCL_API_cdecl.dll or SCL_API_Stdcall.dll,提示找不到指定模块

    在公司用的联想 ThinkPad T430i,原装配置及系统,开机巨慢.按下开机键到登陆界面超过1分钟,再到桌面这个时间就难说了,多时有超过3分钟,进入桌面还要等待几分钟才能正常操作.新年过来向公司领 ...

  4. cmake中设置ELF文件加载动态库的位置

    1. 三个文件 1. world.c #include<stdio.h> void world(void) { printf("world.\n"); } 2. hel ...

  5. C#调用C++动态库(dll)

    在实际软件开发过程中,由于公司使用了多种语言开发,在C#中可能需要实现某个功能,而该功能可能用其他语言已经实现了,那么我们可以调用其他语言写好的模块吗?还有就是,由于C#开发好的项目,我们可以利用re ...

  6. 驱动里执行应用层代码之KeUserModeCallBack(WOW64是由三个动态库wow64.dll wow64win.dll wow64cpu.dll来实现)

    在驱动层(ring0)里执行应用层(ring3)代码,这是个老生常谈的技术,而且方法也挺多. 这种技术的本质:其实就是想方设法在驱动层里把应用层代码弄到应用层去执行. 比如在APC异步调用中,KeIn ...

  7. [转]静态库、动态库,dll文件、lib文件,隐式链接、显式链接

    转自:https://blog.csdn.net/dcrmg/article/details/53427181 静态链接.动态链接 静态库和动态库分别应用在静态链接方式和动态链接方式中,所谓静态链接方 ...

  8. 静态库、动态库,dll文件、lib文件,隐式链接、显式链接浅见

    静态链接.动态链接 静态库和动态库分别应用在静态链接方式和动态链接方式中,所谓静态链接方式是指在程序执行之前完成所有的链接工作,把静态库一起打包合入,生成一个可执行的目标文件(EXE文件).所谓动态链 ...

  9. C++编写动态库(.DLL)给C#调用方法

    1.在头文件中按照如下格式编写函数申明 extern "C" __declspec(dllexport) double __stdcall Add(double a, double ...

随机推荐

  1. [Angular Directive] Create a Template Storage Service in Angular 2

    You need to define a <template> to be able to use it elsewhere in your app as a TemplateRef. Y ...

  2. Net Core 下 Newtonsoft.Json 转换字符串 null 替换成string.Empty

    原文:Net Core 下 Newtonsoft.Json 转换字符串 null 替换成string.Empty public class NullToEmptyStringResolver : De ...

  3. 【codeforces 765D】Artsem and Saunders

    [题目链接]:http://codeforces.com/contest/765/problem/D [题意] 给你一个函数f(x); 要让你求2个函数g[x]和h[x],使得g[h[x]] = x对 ...

  4. hadoop 3.x 启动过程中 Permission denied (publickey,gssapi-keyex,gssapi-with-mic,password).

    出现这种状况是因为当前账号没有配置ssh免密登录 进入到以下目录,查看是否生成过秘钥对,如果有的话直接ssh-copy-id 主机名 没有的话执行ssh-keygen -t rsa后再重新执行ssh- ...

  5. MySQL实现类似Oracle中的nextval和currval

    CREATE TABLE `sequence` ( `seq_name` varchar(50) NOT NULL, `current_val` int(11) NOT NULL, `incremen ...

  6. 云主机CentOS 7新环境命令行搭建node工程步骤

    1.用Node官网提供的命令安装node https://nodejs.org/en/download/package-manager/#debian-and-ubuntu-based-linux-d ...

  7. 【record】10.2..10.9

    .

  8. 【64.22%】【codefoces round 382A】Ostap and Grasshopper

    time limit per test2 seconds memory limit per test256 megabytes inputstandard input outputstandard o ...

  9. C# await 高级用法

    原文:C# await 高级用法 本文告诉大家 await 的高级用法,包括底层原理. 昨天看到太子写了一段代码,我开始觉得他修改了编译器,要不然下面的代码怎么可以编译通过 await "林 ...

  10. docker入门3:基础操作(2)

    -- 容器删除 docker rm CONTAIN_ID|CONTAIN_NAME -- 镜像删除 docker rmi IMAGE_ID|IMAGE_NAME -- 进入容器 docker exec ...