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

請問 Delphi 如何呼叫 Atl COM(by VC) ?

缺席
cdklokBCB
一般會員


發表:15
回覆:27
積分:8
註冊:2003-02-19

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-09-13 12:00:52 IP:59.124.xxx.xxx 未訂閱

小弟有兩個問題想請問各位大大:

1. 請問 Delphi 如何呼叫 Atl COM 的 Method ?

2. 請問 假設我的COM 必須跟隨一 include file (A.h), 那 A.h 裡面的 struct 等類型便必須要

改成 Delphi 的類型嗎?

例如 VC 呼叫 COM 的範例如下.

struct InitOle
{
InitOle()
{ ::CoInitialize(NULL); }
~InitOle()
{ ::CoUninitialize(); }
} _init_InitOle_;

if ( (hr=::CoCreateInstance(CLSID_CIAVC_COM,
NULL,
CLSCTX_INPROC_SERVER,
IID_IIAVC_COM,
(void**)&m_pCIAVC)) >= S_OK)
{
m_Avcsyscbprops.GetBitsImage = AVC_GetBitsImage; // AVC_GetBitsImage is a function pointer
m_Avcsyscbprops.GetRawAudio = AVC_GetRawAudio;
m_Avcsyscbprops.GetRawImage = AVC_GetRawImage;
m_Avcsyscbprops.GetCallError = AVC_GetCallError;
m_Avcsyscbprops.pPrivate = (void *)0x12345678;
m_pCIAVC->AVC_Initial((BYTE *)&m_Avcsyscbprops);
}

Delphi 如何改寫呢?

謝謝~

系統時間:2024-03-29 13:59:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!