0

我很好奇如何初始化 VT_VARIANT 的 PROPVARIANT 结构 | VT_VECTOR 类型。我知道的现有模型是DocumentSummaryInformation属性集HeadingPairs的属性：

HeadingPairs 属性作为变体向量存储在重复的 VT_LPSTR（或 VT_LPWSTR）和 VT_I4 值对中。

我知道各种 Init 函数，例如InitPropVariantFromStringAsVector创建 VT_VECTOR | 的函数。VT_LPWSTR propvariant，但据我所知，没有函数可以初始化 VT_VARIANT | 的 PROPVARIANT 结构 VT_VECTOR 类型。

任何帮助或建议将不胜感激。

谢谢你。

4

2 回答 2

1

您是正确的，没有现成的 Win32 函数可以PROPVARIANT用值向量初始化 a PROPVARIANT。您只需要手动初始化它，即分配一个PROPVARIANTs 数组，然后将该数组的指针分配给该PROPVARIANT::capropvar.pElems字段，并将该数组的长度分配给该PROPVARIANT::capropvar.cElems字段，例如：

int count = ...;
PROPVARIANT *arr = (PROPVARIANT*) CoTaskMemAlloc(count * sizeof(PROPVARIANT));

// initialize array values as needed...

PROPVARIANT pv;
PropVariantInit(&pv);
      
pv.vt = VT_VECTOR | VT_VARIANT;
pv.capropvar.pElems = arr;
pv.capropvar.cElems = count;

// use pv as needed...

PropVariantClear(&pv);
于 2022-02-28T21:20:04.777 回答
1

这是一个基于 Remy用 AutoHotkey 编写的解决方案的原型：

VariantVector := [{vt:0x001F, val:"hello world"}, {vt:0x0003, val:3}]
VarSetCapacity(PropVariant, 8 + 2 * A_PtrSize, 0)
InitPropVariatFromVariantAsVector(PropVariant, VariantVector)
; Do something here...
PropVariantClear(PropVariant)
return

InitPropVariatFromVariantAsVector(ByRef PropVariant, VariantVector) {
   static VT_VARIANT := 0x000C
   static VT_VECTOR  := 0x1000
   static Size := 8 + 2 * A_PtrSize
   
   NumPut(VT_VARIANT | VT_VECTOR,  PropVariant, 0, "UShort")
   NumPut(VariantVector.Count(), PropVariant, 8, "UInt")
   ptr := DllCall("Ole32\CoTaskMemAlloc", "UPtr", Size * VariantVector.Count(), "Ptr")
   NumPut(ptr, PropVariant, 8 + A_PtrSize, "Ptr")
   
   for Each, Variant in VariantVector {
      Offset := Size * (Each - 1)
      NumPut(Variant.vt,  ptr + 0, Offset, "UShort")
      Switch Variant.vt
      {
         Case 0x0003: NumPut(Variant.val, ptr + 0, Offset + 8, "Int")  ; VT_I4
         Case 0x001E: DllCall("Shlwapi\SHStrDup", "AStr", Variant.val, "Ptr", ptr + Offset + 8, "Int")  ; VT_LPSTR
         Case 0x001F: DllCall("Shlwapi\SHStrDup", "WStr", Variant.val, "Ptr", ptr + Offset + 8, "Int")  ; VT_LPWSTR
         Default: throw Exception(A_ThisFunc ": Unsupported Variant Type.", -1, Format("0x{:04X}", Variant.vt))
      }
   }
}

PropVariantClear(ByRef PropVariant) {
   return DllCall("Ole32\PropVariantClear", "Ptr", &PropVariant, "Int")
}
于 2022-03-01T17:53:48.447 回答