StgConvertPropertyToVariant

// ole32.dll
#include <windows.h>

BOOLEAN StgConvertPropertyToVariant(
    const SERIALIZEDPROPERTYVALUE* pprop,
    WORD CodePage,
    PROPVARIANT* pvar,
    IMemoryAllocator* pma
);

<DllImport("ole32.dll", ExactSpelling:=True)>
Public Shared Function StgConvertPropertyToVariant(
    pprop As IntPtr,   ' SERIALIZEDPROPERTYVALUE*
    CodePage As UShort,   ' WORD
    pvar As IntPtr,   ' PROPVARIANT* out
    pma As IntPtr   ' IMemoryAllocator*
) As Byte
End Function

' pprop : SERIALIZEDPROPERTYVALUE*
' CodePage : WORD
' pvar : PROPVARIANT* out
' pma : IMemoryAllocator*
Declare PtrSafe Function StgConvertPropertyToVariant Lib "ole32" ( _
    ByVal pprop As LongPtr, _
    ByVal CodePage As Integer, _
    ByVal pvar As LongPtr, _
    ByVal pma As LongPtr) As Byte
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

StgConvertPropertyToVariant = ctypes.windll.ole32.StgConvertPropertyToVariant
StgConvertPropertyToVariant.restype = ctypes.c_byte
StgConvertPropertyToVariant.argtypes = [
    ctypes.c_void_p,  # pprop : SERIALIZEDPROPERTYVALUE*
    ctypes.c_ushort,  # CodePage : WORD
    ctypes.c_void_p,  # pvar : PROPVARIANT* out
    ctypes.c_void_p,  # pma : IMemoryAllocator*
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('ole32.dll')
StgConvertPropertyToVariant = Fiddle::Function.new(
  lib['StgConvertPropertyToVariant'],
  [
    Fiddle::TYPE_VOIDP,  # pprop : SERIALIZEDPROPERTYVALUE*
    -Fiddle::TYPE_SHORT,  # CodePage : WORD
    Fiddle::TYPE_VOIDP,  # pvar : PROPVARIANT* out
    Fiddle::TYPE_VOIDP,  # pma : IMemoryAllocator*
  ],
  Fiddle::TYPE_CHAR)

#[link(name = "ole32")]
extern "system" {
    fn StgConvertPropertyToVariant(
        pprop: *const SERIALIZEDPROPERTYVALUE,  // SERIALIZEDPROPERTYVALUE*
        CodePage: u16,  // WORD
        pvar: *mut PROPVARIANT,  // PROPVARIANT* out
        pma: *mut core::ffi::c_void  // IMemoryAllocator*
    ) -> u8;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("ole32.dll")]
public static extern byte StgConvertPropertyToVariant(IntPtr pprop, ushort CodePage, IntPtr pvar, IntPtr pma);
"@
$api = Add-Type -MemberDefinition $sig -Name 'ole32_StgConvertPropertyToVariant' -Namespace Win32 -PassThru
# $api::StgConvertPropertyToVariant(pprop, CodePage, pvar, pma)

#uselib "ole32.dll"
#func global StgConvertPropertyToVariant "StgConvertPropertyToVariant" sptr, sptr, sptr, sptr
; StgConvertPropertyToVariant varptr(pprop), CodePage, varptr(pvar), pma   ; 戻り値は stat
; pprop : SERIALIZEDPROPERTYVALUE* -> "sptr"
; CodePage : WORD -> "sptr"
; pvar : PROPVARIANT* out -> "sptr"
; pma : IMemoryAllocator* -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "ole32.dll"
#cfunc global StgConvertPropertyToVariant "StgConvertPropertyToVariant" var, int, var, sptr
; res = StgConvertPropertyToVariant(pprop, CodePage, pvar, pma)
; pprop : SERIALIZEDPROPERTYVALUE* -> "var"
; CodePage : WORD -> "int"
; pvar : PROPVARIANT* out -> "var"
; pma : IMemoryAllocator* -> "sptr"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; BOOLEAN StgConvertPropertyToVariant(SERIALIZEDPROPERTYVALUE* pprop, WORD CodePage, PROPVARIANT* pvar, IMemoryAllocator* pma)
#uselib "ole32.dll"
#cfunc global StgConvertPropertyToVariant "StgConvertPropertyToVariant" var, int, var, intptr
; res = StgConvertPropertyToVariant(pprop, CodePage, pvar, pma)
; pprop : SERIALIZEDPROPERTYVALUE* -> "var"
; CodePage : WORD -> "int"
; pvar : PROPVARIANT* out -> "var"
; pma : IMemoryAllocator* -> "intptr"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	ole32 = windows.NewLazySystemDLL("ole32.dll")
	procStgConvertPropertyToVariant = ole32.NewProc("StgConvertPropertyToVariant")
)

// pprop (SERIALIZEDPROPERTYVALUE*), CodePage (WORD), pvar (PROPVARIANT* out), pma (IMemoryAllocator*)
r1, _, err := procStgConvertPropertyToVariant.Call(
	uintptr(pprop),
	uintptr(CodePage),
	uintptr(pvar),
	uintptr(pma),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // BOOLEAN

function StgConvertPropertyToVariant(
  pprop: Pointer;   // SERIALIZEDPROPERTYVALUE*
  CodePage: Word;   // WORD
  pvar: Pointer;   // PROPVARIANT* out
  pma: Pointer   // IMemoryAllocator*
): ByteBool; stdcall;
  external 'ole32.dll' name 'StgConvertPropertyToVariant';

result := DllCall("ole32\StgConvertPropertyToVariant"
    , "Ptr", pprop   ; SERIALIZEDPROPERTYVALUE*
    , "UShort", CodePage   ; WORD
    , "Ptr", pvar   ; PROPVARIANT* out
    , "Ptr", pma   ; IMemoryAllocator*
    , "Char")   ; return: BOOLEAN

●StgConvertPropertyToVariant(pprop, CodePage, pvar, pma) = DLL("ole32.dll", "byte StgConvertPropertyToVariant(void*, int, void*, void*)")
# 呼び出し: StgConvertPropertyToVariant(pprop, CodePage, pvar, pma)
# pprop : SERIALIZEDPROPERTYVALUE* -> "void*"
# CodePage : WORD -> "int"
# pvar : PROPVARIANT* out -> "void*"
# pma : IMemoryAllocator* -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。