这个activex如何在delphi中使用! |
尚未結案
|
heartache
一般會員 ![]() ![]() 發表:9 回覆:9 積分:3 註冊:2003-10-12 發送簡訊給我 |
有一ocx文件,在vb6中可以正常使用,但是到了delphi里,安装时一切正常,控件面版里找不到,或许只能动态调用?如何使用guid调用呢? 部分代码如下,请教各位老大! unit mongol_TLB; {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface uses Windows, ActiveX, Classes, Graphics, IObjectSafetyTLB_TLB, OleCtrls, OleServer, StdVCL,
Variants; const
// TypeLibrary Major and minor versions
mongolMajorVersion = 1;
mongolMinorVersion = 0; LIBID_mongol: TGUID = '{23D5DAE0-342E-430E-AD08-A3B7432722C6}'; IID__Mongolc: TGUID = '{737159E8-96F6-48FD-9752-3E145357F040}';
DIID___Mongolc: TGUID = '{54DB8920-01ED-42D1-AAD2-502064E0276A}';
IID__PropertyPage1: TGUID = '{072CE8AB-9532-4F29-9013-0004E20CEADB}';
CLASS_PropertyPage1: TGUID = '{D603BC6D-F626-4430-972E-857E93D7D679}';
CLASS_Mongolc: TGUID = '{DD679D21-F4A3-4D3E-8185-6C61705DD704}';
type // *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
_Mongolc = interface;
_MongolcDisp = dispinterface;
__Mongolc = dispinterface;
_PropertyPage1 = interface;
_PropertyPage1Disp = dispinterface; // *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
PropertyPage1 = _PropertyPage1;
Mongolc = _Mongolc; // *********************************************************************//
// Interface: _Mongolc
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {737159E8-96F6-48FD-9752-3E145357F040}
// *********************************************************************//
_Mongolc = interface(IDispatch)
['{737159E8-96F6-48FD-9752-3E145357F040}']
procedure GhostMethod__Mongolc_28_1; safecall;
procedure GhostMethod__Mongolc_32_2; safecall;
procedure GhostMethod__Mongolc_36_3; safecall;
............................................ i cant .....
|
Dot.com
一般會員 ![]() ![]() 發表:19 回覆:18 積分:7 註冊:2003-07-03 發送簡訊給我 |
|
Register
一般會員 ![]() ![]() 發表:5 回覆:13 積分:3 註冊:2004-03-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |