StgConvertVariantToProperty

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

SERIALIZEDPROPERTYVALUE* StgConvertVariantToProperty(
    const PROPVARIANT* pvar,
    WORD CodePage,
    SERIALIZEDPROPERTYVALUE* pprop,   // optional
    DWORD* pcb,
    DWORD pid,
    BOOLEAN fReserved,   // optional
    DWORD* pcIndirect   // optional
);

<DllImport("ole32.dll", ExactSpelling:=True)>
Public Shared Function StgConvertVariantToProperty(
    pvar As IntPtr,   ' PROPVARIANT*
    CodePage As UShort,   ' WORD
    pprop As IntPtr,   ' SERIALIZEDPROPERTYVALUE* optional, out
    ByRef pcb As UInteger,   ' DWORD* in/out
    pid As UInteger,   ' DWORD
    <MarshalAs(UnmanagedType.U1)> fReserved As Boolean,   ' BOOLEAN optional
    pcIndirect As IntPtr   ' DWORD* optional, in/out
) As IntPtr
End Function

' pvar : PROPVARIANT*
' CodePage : WORD
' pprop : SERIALIZEDPROPERTYVALUE* optional, out
' pcb : DWORD* in/out
' pid : DWORD
' fReserved : BOOLEAN optional
' pcIndirect : DWORD* optional, in/out
Declare PtrSafe Function StgConvertVariantToProperty Lib "ole32" ( _
    ByVal pvar As LongPtr, _
    ByVal CodePage As Integer, _
    ByVal pprop As LongPtr, _
    ByRef pcb As Long, _
    ByVal pid As Long, _
    ByVal fReserved As Byte, _
    ByVal pcIndirect As LongPtr) As LongPtr
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

StgConvertVariantToProperty = ctypes.windll.ole32.StgConvertVariantToProperty
StgConvertVariantToProperty.restype = ctypes.c_void_p
StgConvertVariantToProperty.argtypes = [
    ctypes.c_void_p,  # pvar : PROPVARIANT*
    ctypes.c_ushort,  # CodePage : WORD
    ctypes.c_void_p,  # pprop : SERIALIZEDPROPERTYVALUE* optional, out
    ctypes.POINTER(wintypes.DWORD),  # pcb : DWORD* in/out
    wintypes.DWORD,  # pid : DWORD
    ctypes.c_byte,  # fReserved : BOOLEAN optional
    ctypes.POINTER(wintypes.DWORD),  # pcIndirect : DWORD* optional, in/out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('ole32.dll')
StgConvertVariantToProperty = Fiddle::Function.new(
  lib['StgConvertVariantToProperty'],
  [
    Fiddle::TYPE_VOIDP,  # pvar : PROPVARIANT*
    -Fiddle::TYPE_SHORT,  # CodePage : WORD
    Fiddle::TYPE_VOIDP,  # pprop : SERIALIZEDPROPERTYVALUE* optional, out
    Fiddle::TYPE_VOIDP,  # pcb : DWORD* in/out
    -Fiddle::TYPE_INT,  # pid : DWORD
    Fiddle::TYPE_CHAR,  # fReserved : BOOLEAN optional
    Fiddle::TYPE_VOIDP,  # pcIndirect : DWORD* optional, in/out
  ],
  Fiddle::TYPE_VOIDP)

#[link(name = "ole32")]
extern "system" {
    fn StgConvertVariantToProperty(
        pvar: *const PROPVARIANT,  // PROPVARIANT*
        CodePage: u16,  // WORD
        pprop: *mut SERIALIZEDPROPERTYVALUE,  // SERIALIZEDPROPERTYVALUE* optional, out
        pcb: *mut u32,  // DWORD* in/out
        pid: u32,  // DWORD
        fReserved: u8,  // BOOLEAN optional
        pcIndirect: *mut u32  // DWORD* optional, in/out
    ) -> *mut SERIALIZEDPROPERTYVALUE;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("ole32.dll")]
public static extern IntPtr StgConvertVariantToProperty(IntPtr pvar, ushort CodePage, IntPtr pprop, ref uint pcb, uint pid, [MarshalAs(UnmanagedType.U1)] bool fReserved, IntPtr pcIndirect);
"@
$api = Add-Type -MemberDefinition $sig -Name 'ole32_StgConvertVariantToProperty' -Namespace Win32 -PassThru
# $api::StgConvertVariantToProperty(pvar, CodePage, pprop, pcb, pid, fReserved, pcIndirect)

#uselib "ole32.dll"
#func global StgConvertVariantToProperty "StgConvertVariantToProperty" sptr, sptr, sptr, sptr, sptr, sptr, sptr
; StgConvertVariantToProperty varptr(pvar), CodePage, varptr(pprop), varptr(pcb), pid, fReserved, varptr(pcIndirect)   ; 戻り値は stat
; pvar : PROPVARIANT* -> "sptr"
; CodePage : WORD -> "sptr"
; pprop : SERIALIZEDPROPERTYVALUE* optional, out -> "sptr"
; pcb : DWORD* in/out -> "sptr"
; pid : DWORD -> "sptr"
; fReserved : BOOLEAN optional -> "sptr"
; pcIndirect : DWORD* optional, in/out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

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

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

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

var (
	ole32 = windows.NewLazySystemDLL("ole32.dll")
	procStgConvertVariantToProperty = ole32.NewProc("StgConvertVariantToProperty")
)

// pvar (PROPVARIANT*), CodePage (WORD), pprop (SERIALIZEDPROPERTYVALUE* optional, out), pcb (DWORD* in/out), pid (DWORD), fReserved (BOOLEAN optional), pcIndirect (DWORD* optional, in/out)
r1, _, err := procStgConvertVariantToProperty.Call(
	uintptr(pvar),
	uintptr(CodePage),
	uintptr(pprop),
	uintptr(pcb),
	uintptr(pid),
	uintptr(fReserved),
	uintptr(pcIndirect),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // SERIALIZEDPROPERTYVALUE*

function StgConvertVariantToProperty(
  pvar: Pointer;   // PROPVARIANT*
  CodePage: Word;   // WORD
  pprop: Pointer;   // SERIALIZEDPROPERTYVALUE* optional, out
  pcb: Pointer;   // DWORD* in/out
  pid: DWORD;   // DWORD
  fReserved: ByteBool;   // BOOLEAN optional
  pcIndirect: Pointer   // DWORD* optional, in/out
): Pointer; stdcall;
  external 'ole32.dll' name 'StgConvertVariantToProperty';

result := DllCall("ole32\StgConvertVariantToProperty"
    , "Ptr", pvar   ; PROPVARIANT*
    , "UShort", CodePage   ; WORD
    , "Ptr", pprop   ; SERIALIZEDPROPERTYVALUE* optional, out
    , "Ptr", pcb   ; DWORD* in/out
    , "UInt", pid   ; DWORD
    , "Char", fReserved   ; BOOLEAN optional
    , "Ptr", pcIndirect   ; DWORD* optional, in/out
    , "Ptr")   ; return: SERIALIZEDPROPERTYVALUE*

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