我用CreateOleObject引用了一个Aotomation对象，但我如何引用它的事件呢？

Question

代码如下：    gSQLServer := CreateOleObject('SQLDMO.SQLServer');
    oBackUp := CreateOleObject('SQLDMO.BackUp');    gSQLServer.LoginSecure := false;
    gSQLServer.LoginTimeout := 15;
    gSQLServer.Connect('angel', 'sa', 'zonekingsa');    oBackUp.Files := 'c:\Northwind.bak';
    oBackUp.DataBase := 'Northwind';
    oBackUp.SQLBackUp(gSQLServer);
    ShowMessage('success');    gSQLServer := Unassigned;
    oBackUp := Unassigned;oBackUp对象有一个CompletePercent事件，
如果我想引用此事件，如何引用呢？

Answer 1

oBackUp.CompletePercent(参数自己写满);就引用了

Answer 2

Linux2001(我想买手提电脑啊！)
老兄：如何写呀，呵呵。。
写在单元文件的实现部分吗？procedure oBackUp.CompletePercent();
begin
end;
这样写根本不能编译呀

Answer 3

如果已经有completepercent()事件了，linux2001兄说的，直接引用不就可以了吗？

Answer 4

不行的，编译根本不能通过。。通过CreateOleObject创建的对象，
给它赋事件好象没有这样简单
而如果不通过CreateOleObject，引入sqldmo.dll，这样倒是有了一个进度事件
，但是对数据库备份总是出错，我也不知为何。

Answer 5

不可能通不过，给你一个范例代码
procedure ShowWord;
var
  v :variant;
begin
  v :=CreateOleObject('Word.Basic');
  v.AppShow;
  v.FileNew;
  v.Insert('这是一个范例');
end;
这段代码你执行看看，如果你安装了Word，那么就会启动Word并且新建一个页面，插入'这是一个范例'字符串！

Answer 6

兄弟：
还真就通不过，
我安装了word..unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComObj;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ShowWord;
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);begin
  ShowWord;
end;procedure TForm1.ShowWord;
var
  v :variant;
begin
  v :=CreateOleObject('Word.Basic');
  v.AppShow;
  v.FileNew;
  v.Insert('这是一个范例');
end;end.说是创建服务器失败

Answer 7

我这里有啥问题？
呵呵。。word也装了。。哦，不是创建失败，
word已经启动，在进程里说是服务器运行失败
v.AppShow;
应该是这行出的问题。