小编Heb*_*Heb的帖子

我的工作与功能的COM对象库,它返回一个VARIANT带有SAFEARRAY的BSTR秒.如何显示此VARIANT实例的值并将其保存在TStringList？我试着在网上搜索没有明确的答案.

我尝试了以下但没有成功:

Variant V;
String mystr;

VarClear(V);
TVarData(V).VType = varOleStr;
V = ComFunction->GetValues();  //<<<<----- V is empty
mystr = (wchar_t *)(TVarData(V).VString);
Memo1->Lines->Add(mystr);
VarClear(V);