全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:948
推到 Plurk!
推到 Facebook!

这个activex如何在delphi中使用!

尚未結案
heartache
一般會員


發表:9
回覆:9
積分:3
註冊:2003-10-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-10-23 14:15:10 IP:219.159.xxx.xxx 未訂閱
有一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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-11-01 21:15:04 IP:218.15.xxx.xxx 未訂閱
这个问题我也在找答案。 VB 写的 OCX 只能在未打过任何补丁的 D5 中引入, 我用的方法是在 D5 中引入,然后打成包(.dpk),然后转到 D6 以上安装 这个包,在提示是否转新格式时选否。 但能成功的机会很小。
Register
一般會員


發表:5
回覆:13
積分:3
註冊:2004-03-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-04-17 09:26:39 IP:218.15.xxx.xxx 未訂閱
你好,我在上一贴中悟导了你,这是我后来的解决方法: 引入控件之前必须进行如下设定: 如点击Tools菜单->Environment Options->Type Library页,应该发现一项:Ignore special CoClass Flags When Importing,选中它,然后再选中Can Create那一项,(这里要注意,如果你已经导入过一次,那么请把产生的那两个文件 .dcr 和 .pas文件删除,否则将不会刷新)。否则不能出现图标。
系統時間:2024-05-17 15:28:07
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!