線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1361
推到 Plurk!
推到 Facebook!

請問如何用BCB ~~引用 Com Object 的 Event ?

尚未結案
CuteBabyBoy
初階會員


發表:18
回覆:97
積分:48
註冊:2003-07-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-11-13 10:14:44 IP:218.167.xxx.xxx 未訂閱
Dear All    目前我遇到一個問題,我想引用別人所寫的Event ( VB or VC ) ,對於 Com Object 我只是用   
Variant Value = Variant::CreateObject("aaa.bbb");
Value.OleFunction("ccc")
而我朋友 ( 寫 VB ) 的,他說 VB 引用 Event 也是要靠自己宣告 ( 相關範例如下 ) 我對 VB 也不是很熟...不知道有沒有幫助大家理解我想問的問題 它好像僅用 "WithEvents" 就能引用相關 Event 而他問我能不能 Load 其 Type Library... 我好像目前沒辦法...
Dim WithEvents aa As clsNewHook
Attribute aa.VB_VarHelpID = -1
Dim i As Integer    Private Sub aa_KeyChange(ByVal KeyStr As String)
Debug.Print "KeyChange=[" & KeyStr & "]"
Add2List "KeyChange=[" & KeyStr & "]"
Text1.Text = aa.KeyHookStr
If KeyStr = "^ |72,35" Then End
End Sub
關於 Ole 的資訊,我上網查都好少..>< 對於 ActiveX Library 我算是新手 (才玩幾天..) ,對dll 的體認也是這幾天才體會到它的好處,所以希望有經驗的朋友能多提供一些資料給我,謝謝! 發表人 - taishyang 於 2003/11/13 12:56:16
CuteBabyBoy
初階會員


發表:18
回覆:97
積分:48
註冊:2003-07-11

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-11-13 13:50:44 IP:218.167.xxx.xxx 未訂閱
Dear ALL 在今天中午前... 我嘗試了很多方式 原來..在工具列 Project 內就能 Import Type Library ( 居然用這麼久都沒發現 ) 用法就很類似加入新的 Object 一樣... 經過 Install 後產生出 BCB 看的懂的 Library 以前當要用 *.pas 物件都由 Component \ Iistall Component 現在我一般的 Com Object 已經知道怎麼溝通 但...這也只是第一步.... 在來我要試的就是如何引用 Com Object 的 Event 老實說...目前我要引用的 Com Object 是有包 Form 的 會不會因為是 VB 包 Form ... BCB 就無法使用 ? 這我會在嘗試....如果有進度 我會寫在這邊討論.... 而有相關經驗的朋友~~~也歡迎一起來討論....
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-11-13 13:57:16 IP:203.73.xxx.xxx 未訂閱
引言: Dear ALL 在今天中午前... 我嘗試了很多方式 原來..在工具列 Project 內就能 Import Type Library ( 居然用這麼久都沒發現 ) 用法就很類似加入新的 Object 一樣... 經過 Install 後產生出 BCB 看的懂的 Library 以前當要用 *.pas 物件都由 Component \ Iistall Component 現在我一般的 Com Object 已經知道怎麼溝通 但...這也只是第一步.... 在來我要試的就是如何引用 Com Object 的 Event 老實說...目前我要引用的 Com Object 是有包 Form 的 會不會因為是 VB 包 Form ... BCB 就無法使用 ? 這我會在嘗試....如果有進度 我會寫在這邊討論.... 而有相關經驗的朋友~~~也歡迎一起來討論....
CuteBabyBoy 你好: 小弟我實在不想潑你的冷水,請先參考這篇文章中的說明
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
CuteBabyBoy
初階會員


發表:18
回覆:97
積分:48
註冊:2003-07-11

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-11-17 11:06:19 IP:218.167.xxx.xxx 未訂閱
Dear RaynorPao 謝謝您提供的資訊 我自己也試了一些方式 嗯.... 目前我已經可以成功的 Show 出 VB 所包的 Form 了... ( Form MediaPlayer ) 只是還在 Try 如何對它 Ctrl.... 因為礙於三天要結案.....所以先在這邊做個簡單的 Close 再次謝謝您的指導...^^
系統時間:2024-05-04 2:22:16
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!