delphi – 如何使用SATREARRAY为BSTR的VARIANT显示值

发布时间：2020-12-15 04:06:58 所属栏目：大数据来源：网络整理

导读：我正在使用一个COM对象库,其函数返回一个SAFSEARRAY为BSTR的VARIANT.如何显示此VARIANT实例的值并将其保存在TStringList中？我试着在网上搜索没有明确的答案. 我尝试了以下但没有成功： Variant V;String mystr;VarClear(V);TVarData(V).VType = varOleStr;V

我正在使用一个COM对象库,其函数返回一个SAFSEARRAY为BSTR的VARIANT.如何显示此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);

解决方法

您可以使用TWideStringDynArray并让Delphi进行转换：

procedure LoadStringsFromVariant(const Values: TWideStringDynArray; Strings: TStrings);
var
  I: Integer;
begin
  Strings.BeginUpdate;
  try
    for I := Low(Values) to High(Values) do
      Strings.Add(Values[I]);
  finally
    Strings.EndUpdate;
  end;
end;

当您使用BSTR的Variant safearray调用它时,它将自动转换为TWideStringDynArray.不兼容的Variant将导致运行时错误EVariantInvalidArgError.

要检查Variant是否包含BSTR的安全数组,您可以执行以下操作：

IsOK := VarIsArray(V) and (VarArrayDimCount(V) = 1) and (VarType(V) and varTypeMask = varOleStr);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!