【结贴】引入第三方控件**

zhdkelly

引入后在X3平台调用出错, .pas代码如下
unit OleAdvF;
interface
uses
  OleCtnrs, Dialogs;
  type
    TOleWord = class
    private   
    public
      procedure Open();
    end;
implementation
uses Word2000,OleServer,ExtCtrls;

{ TOleWord}
procedure TOleWord.Open();
var
wod:TWordApplication;
begin
wod.Connect;
wod.Visible:=True;
end;
end.
我想调用后打开个word程序,但是会出现异常:没有类型信息"TOleWord",请问是我写的程序错了还是怎么回事?

gaihl

最初由 zhdkelly 发布
[B]var
wod:TWordApplication;
begin
wod.Connect;
wod.Visible:=True;
end;[/B]

你得保证上面代码在delphi 下能运行.

gaihl

在package 包中引用了第三步Bat产生的XXX_reg.pas文件了吗

zhdkelly

在delphi试了一下,确实不能编译通过,但要是这样的话
type
  TForm1 = class(TForm)
    Button1: TButton;
    WordApplication1: TWordApplication;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  WordApplication1.Connect;
WordApplication1.Visible:=True;
end;
end.
这个在导入时运行批处理命令通不过,
请问下应该怎么写,我想导进X3后调用Open方法打开word

gaihl

查一下WordApplication1: TWordApplication;纯用代码调用的资料吧,, 你将WordApplication1放在
procedure TForm1.Button1Click(Sender: TObject);
var
  WordApplication1: TWordApplication;
begin
中调用通过就应可以了,

zhdkelly

但是这样写和我之前那个不是一样吗
var
wod:TWordApplication;
begin
wod.Connect;
wod.Visible:=True;
end;
这个不是不行吗

gaihl

放在函数中的TWordApplication是需要自已Create的,而放在窗体上的,系统会自动Create
看看下面这个,你也可以到网上搜搜,
http://blog.csdn.net/luckyjan/archive/2004/09/09/13064.aspx

zhdkelly

好的，谢谢，可以结帖了