delphi - 将Cardinal转换为IUnknow

我现在正在努力将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来源中存在某种黑魔法。该代码的作者使用以下可视化基本函数将指针转换为接口。

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

最佳答案

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

IStorage(oleMedium.stg)

您的VB作者没有类型转换，因此代码将内存从一个变量复制到了另一个变量。