![Rank: 5](images/default/star_level3.gif) ![Rank: 5](images/default/star_level1.gif)
- 帖子
- 209
- 积分
- 550
- 威望
- 886
- 金钱
- 697
- 在线时间
- 1 小时
![贡献奖 贡献奖](images/common/medal6.gif) ![灌水王 灌水王](images/common/medal8.gif)
|
[讨论]BCB6高手技术求解:xdictgrb.dll的抓词问题!
[讨论]BCB6高手技术求解:xdictgrb.dll的抓词问题!
复制内容到剪贴板
代码:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleServer, XDICTGRB_TLB, StdCtrls;
type
TForm1 = class(TForm,IXDictGrabSink)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
GP: IGrabProxy;
public
{ Public declarations }
function QueryWord(const WordString: WideString;lCursorX: Integer;
lCursorY: Integer;const SentenceString: WideString;
var lLoc: Integer; var lStart: Integer): Integer; safecall;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
gp:=CoGrabProxy.Create;
gp.GrabInterval :=1;
gp.GrabMode :=XDictGrabMouse;
gp.GrabEnabled :=true;
gp.AdviseGrab(self);
end;
function TForm1.QueryWord(const WordString: WideString; lCursorX,
lCursorY: Integer; const SentenceString: WideString; var lLoc,
lStart: Integer): Integer;
begin
memo1.Text := memo1.text+SentenceString+ 10;
end;
end.
用D7就这几句就OK了,BC6都不知道怎么用的
================================================
我在BC6里面是这样写的
void __fastcall TForm1::FormCreate(TObject *Sender)
{
GrabProxy1->set_GrabInterval(1);
GrabProxy1->set_GrabMode(XDictGrabModeEnum(1));
GrabProxy1->set_GrabEnabled(true);
GrabProxy1->AdviseGrab(this);
}
//---------------------------------------------------------------------------
int __fastcall TForm1::QueryWord(const WideString WordString,int lCursorX,int lCursorY,
const WideString SentenceString,int lLoc,int lStart)
{
this->Memo1->Text=SentenceString;
return 1;
}
H文件
#intclude <XDICTGRB_TLB.h>
class TForm1 : public TForm,public IXDictGrabSink
{
__published: // IDE-managed Components
TGrabProxy *GrabProxy1;
TMemo *Memo1;
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
public: // User declarations
int __fastcall QueryWord(const WideString WordString,int lCursorX,int lCursorY,
const WideString SentenceString,int lLoc,int lStart);
__fastcall TForm1(TComponent* Owner);
};
是否我那里引用错了,一运行就提示是纯虚拟函数不能运行
XdictGrb.dll是金山词霸里的一个COM组件 可单独使用 哪个BCB6的高手可以搞定的 请发一下完整代码!!
附件里带了XdictGrb.dll!!!
附件
xdictgrb.rar (48.06 KB)
2008-4-18 15:38, 下载次数: 100 论坛地址: http://www.ssk2.cn & www.iisuser.com
帖子287 精华14 积分6821 阅读权限200 性别男 在线时间96 小时 注册时间2005-1-7 最后登录2008-7-17 查看个人网站
查看详细资料引用 报告 回复 TOP 良辰择日,预测咨询,公司改名,权威易经
softbug ![](http://forum.eviloctal.com/images/avatars/noavatar.gif)
技术核心组
![](http://forum.eviloctal.com/images/default/star_level2.gif) ![](http://forum.eviloctal.com/images/default/star_level2.gif) |
|