Win32 API 日本語リファレンス
ホームNetworking.WinSock › WSCGetProviderInfo

WSCGetProviderInfo

関数
プロバイダーの追加情報を取得する。
DLLWS2_32.dll呼出規約winapi対応OSWindows Vista 以降

シグネチャ

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

INT WSCGetProviderInfo(
    GUID* lpProviderId,
    WSC_PROVIDER_INFO_TYPE InfoType,
    BYTE* Info,
    UINT_PTR* InfoSize,
    DWORD Flags,
    INT* lpErrno
);

パラメーター

名前方向説明
lpProviderIdGUID*inプロバイダーのグローバル一意識別子 (GUID) へのポインター。
InfoTypeWSC_PROVIDER_INFO_TYPEinこの LSP プロトコルエントリに対して要求される情報クラス。
InfoBYTE*out要求された LSP プロトコルエントリの情報クラスデータを受け取るバッファーへのポインター。このパラメーターが NULL の場合、WSCGetProviderInfo は失敗を返し、このバッファーに必要なサイズが InfoSize パラメーターに返されます。
InfoSizeUINT_PTR*inoutInfo パラメーターが指すバッファーのサイズ (バイト単位)。Info パラメーターが NULL の場合、WSCGetProviderInfo は失敗を返し、InfoSize パラメーターには必要なバッファーのサイズが格納されます。
FlagsDWORDinWSCGetProviderInfo 関数呼び出しの動作を変更するために使用するフラグ。
lpErrnoINT*out関数が失敗した場合のエラーコードへのポインター。

戻り値の型: INT

公式ドキュメント

レイヤードサービスプロバイダー (LSP) の情報クラスに関連付けられたデータを取得します。

戻り値

エラーが発生しない場合、WSCGetProviderInfoERROR_SUCCESS (ゼロ) を返します。それ以外の場合は SOCKET_ERROR を返し、特定のエラーコードが lpErrno パラメーターに返されます。

エラーコード 意味
ERROR_CALL_NOT_IMPLEMENTED
呼び出しが実装されていません。このエラーは、InfoType パラメーターに **ProviderInfoAudit** が指定された場合に返されます。
WSAEFAULT
1 つ以上の引数が、ユーザーアドレス空間の有効な部分にありません。
WSAEINVAL
1 つ以上の引数が無効です。
WSAEINVALIDPROVIDER
指定された lpProviderId に対するプロトコルエントリが見つかりませんでした。
WSANO_RECOVERY
回復不能なエラーが発生しました。このエラーは、ユーザーが Winsock レジストリへのアクセスに必要な管理者権限を持っていない、または Winsock カタログエントリを開く際に障害が発生した、などのいくつかの条件で返されます。
WSA_NOT_ENOUGH_MEMORY
使用可能なメモリが不足していました。このエラーは、新しいカタログエントリを割り当てるのに十分なメモリがない場合に返されます。

解説(Remarks)

WSCGetProviderInfo は、レイヤードサービスプロバイダーの情報クラスデータを取得するために使用されます。InfoType パラメーターに ProviderInfoLspCategories が設定されている場合、成功すると WSCGetProviderInfo は、LSP が実装する適切な LSP カテゴリフラグが設定された Info パラメーターを返します。

Winsock 2 はレイヤードプロトコルに対応しています。レイヤードプロトコルとは、より高レベルの通信機能のみを実装し、リモートエンドポイントとの実際のデータ交換については基盤となるトランスポートスタックに依存するプロトコルです。レイヤードプロトコルまたはレイヤードサービスプロバイダーの例としては、認証を実行し相互に合意された暗号化方式を確立するために接続確立プロセスにプロトコルを追加するセキュリティレイヤーが挙げられます。このようなセキュリティプロトコルは、一般に TCP や SPX などの基盤となる信頼性の高いトランスポートプロトコルのサービスを必要とします。ベースプロトコルという用語は、TCP や SPX のようにリモートエンドポイントとのデータ通信を実行できるプロトコルを指します。レイヤードプロトコルという用語は、単独では機能できないプロトコルを表すために使用されます。プロトコルチェーンは、1 つ以上のレイヤードプロトコルがつながり、ベースプロトコルによって固定されたものとして定義されます。 ベースプロトコルは、WSAProtocol_Info 構造体の ChainLen メンバーが、1 と定義されている BASE_PROTOCOL に設定されています。レイヤードプロトコルは、WSAPROTOCOL_INFO 構造体の ChainLen メンバーが、ゼロと定義されている LAYERED_PROTOCOL に設定されています。プロトコルチェーンは、WSAPROTOCOL_INFO 構造体の ChainLen メンバーが 1 より大きい値に設定されています。

LSP の初期化中、LSP は多数の Winsock SPI 関数へのポインターを提供する必要があります。これらの関数は、通常の処理中に LSP の直上のレイヤー (別の LSP または Ws2_32.DLL) によって呼び出されます。

インストール可能ファイルシステム (IFS) を実装する LSP は、自身が実装する関数へのポインターを提供するか、LSP の直下のレイヤーによって提供されるポインターをそのまま返すかを選択的に選ぶことができます。非 IFS LSP は、独自のハンドルを提供するため、すべての Winsock SPI 関数を実装する必要があります。これは、各 SPI において、LSP が作成したすべてのソケットハンドルを下位プロバイダー (別の LSP またはベースプロトコル) のソケットハンドルにマッピングする必要があるためです。

ただし、すべての LSP は、Winsock SPI 関数のサブセットに対してのみ追加処理を行うことで、その固有の処理を実行します。

LSP が実装する SPI 関数のサブセットと、それらの各関数に対して実行される追加処理の性質に基づいて、LSP カテゴリを定義することが可能です。

LSP を分類し、さらに Winsock ソケットを使用するアプリケーションを分類することによって、実行時に特定のプロセスに LSP を関与させるべきかどうかを選択的に判断できるようになります。

Windows Vista 以降では、Windows Sockets の呼び出しおよびデータとどのように相互作用するかに基づいて LSP を分類できます。LSP カテゴリとは、Winsock SPI 関数のサブセットに対する識別可能な動作のグループです。たとえば、HTTP コンテンツフィルターはデータインスペクター (LSP_INSPECTOR カテゴリ) として分類されます。LSP_INSPECTOR カテゴリは、データ転送 SPI 関数のパラメーターを検査します (ただし変更はしません)。アプリケーションは LSP のカテゴリを照会し、LSP カテゴリとアプリケーションが許可する LSP カテゴリのセットに基づいて、その LSP をロードしないことを選択できます。

次の表は、LSP を分類できるカテゴリの一覧です。

LSP カテゴリ 説明
**LSP_CRYPTO_COMPRESS** LSP は暗号化またはデータ圧縮のプロバイダーです。
**LSP_FIREWALL** LSP はファイアウォールプロバイダーです。
**LSP_LOCAL_CACHE** LSP はローカルキャッシュプロバイダーです。
**LSP_INBOUND_MODIFY** LSP は受信データを変更します。
**LSP_INSPECTOR** LSP はデータを検査またはフィルタリングします。
**LSP_OUTBOUND_MODIFY** LSP は送信データを変更します。
**LSP_PROXY** LSP はプロキシとして機能し、パケットをリダイレクトします。
**LSP_REDIRECTOR** LSP はネットワークリダイレクターです。
**LSP_SYSTEM** LSP はサービスおよびシステムプロセスでの使用に適しています。

1 つの LSP が複数のカテゴリに属する場合があります。たとえば、ファイアウォール/セキュリティ LSP は、インスペクター (LSP_INSPECTOR) とファイアウォール (LSP_FIREWALL) の両方のカテゴリに属する可能性があります。

LSP にカテゴリが設定されていない場合、それは All Other カテゴリにあると見なされます。この LSP カテゴリは、サービスやシステムプロセス (例: lsass、winlogon、多くの svchost プロセス) ではロードされません。

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

各言語での呼び出し定義

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

INT WSCGetProviderInfo(
    GUID* lpProviderId,
    WSC_PROVIDER_INFO_TYPE InfoType,
    BYTE* Info,
    UINT_PTR* InfoSize,
    DWORD Flags,
    INT* lpErrno
);
[DllImport("WS2_32.dll", ExactSpelling = true)]
static extern int WSCGetProviderInfo(
    ref Guid lpProviderId,   // GUID*
    int InfoType,   // WSC_PROVIDER_INFO_TYPE
    IntPtr Info,   // BYTE* out
    ref UIntPtr InfoSize,   // UINT_PTR* in/out
    uint Flags,   // DWORD
    out int lpErrno   // INT* out
);
<DllImport("WS2_32.dll", ExactSpelling:=True)>
Public Shared Function WSCGetProviderInfo(
    ByRef lpProviderId As Guid,   ' GUID*
    InfoType As Integer,   ' WSC_PROVIDER_INFO_TYPE
    Info As IntPtr,   ' BYTE* out
    ByRef InfoSize As UIntPtr,   ' UINT_PTR* in/out
    Flags As UInteger,   ' DWORD
    <Out> ByRef lpErrno As Integer   ' INT* out
) As Integer
End Function
' lpProviderId : GUID*
' InfoType : WSC_PROVIDER_INFO_TYPE
' Info : BYTE* out
' InfoSize : UINT_PTR* in/out
' Flags : DWORD
' lpErrno : INT* out
Declare PtrSafe Function WSCGetProviderInfo Lib "ws2_32" ( _
    ByVal lpProviderId As LongPtr, _
    ByVal InfoType As Long, _
    ByVal Info As LongPtr, _
    ByRef InfoSize As LongPtr, _
    ByVal Flags As Long, _
    ByRef lpErrno As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

WSCGetProviderInfo = ctypes.windll.ws2_32.WSCGetProviderInfo
WSCGetProviderInfo.restype = ctypes.c_int
WSCGetProviderInfo.argtypes = [
    ctypes.c_void_p,  # lpProviderId : GUID*
    ctypes.c_int,  # InfoType : WSC_PROVIDER_INFO_TYPE
    ctypes.POINTER(ctypes.c_ubyte),  # Info : BYTE* out
    ctypes.POINTER(ctypes.c_size_t),  # InfoSize : UINT_PTR* in/out
    wintypes.DWORD,  # Flags : DWORD
    ctypes.POINTER(ctypes.c_int),  # lpErrno : INT* out
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('WS2_32.dll')
WSCGetProviderInfo = Fiddle::Function.new(
  lib['WSCGetProviderInfo'],
  [
    Fiddle::TYPE_VOIDP,  # lpProviderId : GUID*
    Fiddle::TYPE_INT,  # InfoType : WSC_PROVIDER_INFO_TYPE
    Fiddle::TYPE_VOIDP,  # Info : BYTE* out
    Fiddle::TYPE_VOIDP,  # InfoSize : UINT_PTR* in/out
    -Fiddle::TYPE_INT,  # Flags : DWORD
    Fiddle::TYPE_VOIDP,  # lpErrno : INT* out
  ],
  Fiddle::TYPE_INT)
#[link(name = "ws2_32")]
extern "system" {
    fn WSCGetProviderInfo(
        lpProviderId: *mut GUID,  // GUID*
        InfoType: i32,  // WSC_PROVIDER_INFO_TYPE
        Info: *mut u8,  // BYTE* out
        InfoSize: *mut usize,  // UINT_PTR* in/out
        Flags: u32,  // DWORD
        lpErrno: *mut i32  // INT* out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[DllImport("WS2_32.dll")]
public static extern int WSCGetProviderInfo(ref Guid lpProviderId, int InfoType, IntPtr Info, ref UIntPtr InfoSize, uint Flags, out int lpErrno);
"@
$api = Add-Type -MemberDefinition $sig -Name 'WS2_32_WSCGetProviderInfo' -Namespace Win32 -PassThru
# $api::WSCGetProviderInfo(lpProviderId, InfoType, Info, InfoSize, Flags, lpErrno)
#uselib "WS2_32.dll"
#func global WSCGetProviderInfo "WSCGetProviderInfo" sptr, sptr, sptr, sptr, sptr, sptr
; WSCGetProviderInfo varptr(lpProviderId), InfoType, varptr(Info), varptr(InfoSize), Flags, varptr(lpErrno)   ; 戻り値は stat
; lpProviderId : GUID* -> "sptr"
; InfoType : WSC_PROVIDER_INFO_TYPE -> "sptr"
; Info : BYTE* out -> "sptr"
; InfoSize : UINT_PTR* in/out -> "sptr"
; Flags : DWORD -> "sptr"
; lpErrno : INT* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "WS2_32.dll"
#cfunc global WSCGetProviderInfo "WSCGetProviderInfo" var, int, var, var, int, var
; res = WSCGetProviderInfo(lpProviderId, InfoType, Info, InfoSize, Flags, lpErrno)
; lpProviderId : GUID* -> "var"
; InfoType : WSC_PROVIDER_INFO_TYPE -> "int"
; Info : BYTE* out -> "var"
; InfoSize : UINT_PTR* in/out -> "var"
; Flags : DWORD -> "int"
; lpErrno : INT* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; INT WSCGetProviderInfo(GUID* lpProviderId, WSC_PROVIDER_INFO_TYPE InfoType, BYTE* Info, UINT_PTR* InfoSize, DWORD Flags, INT* lpErrno)
#uselib "WS2_32.dll"
#cfunc global WSCGetProviderInfo "WSCGetProviderInfo" var, int, var, var, int, var
; res = WSCGetProviderInfo(lpProviderId, InfoType, Info, InfoSize, Flags, lpErrno)
; lpProviderId : GUID* -> "var"
; InfoType : WSC_PROVIDER_INFO_TYPE -> "int"
; Info : BYTE* out -> "var"
; InfoSize : UINT_PTR* in/out -> "var"
; Flags : DWORD -> "int"
; lpErrno : INT* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	ws2_32 = windows.NewLazySystemDLL("WS2_32.dll")
	procWSCGetProviderInfo = ws2_32.NewProc("WSCGetProviderInfo")
)

// lpProviderId (GUID*), InfoType (WSC_PROVIDER_INFO_TYPE), Info (BYTE* out), InfoSize (UINT_PTR* in/out), Flags (DWORD), lpErrno (INT* out)
r1, _, err := procWSCGetProviderInfo.Call(
	uintptr(lpProviderId),
	uintptr(InfoType),
	uintptr(Info),
	uintptr(InfoSize),
	uintptr(Flags),
	uintptr(lpErrno),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // INT
function WSCGetProviderInfo(
  lpProviderId: PGUID;   // GUID*
  InfoType: Integer;   // WSC_PROVIDER_INFO_TYPE
  Info: Pointer;   // BYTE* out
  InfoSize: Pointer;   // UINT_PTR* in/out
  Flags: DWORD;   // DWORD
  lpErrno: Pointer   // INT* out
): Integer; stdcall;
  external 'WS2_32.dll' name 'WSCGetProviderInfo';
result := DllCall("WS2_32\WSCGetProviderInfo"
    , "Ptr", lpProviderId   ; GUID*
    , "Int", InfoType   ; WSC_PROVIDER_INFO_TYPE
    , "Ptr", Info   ; BYTE* out
    , "Ptr", InfoSize   ; UINT_PTR* in/out
    , "UInt", Flags   ; DWORD
    , "Ptr", lpErrno   ; INT* out
    , "Int")   ; return: INT
●WSCGetProviderInfo(lpProviderId, InfoType, Info, InfoSize, Flags, lpErrno) = DLL("WS2_32.dll", "int WSCGetProviderInfo(void*, int, void*, void*, dword, void*)")
# 呼び出し: WSCGetProviderInfo(lpProviderId, InfoType, Info, InfoSize, Flags, lpErrno)
# lpProviderId : GUID* -> "void*"
# InfoType : WSC_PROVIDER_INFO_TYPE -> "int"
# Info : BYTE* out -> "void*"
# InfoSize : UINT_PTR* in/out -> "void*"
# Flags : DWORD -> "dword"
# lpErrno : INT* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "ws2_32" fn WSCGetProviderInfo(
    lpProviderId: [*c]GUID, // GUID*
    InfoType: i32, // WSC_PROVIDER_INFO_TYPE
    Info: [*c]u8, // BYTE* out
    InfoSize: [*c]usize, // UINT_PTR* in/out
    Flags: u32, // DWORD
    lpErrno: [*c]i32 // INT* out
) callconv(std.os.windows.WINAPI) i32;
proc WSCGetProviderInfo(
    lpProviderId: ptr GUID,  # GUID*
    InfoType: int32,  # WSC_PROVIDER_INFO_TYPE
    Info: ptr uint8,  # BYTE* out
    InfoSize: ptr uint,  # UINT_PTR* in/out
    Flags: uint32,  # DWORD
    lpErrno: ptr int32  # INT* out
): int32 {.importc: "WSCGetProviderInfo", stdcall, dynlib: "WS2_32.dll".}
pragma(lib, "ws2_32");
extern(Windows)
int WSCGetProviderInfo(
    GUID* lpProviderId,   // GUID*
    int InfoType,   // WSC_PROVIDER_INFO_TYPE
    ubyte* Info,   // BYTE* out
    size_t* InfoSize,   // UINT_PTR* in/out
    uint Flags,   // DWORD
    int* lpErrno   // INT* out
);
ccall((:WSCGetProviderInfo, "WS2_32.dll"), stdcall, Int32,
      (Ptr{GUID}, Int32, Ptr{UInt8}, Ptr{Csize_t}, UInt32, Ptr{Int32}),
      lpProviderId, InfoType, Info, InfoSize, Flags, lpErrno)
# lpProviderId : GUID* -> Ptr{GUID}
# InfoType : WSC_PROVIDER_INFO_TYPE -> Int32
# Info : BYTE* out -> Ptr{UInt8}
# InfoSize : UINT_PTR* in/out -> Ptr{Csize_t}
# Flags : DWORD -> UInt32
# lpErrno : INT* out -> Ptr{Int32}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
int32_t WSCGetProviderInfo(
    void* lpProviderId,
    int32_t InfoType,
    uint8_t* Info,
    uintptr_t* InfoSize,
    uint32_t Flags,
    int32_t* lpErrno);
]]
local ws2_32 = ffi.load("ws2_32")
-- ws2_32.WSCGetProviderInfo(lpProviderId, InfoType, Info, InfoSize, Flags, lpErrno)
-- lpProviderId : GUID*
-- InfoType : WSC_PROVIDER_INFO_TYPE
-- Info : BYTE* out
-- InfoSize : UINT_PTR* in/out
-- Flags : DWORD
-- lpErrno : INT* out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('WS2_32.dll');
const WSCGetProviderInfo = lib.func('__stdcall', 'WSCGetProviderInfo', 'int32_t', ['void *', 'int32_t', 'uint8_t *', 'uintptr_t *', 'uint32_t', 'int32_t *']);
// WSCGetProviderInfo(lpProviderId, InfoType, Info, InfoSize, Flags, lpErrno)
// lpProviderId : GUID* -> 'void *'
// InfoType : WSC_PROVIDER_INFO_TYPE -> 'int32_t'
// Info : BYTE* out -> 'uint8_t *'
// InfoSize : UINT_PTR* in/out -> 'uintptr_t *'
// Flags : DWORD -> 'uint32_t'
// lpErrno : INT* out -> 'int32_t *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("WS2_32.dll", {
  WSCGetProviderInfo: { parameters: ["pointer", "i32", "pointer", "pointer", "u32", "pointer"], result: "i32" },
});
// lib.symbols.WSCGetProviderInfo(lpProviderId, InfoType, Info, InfoSize, Flags, lpErrno)
// lpProviderId : GUID* -> "pointer"
// InfoType : WSC_PROVIDER_INFO_TYPE -> "i32"
// Info : BYTE* out -> "pointer"
// InfoSize : UINT_PTR* in/out -> "pointer"
// Flags : DWORD -> "u32"
// lpErrno : INT* out -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
int32_t WSCGetProviderInfo(
    void* lpProviderId,
    int32_t InfoType,
    uint8_t* Info,
    size_t* InfoSize,
    uint32_t Flags,
    int32_t* lpErrno);
C, "WS2_32.dll");
// $ffi->WSCGetProviderInfo(lpProviderId, InfoType, Info, InfoSize, Flags, lpErrno);
// lpProviderId : GUID*
// InfoType : WSC_PROVIDER_INFO_TYPE
// Info : BYTE* out
// InfoSize : UINT_PTR* in/out
// Flags : DWORD
// lpErrno : INT* 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 Ws2_32 extends StdCallLibrary {
    Ws2_32 INSTANCE = Native.load("ws2_32", Ws2_32.class);
    int WSCGetProviderInfo(
        Pointer lpProviderId,   // GUID*
        int InfoType,   // WSC_PROVIDER_INFO_TYPE
        byte[] Info,   // BYTE* out
        LongByReference InfoSize,   // UINT_PTR* in/out
        int Flags,   // DWORD
        IntByReference lpErrno   // INT* out
    );
}
@[Link("ws2_32")]
lib LibWS2_32
  fun WSCGetProviderInfo = WSCGetProviderInfo(
    lpProviderId : GUID*,   # GUID*
    InfoType : Int32,   # WSC_PROVIDER_INFO_TYPE
    Info : UInt8*,   # BYTE* out
    InfoSize : LibC::SizeT*,   # UINT_PTR* in/out
    Flags : UInt32,   # DWORD
    lpErrno : Int32*   # INT* out
  ) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。
import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef WSCGetProviderInfoNative = Int32 Function(Pointer<Void>, Int32, Pointer<Uint8>, Pointer<UintPtr>, Uint32, Pointer<Int32>);
typedef WSCGetProviderInfoDart = int Function(Pointer<Void>, int, Pointer<Uint8>, Pointer<UintPtr>, int, Pointer<Int32>);
final WSCGetProviderInfo = DynamicLibrary.open('WS2_32.dll')
    .lookupFunction<WSCGetProviderInfoNative, WSCGetProviderInfoDart>('WSCGetProviderInfo');
// lpProviderId : GUID* -> Pointer<Void>
// InfoType : WSC_PROVIDER_INFO_TYPE -> Int32
// Info : BYTE* out -> Pointer<Uint8>
// InfoSize : UINT_PTR* in/out -> Pointer<UintPtr>
// Flags : DWORD -> Uint32
// lpErrno : INT* out -> Pointer<Int32>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function WSCGetProviderInfo(
  lpProviderId: PGUID;   // GUID*
  InfoType: Integer;   // WSC_PROVIDER_INFO_TYPE
  Info: Pointer;   // BYTE* out
  InfoSize: Pointer;   // UINT_PTR* in/out
  Flags: DWORD;   // DWORD
  lpErrno: Pointer   // INT* out
): Integer; stdcall;
  external 'WS2_32.dll' name 'WSCGetProviderInfo';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "WSCGetProviderInfo"
  c_WSCGetProviderInfo :: Ptr () -> Int32 -> Ptr Word8 -> Ptr CUIntPtr -> Word32 -> Ptr Int32 -> IO Int32
-- lpProviderId : GUID* -> Ptr ()
-- InfoType : WSC_PROVIDER_INFO_TYPE -> Int32
-- Info : BYTE* out -> Ptr Word8
-- InfoSize : UINT_PTR* in/out -> Ptr CUIntPtr
-- Flags : DWORD -> Word32
-- lpErrno : INT* out -> Ptr Int32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let wscgetproviderinfo =
  foreign "WSCGetProviderInfo"
    ((ptr void) @-> int32_t @-> (ptr uint8_t) @-> (ptr size_t) @-> uint32_t @-> (ptr int32_t) @-> returning int32_t)
(* lpProviderId : GUID* -> (ptr void) *)
(* InfoType : WSC_PROVIDER_INFO_TYPE -> int32_t *)
(* Info : BYTE* out -> (ptr uint8_t) *)
(* InfoSize : UINT_PTR* in/out -> (ptr size_t) *)
(* Flags : DWORD -> uint32_t *)
(* lpErrno : INT* out -> (ptr int32_t) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library ws2_32 (t "WS2_32.dll"))
(cffi:use-foreign-library ws2_32)

(cffi:defcfun ("WSCGetProviderInfo" wscget-provider-info :convention :stdcall) :int32
  (lp-provider-id :pointer)   ; GUID*
  (info-type :int32)   ; WSC_PROVIDER_INFO_TYPE
  (info :pointer)   ; BYTE* out
  (info-size :pointer)   ; UINT_PTR* in/out
  (flags :uint32)   ; DWORD
  (lp-errno :pointer))   ; INT* out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $WSCGetProviderInfo = Win32::API::More->new('WS2_32',
    'int WSCGetProviderInfo(LPVOID lpProviderId, int InfoType, LPVOID Info, LPVOID InfoSize, DWORD Flags, LPVOID lpErrno)');
# my $ret = $WSCGetProviderInfo->Call($lpProviderId, $InfoType, $Info, $InfoSize, $Flags, $lpErrno);
# lpProviderId : GUID* -> LPVOID
# InfoType : WSC_PROVIDER_INFO_TYPE -> int
# Info : BYTE* out -> LPVOID
# InfoSize : UINT_PTR* in/out -> LPVOID
# Flags : DWORD -> DWORD
# lpErrno : INT* out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

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