Delphi6调用COM组件的方法

1.调用普通COM组件

    Project->Import type library...->选中要调用COM组件->Create Unit ,记住类的名称

 

    var

   test : Txx;

 

  test := Txx.Create(nil);

test.Show;

test := nil;

 

2.调用带有连接点的COM组件

Project->Import type library...->选中要调用COM组件->Install,安装此COM组件

 

在ActiveX工具栏上将此COM组件拖到窗体上即可，添加事件

 

procedure TForm1.Button1Click(Sender: TObject);
begin
    DispConnect1.Add(strtoint(edit1.Text),strtoint(edit2.Text));
end;

procedure TForm1.DispConnect1Result(Sender: TObject; nVal: Integer);
begin
    ShowMessage(inttostr(nVal));
end;