Win32 API 日本語リファレンス
ホームSystem.Com › CoQueryProxyBlanket

CoQueryProxyBlanket

関数
プロキシに設定された認証情報や認証レベルを取得する。
DLLOLE32.dll呼出規約winapi対応OSWindows 2000 以降

シグネチャ

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

HRESULT CoQueryProxyBlanket(
    IUnknown* pProxy,
    DWORD* pwAuthnSvc,   // optional
    DWORD* pAuthzSvc,   // optional
    LPWSTR* pServerPrincName,   // optional
    DWORD* pAuthnLevel,   // optional
    DWORD* pImpLevel,   // optional
    void** pAuthInfo,   // optional
    DWORD* pCapabilites   // optional
);

パラメーター

名前方向説明
pProxyIUnknown*in照会対象のプロキシを示すポインター。このパラメーターを NULL にすることはできません。詳細については、解説のセクションを参照してください。
pwAuthnSvcDWORD*outoptional現在の認証サービスを受け取る変数へのポインター。これは 認証サービス定数 から取られる単一の値です。このパラメーターを NULL にすることはできません。
pAuthzSvcDWORD*outoptional現在の承認サービスを受け取る変数へのポインター。これは 承認定数 から取られる単一の値です。呼び出し元が NULL を指定した場合、現在の承認サービスは取得されません。
pServerPrincNameLPWSTR*outoptional現在のプリンシパル名。文字列は呼び出される側が CoTaskMemAlloc を使用して割り当て、呼び出し元が CoTaskMemFree を使用して解放する必要があります。EOAC_MAKE_FULLSIC フラグは pCapabilities パラメーターでは受け付けられません。msstd 形式および fullsic 形式の詳細については、Principal Names を参照してください。呼び出し元が NULL を指定した場合、現在のプリンシパル名は取得されません。
pAuthnLevelDWORD*outoptional現在の認証レベルを受け取る変数へのポインター。これは 認証レベル定数 から取られる単一の値です。呼び出し元が NULL を指定した場合、現在の認証レベルは取得されません。
pImpLevelDWORD*outoptional現在の偽装レベルを受け取る変数へのポインター。これは 偽装レベル定数 から取られる単一の値です。呼び出し元が NULL を指定した場合、現在の偽装レベルは取得されません。
pAuthInfovoid**outoptional直近の IClientSecurity::SetBlanket の呼び出しに渡されたクライアントの ID(または既定値)を受け取るハンドルへのポインター。既定値はプロキシが解放されるまでの間のみ有効です。呼び出し元が NULL を指定した場合、クライアント ID は取得されません。ハンドルが参照する構造体の形式は認証サービスによって異なります。アプリケーションはそのメモリーへの書き込みや解放を行ってはいけません。NTLMSSP および Kerberos の場合、クライアントが CoInitializeSecuritypAuthInfo パラメーターで構造体を指定していれば、その値が返されます。Schannel の場合、クライアントの証明書を証明書マネージャーから取得できれば、その値がここに返されます。それ以外の場合は NULL が返されます。RPC_AUTH_IDENTITY_HANDLE を参照してください。
pCapabilitesDWORD*outoptionalプロキシの機能を受け取る変数へのポインター。呼び出し元が NULL を指定した場合、現在の機能フラグは取得されません。

戻り値の型: HRESULT

公式ドキュメント

指定したプロキシ上で呼び出しを行う際にクライアントが使用する認証情報を取得します。

戻り値

この関数は、標準の戻り値である E_INVALIDARGE_OUTOFMEMORY、および S_OK を返すことがあります。

解説(Remarks)

CoQueryProxyBlanket は、指定したプロキシから行われる呼び出しで COM が使用する認証情報を取得するために、クライアントによって呼び出されます。この関数は、次の一連の一般的な呼び出しをカプセル化します(エラー処理は省略)。

pProxy->QueryInterface(IID_IClientSecurity, (void**)&pcs);
pcs->QueryBlanket(
    pProxy, pAuthnSvc, pAuthzSvc, pServerPrincName, pAuthnLevel, pImpLevel, ppAuthInfo, pCapabilities
  );
pcs->Release();

このシーケンスは、プロキシに対して QueryInterface を呼び出して IClientSecurity へのポインターを取得し、得られたポインターを使って IClientSecurity::QueryBlanket を呼び出した後、そのポインターを解放します。

pProxy には、CoCreateInstanceCoUnmarshalInterface の呼び出しによって取得したプロキシなど、任意のプロキシを渡すことができます。また、インターフェイスポインターを渡すこともできます。これは任意のインターフェイスでかまいません。プロキシではないものへのポインターを渡すことはできません。したがって、インターフェイス定義に local キーワードが付いたインターフェイスへのポインターは渡せません。そのようなインターフェイスにはプロキシが作成されないためです。IUnknown はこのルールの例外です。

出典・ライセンス: 上記「公式ドキュメント」の内容は Microsoft の Win32 API ドキュメント(MicrosoftDocs/sdk-api)を日本語に翻訳・改変したものです。© Microsoft Corporation. CC BY 4.0 で提供。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)

各言語での呼び出し定義

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

HRESULT CoQueryProxyBlanket(
    IUnknown* pProxy,
    DWORD* pwAuthnSvc,   // optional
    DWORD* pAuthzSvc,   // optional
    LPWSTR* pServerPrincName,   // optional
    DWORD* pAuthnLevel,   // optional
    DWORD* pImpLevel,   // optional
    void** pAuthInfo,   // optional
    DWORD* pCapabilites   // optional
);
[DllImport("OLE32.dll", ExactSpelling = true)]
static extern int CoQueryProxyBlanket(
    IntPtr pProxy,   // IUnknown*
    IntPtr pwAuthnSvc,   // DWORD* optional, out
    IntPtr pAuthzSvc,   // DWORD* optional, out
    IntPtr pServerPrincName,   // LPWSTR* optional, out
    IntPtr pAuthnLevel,   // DWORD* optional, out
    IntPtr pImpLevel,   // DWORD* optional, out
    IntPtr pAuthInfo,   // void** optional, out
    IntPtr pCapabilites   // DWORD* optional, out
);
<DllImport("OLE32.dll", ExactSpelling:=True)>
Public Shared Function CoQueryProxyBlanket(
    pProxy As IntPtr,   ' IUnknown*
    pwAuthnSvc As IntPtr,   ' DWORD* optional, out
    pAuthzSvc As IntPtr,   ' DWORD* optional, out
    pServerPrincName As IntPtr,   ' LPWSTR* optional, out
    pAuthnLevel As IntPtr,   ' DWORD* optional, out
    pImpLevel As IntPtr,   ' DWORD* optional, out
    pAuthInfo As IntPtr,   ' void** optional, out
    pCapabilites As IntPtr   ' DWORD* optional, out
) As Integer
End Function
' pProxy : IUnknown*
' pwAuthnSvc : DWORD* optional, out
' pAuthzSvc : DWORD* optional, out
' pServerPrincName : LPWSTR* optional, out
' pAuthnLevel : DWORD* optional, out
' pImpLevel : DWORD* optional, out
' pAuthInfo : void** optional, out
' pCapabilites : DWORD* optional, out
Declare PtrSafe Function CoQueryProxyBlanket Lib "ole32" ( _
    ByVal pProxy As LongPtr, _
    ByVal pwAuthnSvc As LongPtr, _
    ByVal pAuthzSvc As LongPtr, _
    ByVal pServerPrincName As LongPtr, _
    ByVal pAuthnLevel As LongPtr, _
    ByVal pImpLevel As LongPtr, _
    ByVal pAuthInfo As LongPtr, _
    ByVal pCapabilites As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

CoQueryProxyBlanket = ctypes.windll.ole32.CoQueryProxyBlanket
CoQueryProxyBlanket.restype = ctypes.c_int
CoQueryProxyBlanket.argtypes = [
    ctypes.c_void_p,  # pProxy : IUnknown*
    ctypes.POINTER(wintypes.DWORD),  # pwAuthnSvc : DWORD* optional, out
    ctypes.POINTER(wintypes.DWORD),  # pAuthzSvc : DWORD* optional, out
    ctypes.c_void_p,  # pServerPrincName : LPWSTR* optional, out
    ctypes.POINTER(wintypes.DWORD),  # pAuthnLevel : DWORD* optional, out
    ctypes.POINTER(wintypes.DWORD),  # pImpLevel : DWORD* optional, out
    ctypes.c_void_p,  # pAuthInfo : void** optional, out
    ctypes.POINTER(wintypes.DWORD),  # pCapabilites : DWORD* optional, out
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('OLE32.dll')
CoQueryProxyBlanket = Fiddle::Function.new(
  lib['CoQueryProxyBlanket'],
  [
    Fiddle::TYPE_VOIDP,  # pProxy : IUnknown*
    Fiddle::TYPE_VOIDP,  # pwAuthnSvc : DWORD* optional, out
    Fiddle::TYPE_VOIDP,  # pAuthzSvc : DWORD* optional, out
    Fiddle::TYPE_VOIDP,  # pServerPrincName : LPWSTR* optional, out
    Fiddle::TYPE_VOIDP,  # pAuthnLevel : DWORD* optional, out
    Fiddle::TYPE_VOIDP,  # pImpLevel : DWORD* optional, out
    Fiddle::TYPE_VOIDP,  # pAuthInfo : void** optional, out
    Fiddle::TYPE_VOIDP,  # pCapabilites : DWORD* optional, out
  ],
  Fiddle::TYPE_INT)
#[link(name = "ole32")]
extern "system" {
    fn CoQueryProxyBlanket(
        pProxy: *mut core::ffi::c_void,  // IUnknown*
        pwAuthnSvc: *mut u32,  // DWORD* optional, out
        pAuthzSvc: *mut u32,  // DWORD* optional, out
        pServerPrincName: *mut *mut u16,  // LPWSTR* optional, out
        pAuthnLevel: *mut u32,  // DWORD* optional, out
        pImpLevel: *mut u32,  // DWORD* optional, out
        pAuthInfo: *mut *mut (),  // void** optional, out
        pCapabilites: *mut u32  // DWORD* optional, out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[DllImport("OLE32.dll")]
public static extern int CoQueryProxyBlanket(IntPtr pProxy, IntPtr pwAuthnSvc, IntPtr pAuthzSvc, IntPtr pServerPrincName, IntPtr pAuthnLevel, IntPtr pImpLevel, IntPtr pAuthInfo, IntPtr pCapabilites);
"@
$api = Add-Type -MemberDefinition $sig -Name 'OLE32_CoQueryProxyBlanket' -Namespace Win32 -PassThru
# $api::CoQueryProxyBlanket(pProxy, pwAuthnSvc, pAuthzSvc, pServerPrincName, pAuthnLevel, pImpLevel, pAuthInfo, pCapabilites)
#uselib "OLE32.dll"
#func global CoQueryProxyBlanket "CoQueryProxyBlanket" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; CoQueryProxyBlanket pProxy, varptr(pwAuthnSvc), varptr(pAuthzSvc), varptr(pServerPrincName), varptr(pAuthnLevel), varptr(pImpLevel), pAuthInfo, varptr(pCapabilites)   ; 戻り値は stat
; pProxy : IUnknown* -> "sptr"
; pwAuthnSvc : DWORD* optional, out -> "sptr"
; pAuthzSvc : DWORD* optional, out -> "sptr"
; pServerPrincName : LPWSTR* optional, out -> "sptr"
; pAuthnLevel : DWORD* optional, out -> "sptr"
; pImpLevel : DWORD* optional, out -> "sptr"
; pAuthInfo : void** optional, out -> "sptr"
; pCapabilites : DWORD* optional, out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "OLE32.dll"
#cfunc global CoQueryProxyBlanket "CoQueryProxyBlanket" sptr, var, var, var, var, var, sptr, var
; res = CoQueryProxyBlanket(pProxy, pwAuthnSvc, pAuthzSvc, pServerPrincName, pAuthnLevel, pImpLevel, pAuthInfo, pCapabilites)
; pProxy : IUnknown* -> "sptr"
; pwAuthnSvc : DWORD* optional, out -> "var"
; pAuthzSvc : DWORD* optional, out -> "var"
; pServerPrincName : LPWSTR* optional, out -> "var"
; pAuthnLevel : DWORD* optional, out -> "var"
; pImpLevel : DWORD* optional, out -> "var"
; pAuthInfo : void** optional, out -> "sptr"
; pCapabilites : DWORD* optional, out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; HRESULT CoQueryProxyBlanket(IUnknown* pProxy, DWORD* pwAuthnSvc, DWORD* pAuthzSvc, LPWSTR* pServerPrincName, DWORD* pAuthnLevel, DWORD* pImpLevel, void** pAuthInfo, DWORD* pCapabilites)
#uselib "OLE32.dll"
#cfunc global CoQueryProxyBlanket "CoQueryProxyBlanket" intptr, var, var, var, var, var, intptr, var
; res = CoQueryProxyBlanket(pProxy, pwAuthnSvc, pAuthzSvc, pServerPrincName, pAuthnLevel, pImpLevel, pAuthInfo, pCapabilites)
; pProxy : IUnknown* -> "intptr"
; pwAuthnSvc : DWORD* optional, out -> "var"
; pAuthzSvc : DWORD* optional, out -> "var"
; pServerPrincName : LPWSTR* optional, out -> "var"
; pAuthnLevel : DWORD* optional, out -> "var"
; pImpLevel : DWORD* optional, out -> "var"
; pAuthInfo : void** optional, out -> "intptr"
; pCapabilites : DWORD* optional, out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	ole32 = windows.NewLazySystemDLL("OLE32.dll")
	procCoQueryProxyBlanket = ole32.NewProc("CoQueryProxyBlanket")
)

// pProxy (IUnknown*), pwAuthnSvc (DWORD* optional, out), pAuthzSvc (DWORD* optional, out), pServerPrincName (LPWSTR* optional, out), pAuthnLevel (DWORD* optional, out), pImpLevel (DWORD* optional, out), pAuthInfo (void** optional, out), pCapabilites (DWORD* optional, out)
r1, _, err := procCoQueryProxyBlanket.Call(
	uintptr(pProxy),
	uintptr(pwAuthnSvc),
	uintptr(pAuthzSvc),
	uintptr(pServerPrincName),
	uintptr(pAuthnLevel),
	uintptr(pImpLevel),
	uintptr(pAuthInfo),
	uintptr(pCapabilites),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // HRESULT
function CoQueryProxyBlanket(
  pProxy: Pointer;   // IUnknown*
  pwAuthnSvc: Pointer;   // DWORD* optional, out
  pAuthzSvc: Pointer;   // DWORD* optional, out
  pServerPrincName: PPWideChar;   // LPWSTR* optional, out
  pAuthnLevel: Pointer;   // DWORD* optional, out
  pImpLevel: Pointer;   // DWORD* optional, out
  pAuthInfo: Pointer;   // void** optional, out
  pCapabilites: Pointer   // DWORD* optional, out
): Integer; stdcall;
  external 'OLE32.dll' name 'CoQueryProxyBlanket';
result := DllCall("OLE32\CoQueryProxyBlanket"
    , "Ptr", pProxy   ; IUnknown*
    , "Ptr", pwAuthnSvc   ; DWORD* optional, out
    , "Ptr", pAuthzSvc   ; DWORD* optional, out
    , "Ptr", pServerPrincName   ; LPWSTR* optional, out
    , "Ptr", pAuthnLevel   ; DWORD* optional, out
    , "Ptr", pImpLevel   ; DWORD* optional, out
    , "Ptr", pAuthInfo   ; void** optional, out
    , "Ptr", pCapabilites   ; DWORD* optional, out
    , "Int")   ; return: HRESULT
●CoQueryProxyBlanket(pProxy, pwAuthnSvc, pAuthzSvc, pServerPrincName, pAuthnLevel, pImpLevel, pAuthInfo, pCapabilites) = DLL("OLE32.dll", "int CoQueryProxyBlanket(void*, void*, void*, void*, void*, void*, void*, void*)")
# 呼び出し: CoQueryProxyBlanket(pProxy, pwAuthnSvc, pAuthzSvc, pServerPrincName, pAuthnLevel, pImpLevel, pAuthInfo, pCapabilites)
# pProxy : IUnknown* -> "void*"
# pwAuthnSvc : DWORD* optional, out -> "void*"
# pAuthzSvc : DWORD* optional, out -> "void*"
# pServerPrincName : LPWSTR* optional, out -> "void*"
# pAuthnLevel : DWORD* optional, out -> "void*"
# pImpLevel : DWORD* optional, out -> "void*"
# pAuthInfo : void** optional, out -> "void*"
# pCapabilites : DWORD* optional, out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "ole32" fn CoQueryProxyBlanket(
    pProxy: ?*anyopaque, // IUnknown*
    pwAuthnSvc: [*c]u32, // DWORD* optional, out
    pAuthzSvc: [*c]u32, // DWORD* optional, out
    pServerPrincName: [*c][*c]u16, // LPWSTR* optional, out
    pAuthnLevel: [*c]u32, // DWORD* optional, out
    pImpLevel: [*c]u32, // DWORD* optional, out
    pAuthInfo: ?*anyopaque, // void** optional, out
    pCapabilites: [*c]u32 // DWORD* optional, out
) callconv(std.os.windows.WINAPI) i32;
proc CoQueryProxyBlanket(
    pProxy: pointer,  # IUnknown*
    pwAuthnSvc: ptr uint32,  # DWORD* optional, out
    pAuthzSvc: ptr uint32,  # DWORD* optional, out
    pServerPrincName: ptr WideCString,  # LPWSTR* optional, out
    pAuthnLevel: ptr uint32,  # DWORD* optional, out
    pImpLevel: ptr uint32,  # DWORD* optional, out
    pAuthInfo: pointer,  # void** optional, out
    pCapabilites: ptr uint32  # DWORD* optional, out
): int32 {.importc: "CoQueryProxyBlanket", stdcall, dynlib: "OLE32.dll".}
pragma(lib, "ole32");
extern(Windows)
int CoQueryProxyBlanket(
    void* pProxy,   // IUnknown*
    uint* pwAuthnSvc,   // DWORD* optional, out
    uint* pAuthzSvc,   // DWORD* optional, out
    wchar** pServerPrincName,   // LPWSTR* optional, out
    uint* pAuthnLevel,   // DWORD* optional, out
    uint* pImpLevel,   // DWORD* optional, out
    void** pAuthInfo,   // void** optional, out
    uint* pCapabilites   // DWORD* optional, out
);
ccall((:CoQueryProxyBlanket, "OLE32.dll"), stdcall, Int32,
      (Ptr{Cvoid}, Ptr{UInt32}, Ptr{UInt32}, Ptr{Ptr{UInt16}}, Ptr{UInt32}, Ptr{UInt32}, Ptr{Cvoid}, Ptr{UInt32}),
      pProxy, pwAuthnSvc, pAuthzSvc, pServerPrincName, pAuthnLevel, pImpLevel, pAuthInfo, pCapabilites)
# pProxy : IUnknown* -> Ptr{Cvoid}
# pwAuthnSvc : DWORD* optional, out -> Ptr{UInt32}
# pAuthzSvc : DWORD* optional, out -> Ptr{UInt32}
# pServerPrincName : LPWSTR* optional, out -> Ptr{Ptr{UInt16}}
# pAuthnLevel : DWORD* optional, out -> Ptr{UInt32}
# pImpLevel : DWORD* optional, out -> Ptr{UInt32}
# pAuthInfo : void** optional, out -> Ptr{Cvoid}
# pCapabilites : DWORD* optional, out -> Ptr{UInt32}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
int32_t CoQueryProxyBlanket(
    void* pProxy,
    uint32_t* pwAuthnSvc,
    uint32_t* pAuthzSvc,
    uint16_t** pServerPrincName,
    uint32_t* pAuthnLevel,
    uint32_t* pImpLevel,
    void** pAuthInfo,
    uint32_t* pCapabilites);
]]
local ole32 = ffi.load("ole32")
-- ole32.CoQueryProxyBlanket(pProxy, pwAuthnSvc, pAuthzSvc, pServerPrincName, pAuthnLevel, pImpLevel, pAuthInfo, pCapabilites)
-- pProxy : IUnknown*
-- pwAuthnSvc : DWORD* optional, out
-- pAuthzSvc : DWORD* optional, out
-- pServerPrincName : LPWSTR* optional, out
-- pAuthnLevel : DWORD* optional, out
-- pImpLevel : DWORD* optional, out
-- pAuthInfo : void** optional, out
-- pCapabilites : DWORD* optional, out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('OLE32.dll');
const CoQueryProxyBlanket = lib.func('__stdcall', 'CoQueryProxyBlanket', 'int32_t', ['void *', 'uint32_t *', 'uint32_t *', 'void *', 'uint32_t *', 'uint32_t *', 'void *', 'uint32_t *']);
// CoQueryProxyBlanket(pProxy, pwAuthnSvc, pAuthzSvc, pServerPrincName, pAuthnLevel, pImpLevel, pAuthInfo, pCapabilites)
// pProxy : IUnknown* -> 'void *'
// pwAuthnSvc : DWORD* optional, out -> 'uint32_t *'
// pAuthzSvc : DWORD* optional, out -> 'uint32_t *'
// pServerPrincName : LPWSTR* optional, out -> 'void *'
// pAuthnLevel : DWORD* optional, out -> 'uint32_t *'
// pImpLevel : DWORD* optional, out -> 'uint32_t *'
// pAuthInfo : void** optional, out -> 'void *'
// pCapabilites : DWORD* optional, out -> 'uint32_t *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("OLE32.dll", {
  CoQueryProxyBlanket: { parameters: ["pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "pointer"], result: "i32" },
});
// lib.symbols.CoQueryProxyBlanket(pProxy, pwAuthnSvc, pAuthzSvc, pServerPrincName, pAuthnLevel, pImpLevel, pAuthInfo, pCapabilites)
// pProxy : IUnknown* -> "pointer"
// pwAuthnSvc : DWORD* optional, out -> "pointer"
// pAuthzSvc : DWORD* optional, out -> "pointer"
// pServerPrincName : LPWSTR* optional, out -> "pointer"
// pAuthnLevel : DWORD* optional, out -> "pointer"
// pImpLevel : DWORD* optional, out -> "pointer"
// pAuthInfo : void** optional, out -> "pointer"
// pCapabilites : DWORD* optional, out -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
int32_t CoQueryProxyBlanket(
    void* pProxy,
    uint32_t* pwAuthnSvc,
    uint32_t* pAuthzSvc,
    uint16_t** pServerPrincName,
    uint32_t* pAuthnLevel,
    uint32_t* pImpLevel,
    void** pAuthInfo,
    uint32_t* pCapabilites);
C, "OLE32.dll");
// $ffi->CoQueryProxyBlanket(pProxy, pwAuthnSvc, pAuthzSvc, pServerPrincName, pAuthnLevel, pImpLevel, pAuthInfo, pCapabilites);
// pProxy : IUnknown*
// pwAuthnSvc : DWORD* optional, out
// pAuthzSvc : DWORD* optional, out
// pServerPrincName : LPWSTR* optional, out
// pAuthnLevel : DWORD* optional, out
// pImpLevel : DWORD* optional, out
// pAuthInfo : void** optional, out
// pCapabilites : DWORD* optional, out
// 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
// WINAPI(stdcall): x64 では呼出規約が統一されるため問題なし。x86 では __stdcall 対応のラッパが必要な場合あり。
import com.sun.jna.*;
import com.sun.jna.ptr.*;
import com.sun.jna.win32.StdCallLibrary;
import com.sun.jna.win32.W32APIOptions;

public interface Ole32 extends StdCallLibrary {
    Ole32 INSTANCE = Native.load("ole32", Ole32.class);
    int CoQueryProxyBlanket(
        Pointer pProxy,   // IUnknown*
        IntByReference pwAuthnSvc,   // DWORD* optional, out
        IntByReference pAuthzSvc,   // DWORD* optional, out
        PointerByReference pServerPrincName,   // LPWSTR* optional, out
        IntByReference pAuthnLevel,   // DWORD* optional, out
        IntByReference pImpLevel,   // DWORD* optional, out
        Pointer pAuthInfo,   // void** optional, out
        IntByReference pCapabilites   // DWORD* optional, out
    );
}
@[Link("ole32")]
lib LibOLE32
  fun CoQueryProxyBlanket = CoQueryProxyBlanket(
    pProxy : Void*,   # IUnknown*
    pwAuthnSvc : UInt32*,   # DWORD* optional, out
    pAuthzSvc : UInt32*,   # DWORD* optional, out
    pServerPrincName : UInt16**,   # LPWSTR* optional, out
    pAuthnLevel : UInt32*,   # DWORD* optional, out
    pImpLevel : UInt32*,   # DWORD* optional, out
    pAuthInfo : Void**,   # void** optional, out
    pCapabilites : UInt32*   # DWORD* optional, out
  ) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。
import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef CoQueryProxyBlanketNative = Int32 Function(Pointer<Void>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Pointer<Utf16>>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Void>, Pointer<Uint32>);
typedef CoQueryProxyBlanketDart = int Function(Pointer<Void>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Pointer<Utf16>>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Void>, Pointer<Uint32>);
final CoQueryProxyBlanket = DynamicLibrary.open('OLE32.dll')
    .lookupFunction<CoQueryProxyBlanketNative, CoQueryProxyBlanketDart>('CoQueryProxyBlanket');
// pProxy : IUnknown* -> Pointer<Void>
// pwAuthnSvc : DWORD* optional, out -> Pointer<Uint32>
// pAuthzSvc : DWORD* optional, out -> Pointer<Uint32>
// pServerPrincName : LPWSTR* optional, out -> Pointer<Pointer<Utf16>>
// pAuthnLevel : DWORD* optional, out -> Pointer<Uint32>
// pImpLevel : DWORD* optional, out -> Pointer<Uint32>
// pAuthInfo : void** optional, out -> Pointer<Void>
// pCapabilites : DWORD* optional, out -> Pointer<Uint32>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function CoQueryProxyBlanket(
  pProxy: Pointer;   // IUnknown*
  pwAuthnSvc: Pointer;   // DWORD* optional, out
  pAuthzSvc: Pointer;   // DWORD* optional, out
  pServerPrincName: PPWideChar;   // LPWSTR* optional, out
  pAuthnLevel: Pointer;   // DWORD* optional, out
  pImpLevel: Pointer;   // DWORD* optional, out
  pAuthInfo: Pointer;   // void** optional, out
  pCapabilites: Pointer   // DWORD* optional, out
): Integer; stdcall;
  external 'OLE32.dll' name 'CoQueryProxyBlanket';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "CoQueryProxyBlanket"
  c_CoQueryProxyBlanket :: Ptr () -> Ptr Word32 -> Ptr Word32 -> Ptr CWString -> Ptr Word32 -> Ptr Word32 -> Ptr () -> Ptr Word32 -> IO Int32
-- pProxy : IUnknown* -> Ptr ()
-- pwAuthnSvc : DWORD* optional, out -> Ptr Word32
-- pAuthzSvc : DWORD* optional, out -> Ptr Word32
-- pServerPrincName : LPWSTR* optional, out -> Ptr CWString
-- pAuthnLevel : DWORD* optional, out -> Ptr Word32
-- pImpLevel : DWORD* optional, out -> Ptr Word32
-- pAuthInfo : void** optional, out -> Ptr ()
-- pCapabilites : DWORD* optional, out -> Ptr Word32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let coqueryproxyblanket =
  foreign "CoQueryProxyBlanket"
    ((ptr void) @-> (ptr uint32_t) @-> (ptr uint32_t) @-> (ptr (ptr uint16_t)) @-> (ptr uint32_t) @-> (ptr uint32_t) @-> (ptr void) @-> (ptr uint32_t) @-> returning int32_t)
(* pProxy : IUnknown* -> (ptr void) *)
(* pwAuthnSvc : DWORD* optional, out -> (ptr uint32_t) *)
(* pAuthzSvc : DWORD* optional, out -> (ptr uint32_t) *)
(* pServerPrincName : LPWSTR* optional, out -> (ptr (ptr uint16_t)) *)
(* pAuthnLevel : DWORD* optional, out -> (ptr uint32_t) *)
(* pImpLevel : DWORD* optional, out -> (ptr uint32_t) *)
(* pAuthInfo : void** optional, out -> (ptr void) *)
(* pCapabilites : DWORD* optional, out -> (ptr uint32_t) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library ole32 (t "OLE32.dll"))
(cffi:use-foreign-library ole32)

(cffi:defcfun ("CoQueryProxyBlanket" co-query-proxy-blanket :convention :stdcall) :int32
  (p-proxy :pointer)   ; IUnknown*
  (pw-authn-svc :pointer)   ; DWORD* optional, out
  (p-authz-svc :pointer)   ; DWORD* optional, out
  (p-server-princ-name :pointer)   ; LPWSTR* optional, out
  (p-authn-level :pointer)   ; DWORD* optional, out
  (p-imp-level :pointer)   ; DWORD* optional, out
  (p-auth-info :pointer)   ; void** optional, out
  (p-capabilites :pointer))   ; DWORD* optional, out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $CoQueryProxyBlanket = Win32::API::More->new('OLE32',
    'int CoQueryProxyBlanket(LPVOID pProxy, LPVOID pwAuthnSvc, LPVOID pAuthzSvc, LPVOID pServerPrincName, LPVOID pAuthnLevel, LPVOID pImpLevel, LPVOID pAuthInfo, LPVOID pCapabilites)');
# my $ret = $CoQueryProxyBlanket->Call($pProxy, $pwAuthnSvc, $pAuthzSvc, $pServerPrincName, $pAuthnLevel, $pImpLevel, $pAuthInfo, $pCapabilites);
# pProxy : IUnknown* -> LPVOID
# pwAuthnSvc : DWORD* optional, out -> LPVOID
# pAuthzSvc : DWORD* optional, out -> LPVOID
# pServerPrincName : LPWSTR* optional, out -> LPVOID
# pAuthnLevel : DWORD* optional, out -> LPVOID
# pImpLevel : DWORD* optional, out -> LPVOID
# pAuthInfo : void** optional, out -> LPVOID
# pCapabilites : DWORD* optional, out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

公式の関連項目
使用する型