将 Cardinal 转换为 IUnknow

Question

我现在正在努力将 Visual Basic 代码应用到 Delphi 代码中。

我有什么：

   // prepare query
   with oleClipboardFormat do
   begin
     cfFormat := CF_FileContents;
     ptd := nil;
     dwAspect := DVASPECT_CONTENT;
     lindex := Index;
     tymed := TYMED_ISTREAM or TYMED_ISTORAGE;
   end;

   // query data
   data.GetData(oleClipboardFormat, oleMedium)

字段oleMedium.hGlobal（变量类型为Cardinal）包含对IStorage接口的引用。

我应该如何将oleMedium.hGlobal 转换为IStorage？

我现在正在翻译的 VB 源代码中有某种黑魔法。代码作者使用以下visual basic函数将指针转换为接口...

Private Function ResolvePointer(ByVal PtrObj As Long) As stdole.IUnknown
Dim oUnk As stdole.IUnknown

' Get an uncounted reference
' to the IUnknown interface
MoveMemory oUnk, PtrObj, 4&

' Get a counted reference
Set ResolvePointer = oUnk

' Release the uncounted reference
MoveMemory oUnk, 0&, 4&

End Function

Answer 1

您的oleMedium 变量被声明为TStgMedium。它有一个hGlobal 字段，但它也有一个stg 字段，它的类型是Pointer。使用该字段，并在需要使用接口时将其类型转换为 IStorage：

IStorage(oleMedium.stg)

您的 VB 作者没有可供他或她使用的类型转换，因此代码将内存从一个变量复制到另一个变量。