網頁使用傳參數的方法是param
在activeX控制項網頁內容新增

param name="mytrans" value="12348759"


BCB的部份
1.新增ActiveX控制項


2. 選擇 View->Type Library


3.在 IActiveFormX按右鍵新增property

新增property後會新增GET跟PUT
Name我命名為mytrans
Type要選擇BSTR
新增完畢後要按上面的Refresh

在.cpp裡面就會新增以下的程式

[code cpp]

STDMETHODIMP TActiveFormXImpl::get_myturns(BSTR* Value)
{
try
{

}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_IActiveFormX);
}
return S_OK;
};

STDMETHODIMP TActiveFormXImpl::set_myturns(BSTR Value)
{
try
{

}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_IActiveFormX);
}
return S_OK;
};

[/code]
這時候只要在set.mytrans裡面寫上程式碼就可讀取網頁的參數


[code cpp]
STDMETHODIMP TActiveFormXImpl::set_mytrans(BSTR Value)
{
try
{
const DISPID dispid = 16;
if(FireOnRequestEdit(dispid) == S_FALSE)
return S_FALSE;
m_VclCtl->Edit1->Text = Value; //新增一個Edit1,要使用m_VclCtl的方式才可以命命物件
FireOnChanged(dispid);
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_IActiveFormX);
}
return S_OK;
};[/code]

除此之外
還需要在.h設定才可以啟動

[code cpp]
class ATL_NO_VTABLE TActiveFormXImpl:
VCLCONTROL_IMPL(TActiveFormXImpl, ActiveFormX, TActiveFormX, IActiveFormX, DIID_IActiveFormXEvents)
,public IPersistPropertyBagImpl //新增
,public IObjectSafetyImpl //新增
.....

BEGIN_COM_MAP(TActiveFormXImpl)
VCL_CONTROL_COM_INTERFACE_ENTRIES(IActiveFormX)
COM_INTERFACE_ENTRY_IMPL(IPersistPropertyBag) //新增
COM_INTERFACE_ENTRY(IObjectSafety) //新增
END_COM_MAP(
...


BEGIN_PROPERTY_MAP(TActiveFormXImpl)
// PROP_PAGE(CLSID_ActiveFormXPage)
PROP_ENTRY("mytrans",DISPID(16),CLSID_ActiveFormX) //新增,要注意是否有輸入正確的name還有DISPID
END_PROPERTY_MAP()
[/code]

這樣就可以擷取網頁所要傳遞的參數了
如有錯誤的用詞或是地方
煩請指教~

編輯記錄

很好，拍拍手~^^