如何用ocx控件

Question

本人倒入一个ocx控件，但是没有显示控件，文件如下
如何用啊没有create函数
unit AiPlugControl_TLB;  {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}interfaceuses ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants, 
Windows;
   
const
  // TypeLibrary Major and minor versions
  AiPlugControlMajorVersion = 3;
  AiPlugControlMinorVersion = 0;  LIBID_AiPlugControl: TGUID = '{C1F7FC6F-64FF-455A-A49B-C0B6F94AD82A}';  IID__AiPlug: TGUID = '{5DAABAD0-8B86-4C06-B729-AE9E50779A24}';
  DIID___AiPlug: TGUID = '{8FCC1927-21DC-4877-9750-2599C67CB9F4}';
  CLASS_AiPlug: TGUID = '{D7278819-05BB-4A93-8542-9D8A785F3CDF}';
type 
  _AiPlug = interface;
  _AiPlugDisp = dispinterface;
  __AiPlug = dispinterface; 
  AiPlug = _AiPlug; 
  _AiPlug = interface(IDispatch)
    ['{5DAABAD0-8B86-4C06-B729-AE9E50779A24}']
    procedure GhostMethod__AiPlug_28_0; safecall;
    function  Get_BinaryMode: WordBool; safecall;
    procedure Set_BinaryMode(Param1: WordBool); safecall;
    function  Get_Convert_h: WordBool; safecall;
    procedure Set_Convert_h(Param1: WordBool); safecall;
    function  Get_CommandTimeout: Integer; safecall;
    procedure Set_CommandTimeout(Param1: Integer); safecall;
    function  Get_IsPolling: WordBool; safecall;
    function  Get_IsConnected: WordBool; safecall;
    function  Get_ErrorNumber: Integer; safecall;
    function  Get_ErrorDescription: WideString; safecall;
    function  ConnectPci(BoardNo: Smallint): WordBool; safecall;
    function  ConnectSocket(const IpAddress: WideString; PortNo: Smallint): WordBool; safecall;
    function  ConnectRs232c(CommPortNo: Smallint): WordBool; safecall;
    function  SendCommand(const CommandString: WideString; var ReceivedData: WideString): WordBool; safecall;
    function  CloseController: WordBool; safecall;
    function  StartPolling(BlockNo: Smallint): WordBool; safecall;
    procedure StopPolling; safecall;
    function  StartLogging(const LogDir: WideString; StoredDate: Smallint; LowLevel: WordBool): WordBool; safecall;
    procedure StopLogging; safecall;
    procedure ShowAboutBox; safecall;
    function  GetCommand(var strCommand: WideString): WordBool; safecall;
    property BinaryMode: WordBool read Get_BinaryMode write Set_BinaryMode;
    property Convert_h: WordBool read Get_Convert_h write Set_Convert_h;
    property CommandTimeout: Integer read Get_CommandTimeout write Set_CommandTimeout;
    property IsPolling: WordBool read Get_IsPolling;
    property IsConnected: WordBool read Get_IsConnected;
    property ErrorNumber: Integer read Get_ErrorNumber;
    property ErrorDescription: WideString read Get_ErrorDescription;
  end;// *********************************************************************//
// DispIntf:  _AiPlugDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {5DAABAD0-8B86-4C06-B729-AE9E50779A24}
// *********************************************************************//
  _AiPlugDisp = dispinterface
    ['{5DAABAD0-8B86-4C06-B729-AE9E50779A24}']
    procedure GhostMethod__AiPlug_28_0; dispid 1610743808;
    property BinaryMode: WordBool dispid 1745027128;
    property Convert_h: WordBool dispid 1745027127;
    property CommandTimeout: Integer dispid 1745027126;
    property IsPolling: WordBool readonly dispid 1745027125;
    property IsConnected: WordBool readonly dispid 1745027124;
    property ErrorNumber: Integer readonly dispid 1745027123;
    property ErrorDescription: WideString readonly dispid 1745027122;
    function  ConnectPci(BoardNo: Smallint): WordBool; dispid 1610809409;
    function  ConnectSocket(const IpAddress: WideString; PortNo: Smallint): WordBool; dispid 1610809410;
    function  ConnectRs232c(CommPortNo: Smallint): WordBool; dispid 1610809411;
    function  SendCommand(const CommandString: WideString; var ReceivedData: WideString): WordBool; dispid 1610809412;
    function  CloseController: WordBool; dispid 1610809413;
    function  StartPolling(BlockNo: Smallint): WordBool; dispid 1610809414;
    procedure StopPolling; dispid 1610809415;
    function  StartLogging(const LogDir: WideString; StoredDate: Smallint; LowLevel: WordBool): WordBool; dispid 1610809416;
    procedure StopLogging; dispid 1610809417;
    procedure ShowAboutBox; dispid -552;
    function  GetCommand(var strCommand: WideString): WordBool; dispid 1610809418;
  end;// *********************************************************************//
// DispIntf:  __AiPlug
// Flags:     (4240) Hidden NonExtensible Dispatchable
// GUID:      {8FCC1927-21DC-4877-9750-2599C67CB9F4}
// *********************************************************************//
  __AiPlug = dispinterface
    ['{8FCC1927-21DC-4877-9750-2599C67CB9F4}']
    procedure DataArrival(const Data: WideString); dispid 1;
    procedure ErrorRaised(Number: Integer; const Description: WideString); dispid 2;
  end;implementationuses ComObj;end.

Answer 1

OCX是放入网页或程序中用的
你把ActiveX Form的源码贴出来有什么用啊

Answer 2

<HTML>
<H1> Delphi 5 ActiveX Test Page </H1><p>
You should see your Delphi 5 forms or controls embedded in the form below.
<HR><center><P>
<OBJECT
  classid="clsid:1391A5FC-E790-42B1-8F04-CCAE37A44CB6"
  codebase="http://xy/afxSafeProj.ocx#version=2003,12,6,1"
  width=538
  height=350
  align=center
  hspace=0
  vspace=0
>
</OBJECT>
</HTML>
　　　　classid="clsid:1391A5FC-E790-42B1-8F04-CCAE37A44CB6"
　　　　codebase="http://xy/afxSafeProj.ocx#version=2003,12,6,1"

Answer 3

你有安装吗?
安装了的话!在Active X页中便会显示该控件,到时就像拉其他控件一样,拉一下就好了

Answer 4

delphi 的component菜单中的improt activeX control...然后再点add来添加你那个.ocx控件.

Answer 5

你有没有先注册呀?
regsvr32 xxx.ocx?!