如何调用ocx控件

Question

如何调用zhFileOcx.ocx，里面有很多函数，例如OnConnect(ByVal bConn As Boolean, ByVal nFileID As Long)。
我写代码怎么样来调用ocx里OnConnect函数，要怎么写?大家帮帮忙！！

Answer 1

http://dev.csdn.net/develop/article/21/21917.shtm

Answer 2

现在请跟着我做：点击Tools菜单->Environment Options->Type Library页,我们应该发现一项：Ignore special CoClass Flags When Importing，选中它，然后再选中Can Create那一项，那么现在，我们再尝试去导入那个可怜的ActiveX控件吧（这里要注意，如果你已经导入过一次，那么请把产生的那两个文件 .dcr 和 .pas文件删除，否则将不会刷新）。这次如果还是不能在ActiveX栏中发现那个控件的话，那么只有致电Microsoft或是Borland，问问看什么时候它们能结成亲家，呵呵!

Answer 3

//vb
Public Sub OnConnect(ByVal bConn As Boolean, ByVal nFileID As Long)
   Text1.Text = "hello world"
End SubPrivate Sub Command1_Click()
 MsgBox "ok"
    
End Sub////delphiunit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, Project1_TLB, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    UserControl11: TUserControl1;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
begin
self.UserControl11.OnConnect( true,1 );
end;end.

Answer 4

OnConnect 好像是一个事件而不是一个函数吧

Answer 5

当你为这个事件写了函数以后，譬如：
procedure TForm1.ZhFileOcx1Connect(ASender: TObject; bConn: WordBool;
  nFileID: Integer);
begin
  //here is code
end;ZhFileOcx1Connect和普通的函数是一样的，赋给OnConnect之后它会在Connect时自动触发这个函数，如果要手动使用这个函数，和使用普通函数的方法是一样的。只是注意一下里面的参数必须匹配。WordBool也是一个布尔型，占两个字节，当成Boolean处理就可以了。

Answer 6

vb中的事件默认为private
Private Sub Command1_Click()
也可以修改成
Public Sub Command1_Click()
这样的话就可以这样调用
self.UserControl11.Command1_Click;

Answer 7

各位,为什么我的OCX跟不进去,断点是有效的,就是不到断点