[code cpp]
VARIANT var;
BSTR tbstr;
VariantInit(&var);
var.vt = VT_ARRAY | VT_VARIANT;
SAFEARRAYBOUND bound;
bound.cElements = 28;
bound.lLbound = 0;
var.parray = SafeArrayCreate(VT_VARIANT, 1, &bound);
VARIANT* array;
HRESULT hr=SafeArrayAccessData(var.parray, (void**)&array);
for(int i=0;i VariantInit(array i);
tbstr=SysAllocString(L"A86562");
array[0].vt= VT_BSTR;
array[0].bstrVal = tbstr;

array[1].vt= VT_BSTR;
tbstr=SysAllocString(L"000");
array[1].bstrVal = tbstr;


array[2].vt= VT_I4;
array[2].lVal= 100;
........
.......
......

SafeArrayUnaccessData(var.parray);
tmp=m_trade.PlaceOrder(&var);//for vc 6.0
// tmp=trade->PlaceOrder(&var);//for c builder
[/code]

奇怪以上我的code放在VC 6.0裡可以正常運作,為何在C builder 卻不行?
tmp的返回值在VC裡皆可傳回正常的值
但同樣的code在c builder卻一直傳回0
請問c builder在呼叫OCX的方式,使用VARTANT array傳參數上有什麼特殊須注意的嗎?

編輯記錄

把VARIANT的部份改成Variant
再試看看!
若不行則用TVariant。

bcb裡的問題都是VARIANT和Variant和TVariant搞怪。經驗上用Variant最好!

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan

編輯記錄

依照大大的方法還是不行
我的困惑是,同樣都是呼叫win32 api結果為何不同?

看來你還是用上回RaynorPao他指導的方式，用SafeArrayPutElement 來把資料一個個放入。
http://delphi.ktop.com.tw/board.php?cid=168&fid=923&tid=95462
這是傳統的寫法。

而你用的方式比較特別。SafeArrayAccessData的用法通常是在有SafeArray的資料時，為了存取它的資料而使用。我不是很確定bcb的記憶體配置情形是否會和vc一樣。即SafeArrayCreate後便配好你需要的空間供你去"修改"。 傳統的想法當然是用SafeArrayCreate後，配合SafeArrayPutElement 把值"加"入。

若你用了傳統的方式還不行，我則覺得是com物件創造時的問題。還是先用RaynorPao的方式試一次吧!

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan

tmp=trade->PlaceOrder(&var);//for c++builder

再請教你trade是用什麼法方創造出來的呢? Type Library 或是 Type Library with warpper component 或是用Variant::CreateObject ?

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan

您好,trade 是安裝了其ActiveX control後,用元件的方式拉出來的




===================引 用 aftcast 文 章===================
tmp=trade->PlaceOrder(&var);//for c builder

再請教你trade是用什麼法方創造出來的呢? Type Library 或是 Type Library with warpper component 或是用Variant::CreateObject ?