以下是我在VB6编写的ActiveX控件wjprnview.ocx,注册并导入Delphi5的开发环境后,Delphi生成的wjprnview_TLB.pas文件,其没有生成Twjprnview类,也没有注册面板上,无法使用,请问有方法吗?
unit wjprnview_TLB;
// ************************************************************************ // // WARNING // ------- // The types declared in this file were generated from data read from a // Type Library. If this type library is explicitly or indirectly (via // another type library referring to this type library) re-imported, or the // ''''Refresh'''' command of the Type Library Editor activated while editing the // Type Library, the contents of this file will be regenerated and all // manual modifications will be lost. // ************************************************************************ //
// PASTLWTR : $Revision: 1.88.1.0.1.0 $ // File generated on 2004-06-11 14:04:44 from Type Library described below.
// ************************************************************************ // // Type Lib: E:\R95\wjprnview.ocx (1) // IID\LCID: {D72F975E-72DC-11D6-923D-00E04CE8FBA7}\0 // Helpfile: // DepndLst: // (1) v2.0 stdole, (C:\WINNT\system32\stdole2.tlb) // (2) v4.0 StdVCL, (C:\WINNT\system32\STDVCL40.DLL) // ************************************************************************ // {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. interface
uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
// *********************************************************************// // GUIDS declared in the TypeLibrary. Following prefixes are used: // Type Libraries : LIBID_xxxx // CoClasses : CLASS_xxxx // DISPInterfaces : DIID_xxxx // Non-DISP interfaces: IID_xxxx // *********************************************************************// const // TypeLibrary Major and minor versions wjprnviewMajorVersion = 29; wjprnviewMinorVersion = 0;
LIBID_wjprnview: TGUID = ''''{D72F975E-72DC-11D6-923D-00E04CE8FBA7}'''';
IID__prnview: TGUID = ''''{18CF3D27-3867-425A-BCE2-C754EE5FFE5A}''''; DIID___prnview: TGUID = ''''{A47CD1BA-2E3A-4DCC-BE25-EA98C08DD135}''''; CLASS_prnview: TGUID = ''''{D72F9760-72DC-11D6-923D-00E04CE8FBA7}''''; type
// *********************************************************************// // Forward declaration of types defined in TypeLibrary // *********************************************************************// _prnview = interface; _prnviewDisp = dispinterface; __prnview = dispinterface;
// *********************************************************************// // Declaration of CoClasses defined in Type Library // (NOTE: Here we map each CoClass to its Default Interface) // *********************************************************************// prnview = _prnview;
// *********************************************************************// // Interface: _prnview // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {18CF3D27-3867-425A-BCE2-C754EE5FFE5A} // *********************************************************************// _prnview = interface(IDispatch) [''''{18CF3D27-3867-425A-BCE2-C754EE5FFE5A}''''] procedure PsetA(var X: OleVariant; var Y: OleVariant; var color: OleVariant); safecall; function TextWidth(var str: WideString): Single; safecall; function TextHeight(var str: WideString): Single; safecall; procedure PaintPicture(var pic: IDispatch; var pLeft: OleVariant; var pTop: OleVariant; var pWidth: OleVariant; var pHeight: OleVariant); safecall; procedure Refresh; safecall; procedure StartDoc(zm: OleVariant; Pw: OleVariant; Ph: OleVariant); safecall; function Get_DrawWidth: OleVariant; safecall; procedure Set_DrawWidth(var Param1: OleVariant); safecall; function Get_CurrentX: Single; safecall; procedure Set_CurrentX(Param1: Single); safecall; function Get_CurrentY: Single; safecall; procedure Set_CurrentY(Param1: Single); safecall; function Get_BackColor: OLE_COLOR; safecall; procedure Set_BackColor(Param1: OLE_COLOR); safecall; function Get_ForeColor: OLE_COLOR; safecall; procedure Set_ForeColor(Param1: OLE_COLOR); safecall; function Get_Font: IFontDisp; safecall; procedure Set_Font(const Param1: IFontDisp); safecall; procedure Set_FontName(var Param1: OleVariant); safecall; procedure Set_FontSize(var Param1: OleVariant); safecall; procedure Set_FontBold(var Param1: OleVariant); safecall; procedure Set_FontItalic(var Param1: OleVariant); safecall; function Get_PaperWidth: Single; safecall; procedure Set_PaperWidth(var Param1: Single); safecall; function Get_PaperHeight: Single; safecall; procedure Set_PaperHeight(var Param1: Single); safecall; function Get_ScaleHeight: Single; safecall; procedure Set_ScaleHeight(Param1: Single); safecall; function Get_ScaleWidth: Single; safecall; procedure Set_ScaleWidth(Param1: Single); safecall; procedure CircleA(var bLeft: OleVariant; var bTop: OleVariant; var bRadius: OleVariant); safecall; procedure PrintA(var PrintVar: OleVariant); safecall; procedure BoxA(var bLeft: OleVariant; var bTop: OleVariant; var bLeft1: OleVariant; var bTop1: OleVariant); safecall; procedure BoxF(var bLeft: OleVariant; var bTop: OleVariant; var bLeft1: OleVariant; var bTop1: OleVariant; var color: OleVariant); safecall; procedure LineA(var bLeft: OleVariant; var bTop: OleVariant; var bLeft1: OleVariant; var bTop1: OleVariant); safecall; procedure Cls; safecall; function Get_DrawStyle: Smallint; safecall; procedure Set_DrawStyle(Param1: Smallint); safecall; function Get_DrawMode
[1] [2] 下一页 [Delphi程序]Delphi深度探索-数据库明了的ActiveX控件 [Delphi程序]DELPHI实现activex控件的限制 [Delphi程序]Delphi使用VB编写的ActiveX控件全攻略 [Delphi程序]MediaPlayer9 ActiveX 攻略(原创) [Delphi程序]Building ActiveX Controls with Delphi 3 [VB.NET程序]VB连接数据库时出现“ActiveX部件不能创建对象” [Web开发]讲一讲ASP处理数据用的组件ADO (ActiveX Data Obj…
|