Win32 API 日本語リファレンス
ホームSecurity.Credentials › SCardIntroduceCardTypeA

SCardIntroduceCardTypeA

関数
新しいスマートカード種別をシステムに登録する。
DLLWinSCard.dll文字セットANSI (-A)呼出規約winapi対応OSWindows XP 以降

シグネチャ

// WinSCard.dll  (ANSI / -A)
#include <windows.h>

INT SCardIntroduceCardTypeA(
    UINT_PTR hContext,
    LPCSTR szCardName,
    const GUID* pguidPrimaryProvider,   // optional
    const GUID* rgguidInterfaces,   // optional
    DWORD dwInterfaceCount,
    BYTE* pbAtr,
    BYTE* pbAtrMask,
    DWORD cbAtrLen
);

パラメーター

名前方向説明
hContextUINT_PTRinリソースマネージャーコンテキストを識別するハンドル。リソースマネージャーコンテキストは、事前の SCardEstablishContext の呼び出しによって設定されます。このパラメーターを NULL にすることはできません。
szCardNameLPCSTRinユーザーがカードを識別できる名前。
pguidPrimaryProviderGUID*inoptionalスマートカードのプライマリサービスプロバイダーの識別子(GUID)へのポインター。
rgguidInterfacesGUID*inoptionalスマートカードがサポートするインターフェイスを識別する識別子(GUID)の配列。
dwInterfaceCountDWORDinrgguidInterfaces 配列内の識別子の数。
pbAtrBYTE*inスマートカードデータベースを照会する際に照合目的で使用できる ATR 文字列(詳細については SCardListCards を参照してください)。この文字列の長さは、通常の ATR 解析によって決定されます。
pbAtrMaskBYTE*inスマートカードの ATR を pbAtr で指定された ATR と比較する際に使用する省略可能なビットマスク。この値が非 NULL の場合、pbAtr で指定された ATR 文字列と同じ長さのバイト列を指している必要があります。ある ATR 文字列 ApbAtr で指定された ATR と比較される場合、A & M = pbAtr(ここで M は指定されたマスク、& はビットごとの AND を表します)の場合にのみ一致します。
cbAtrLenDWORDinATR および省略可能な ATR マスクの長さ。この値がゼロの場合、ATR の長さは通常の ATR 解析によって決定されます。pbAtr の値が指定されている場合、この値をゼロにすることはできません。

戻り値の型: INT

公式ドキュメント

スマートカードをスマートカードデータベースに追加することで、スマートカードをスマートカードサブシステムに(アクティブなユーザー向けに)登録します。(ANSI)

戻り値

この関数は、成功するか失敗するかに応じて異なる値を返します。

戻り値コード 説明
成功
SCARD_S_SUCCESS。
失敗
エラーコード。詳細については Smart Card Return Values を参照してください。

解説(Remarks)

この関数はリダイレクトされませんが、リモートデスクトップセッション内でこの関数を呼び出してもエラーにはなりません。それは単に、結果がローカルコンピューターではなくリモートコンピューターから取得されることを意味するだけです。

SCardIntroduceCardType 関数はデータベース管理関数です。他のデータベース管理関数の詳細については Smart Card Database Management Functions を参照してください。

スマートカードを削除するには SCardForgetCardType を使用します。

次の例は、カードタイプを登録する方法を示しています。この例では、hContext が事前の SCardEstablishContext 関数の呼び出しから取得した有効なハンドルであることを前提としています。

GUID  MyGuid = { 0xABCDEF00,
                 0xABCD,
                 0xABCD,
                 0xAA, 0xBB, 0xCC, 0xDD,
                 0xAA, 0xBB, 0xCC, 0xDD };

static const BYTE MyATR[] =     { 0xaa, 0xbb, 0xcc, 0x00, 0xdd };
static const BYTE MyATRMask[] = { 0xff, 0xff, 0xff, 0x00, 0xff};

LONG            lReturn;

lReturn = SCardIntroduceCardType(hContext, 
                                 L"MyCardName",
                                 &MyGuid,
                                 NULL,    // No interface array
                                 0,       // Interface count = 0
                                 MyATR,
                                 MyATRMask,
                                 sizeof(MyATR));
if ( SCARD_S_SUCCESS != lReturn )
    printf("Failed SCardIntroduceCardType\n");
メモ

winscard.h ヘッダーは、UNICODE プリプロセッサ定数の定義に基づいて、この関数の ANSI 版または Unicode 版を自動的に選択するエイリアスとして SCardIntroduceCardType を定義します。エンコード非依存のエイリアスの使用を、エンコード非依存ではないコードと混在させると、コンパイルエラーまたは実行時エラーを引き起こす不整合につながる可能性があります。詳細については Conventions for Function Prototypes を参照してください。

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

各言語での呼び出し定義

// WinSCard.dll  (ANSI / -A)
#include <windows.h>

INT SCardIntroduceCardTypeA(
    UINT_PTR hContext,
    LPCSTR szCardName,
    const GUID* pguidPrimaryProvider,   // optional
    const GUID* rgguidInterfaces,   // optional
    DWORD dwInterfaceCount,
    BYTE* pbAtr,
    BYTE* pbAtrMask,
    DWORD cbAtrLen
);
[DllImport("WinSCard.dll", CharSet = CharSet.Ansi, ExactSpelling = true)]
static extern int SCardIntroduceCardTypeA(
    UIntPtr hContext,   // UINT_PTR
    [MarshalAs(UnmanagedType.LPStr)] string szCardName,   // LPCSTR
    IntPtr pguidPrimaryProvider,   // GUID* optional
    IntPtr rgguidInterfaces,   // GUID* optional
    uint dwInterfaceCount,   // DWORD
    IntPtr pbAtr,   // BYTE*
    IntPtr pbAtrMask,   // BYTE*
    uint cbAtrLen   // DWORD
);
<DllImport("WinSCard.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function SCardIntroduceCardTypeA(
    hContext As UIntPtr,   ' UINT_PTR
    <MarshalAs(UnmanagedType.LPStr)> szCardName As String,   ' LPCSTR
    pguidPrimaryProvider As IntPtr,   ' GUID* optional
    rgguidInterfaces As IntPtr,   ' GUID* optional
    dwInterfaceCount As UInteger,   ' DWORD
    pbAtr As IntPtr,   ' BYTE*
    pbAtrMask As IntPtr,   ' BYTE*
    cbAtrLen As UInteger   ' DWORD
) As Integer
End Function
' hContext : UINT_PTR
' szCardName : LPCSTR
' pguidPrimaryProvider : GUID* optional
' rgguidInterfaces : GUID* optional
' dwInterfaceCount : DWORD
' pbAtr : BYTE*
' pbAtrMask : BYTE*
' cbAtrLen : DWORD
Declare PtrSafe Function SCardIntroduceCardTypeA Lib "winscard" ( _
    ByVal hContext As LongPtr, _
    ByVal szCardName As String, _
    ByVal pguidPrimaryProvider As LongPtr, _
    ByVal rgguidInterfaces As LongPtr, _
    ByVal dwInterfaceCount As Long, _
    ByVal pbAtr As LongPtr, _
    ByVal pbAtrMask As LongPtr, _
    ByVal cbAtrLen As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

SCardIntroduceCardTypeA = ctypes.windll.winscard.SCardIntroduceCardTypeA
SCardIntroduceCardTypeA.restype = ctypes.c_int
SCardIntroduceCardTypeA.argtypes = [
    ctypes.c_size_t,  # hContext : UINT_PTR
    wintypes.LPCSTR,  # szCardName : LPCSTR
    ctypes.c_void_p,  # pguidPrimaryProvider : GUID* optional
    ctypes.c_void_p,  # rgguidInterfaces : GUID* optional
    wintypes.DWORD,  # dwInterfaceCount : DWORD
    ctypes.POINTER(ctypes.c_ubyte),  # pbAtr : BYTE*
    ctypes.POINTER(ctypes.c_ubyte),  # pbAtrMask : BYTE*
    wintypes.DWORD,  # cbAtrLen : DWORD
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('WinSCard.dll')
SCardIntroduceCardTypeA = Fiddle::Function.new(
  lib['SCardIntroduceCardTypeA'],
  [
    Fiddle::TYPE_UINTPTR_T,  # hContext : UINT_PTR
    Fiddle::TYPE_VOIDP,  # szCardName : LPCSTR
    Fiddle::TYPE_VOIDP,  # pguidPrimaryProvider : GUID* optional
    Fiddle::TYPE_VOIDP,  # rgguidInterfaces : GUID* optional
    -Fiddle::TYPE_INT,  # dwInterfaceCount : DWORD
    Fiddle::TYPE_VOIDP,  # pbAtr : BYTE*
    Fiddle::TYPE_VOIDP,  # pbAtrMask : BYTE*
    -Fiddle::TYPE_INT,  # cbAtrLen : DWORD
  ],
  Fiddle::TYPE_INT)
#[link(name = "winscard")]
extern "system" {
    fn SCardIntroduceCardTypeA(
        hContext: usize,  // UINT_PTR
        szCardName: *const u8,  // LPCSTR
        pguidPrimaryProvider: *const GUID,  // GUID* optional
        rgguidInterfaces: *const GUID,  // GUID* optional
        dwInterfaceCount: u32,  // DWORD
        pbAtr: *mut u8,  // BYTE*
        pbAtrMask: *mut u8,  // BYTE*
        cbAtrLen: u32  // DWORD
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[DllImport("WinSCard.dll", CharSet = CharSet.Ansi)]
public static extern int SCardIntroduceCardTypeA(UIntPtr hContext, [MarshalAs(UnmanagedType.LPStr)] string szCardName, IntPtr pguidPrimaryProvider, IntPtr rgguidInterfaces, uint dwInterfaceCount, IntPtr pbAtr, IntPtr pbAtrMask, uint cbAtrLen);
"@
$api = Add-Type -MemberDefinition $sig -Name 'WinSCard_SCardIntroduceCardTypeA' -Namespace Win32 -PassThru
# $api::SCardIntroduceCardTypeA(hContext, szCardName, pguidPrimaryProvider, rgguidInterfaces, dwInterfaceCount, pbAtr, pbAtrMask, cbAtrLen)
#uselib "WinSCard.dll"
#func global SCardIntroduceCardTypeA "SCardIntroduceCardTypeA" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; SCardIntroduceCardTypeA hContext, szCardName, varptr(pguidPrimaryProvider), varptr(rgguidInterfaces), dwInterfaceCount, varptr(pbAtr), varptr(pbAtrMask), cbAtrLen   ; 戻り値は stat
; hContext : UINT_PTR -> "sptr"
; szCardName : LPCSTR -> "sptr"
; pguidPrimaryProvider : GUID* optional -> "sptr"
; rgguidInterfaces : GUID* optional -> "sptr"
; dwInterfaceCount : DWORD -> "sptr"
; pbAtr : BYTE* -> "sptr"
; pbAtrMask : BYTE* -> "sptr"
; cbAtrLen : DWORD -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "WinSCard.dll"
#cfunc global SCardIntroduceCardTypeA "SCardIntroduceCardTypeA" sptr, str, var, var, int, var, var, int
; res = SCardIntroduceCardTypeA(hContext, szCardName, pguidPrimaryProvider, rgguidInterfaces, dwInterfaceCount, pbAtr, pbAtrMask, cbAtrLen)
; hContext : UINT_PTR -> "sptr"
; szCardName : LPCSTR -> "str"
; pguidPrimaryProvider : GUID* optional -> "var"
; rgguidInterfaces : GUID* optional -> "var"
; dwInterfaceCount : DWORD -> "int"
; pbAtr : BYTE* -> "var"
; pbAtrMask : BYTE* -> "var"
; cbAtrLen : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; INT SCardIntroduceCardTypeA(UINT_PTR hContext, LPCSTR szCardName, GUID* pguidPrimaryProvider, GUID* rgguidInterfaces, DWORD dwInterfaceCount, BYTE* pbAtr, BYTE* pbAtrMask, DWORD cbAtrLen)
#uselib "WinSCard.dll"
#cfunc global SCardIntroduceCardTypeA "SCardIntroduceCardTypeA" intptr, str, var, var, int, var, var, int
; res = SCardIntroduceCardTypeA(hContext, szCardName, pguidPrimaryProvider, rgguidInterfaces, dwInterfaceCount, pbAtr, pbAtrMask, cbAtrLen)
; hContext : UINT_PTR -> "intptr"
; szCardName : LPCSTR -> "str"
; pguidPrimaryProvider : GUID* optional -> "var"
; rgguidInterfaces : GUID* optional -> "var"
; dwInterfaceCount : DWORD -> "int"
; pbAtr : BYTE* -> "var"
; pbAtrMask : BYTE* -> "var"
; cbAtrLen : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	winscard = windows.NewLazySystemDLL("WinSCard.dll")
	procSCardIntroduceCardTypeA = winscard.NewProc("SCardIntroduceCardTypeA")
)

// hContext (UINT_PTR), szCardName (LPCSTR), pguidPrimaryProvider (GUID* optional), rgguidInterfaces (GUID* optional), dwInterfaceCount (DWORD), pbAtr (BYTE*), pbAtrMask (BYTE*), cbAtrLen (DWORD)
r1, _, err := procSCardIntroduceCardTypeA.Call(
	uintptr(hContext),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(szCardName))),
	uintptr(pguidPrimaryProvider),
	uintptr(rgguidInterfaces),
	uintptr(dwInterfaceCount),
	uintptr(pbAtr),
	uintptr(pbAtrMask),
	uintptr(cbAtrLen),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // INT
function SCardIntroduceCardTypeA(
  hContext: NativeUInt;   // UINT_PTR
  szCardName: PAnsiChar;   // LPCSTR
  pguidPrimaryProvider: PGUID;   // GUID* optional
  rgguidInterfaces: PGUID;   // GUID* optional
  dwInterfaceCount: DWORD;   // DWORD
  pbAtr: Pointer;   // BYTE*
  pbAtrMask: Pointer;   // BYTE*
  cbAtrLen: DWORD   // DWORD
): Integer; stdcall;
  external 'WinSCard.dll' name 'SCardIntroduceCardTypeA';
result := DllCall("WinSCard\SCardIntroduceCardTypeA"
    , "UPtr", hContext   ; UINT_PTR
    , "AStr", szCardName   ; LPCSTR
    , "Ptr", pguidPrimaryProvider   ; GUID* optional
    , "Ptr", rgguidInterfaces   ; GUID* optional
    , "UInt", dwInterfaceCount   ; DWORD
    , "Ptr", pbAtr   ; BYTE*
    , "Ptr", pbAtrMask   ; BYTE*
    , "UInt", cbAtrLen   ; DWORD
    , "Int")   ; return: INT
●SCardIntroduceCardTypeA(hContext, szCardName, pguidPrimaryProvider, rgguidInterfaces, dwInterfaceCount, pbAtr, pbAtrMask, cbAtrLen) = DLL("WinSCard.dll", "int SCardIntroduceCardTypeA(int, char*, void*, void*, dword, void*, void*, dword)")
# 呼び出し: SCardIntroduceCardTypeA(hContext, szCardName, pguidPrimaryProvider, rgguidInterfaces, dwInterfaceCount, pbAtr, pbAtrMask, cbAtrLen)
# hContext : UINT_PTR -> "int"
# szCardName : LPCSTR -> "char*"
# pguidPrimaryProvider : GUID* optional -> "void*"
# rgguidInterfaces : GUID* optional -> "void*"
# dwInterfaceCount : DWORD -> "dword"
# pbAtr : BYTE* -> "void*"
# pbAtrMask : BYTE* -> "void*"
# cbAtrLen : DWORD -> "dword"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "winscard" fn SCardIntroduceCardTypeA(
    hContext: usize, // UINT_PTR
    szCardName: [*c]const u8, // LPCSTR
    pguidPrimaryProvider: [*c]GUID, // GUID* optional
    rgguidInterfaces: [*c]GUID, // GUID* optional
    dwInterfaceCount: u32, // DWORD
    pbAtr: [*c]u8, // BYTE*
    pbAtrMask: [*c]u8, // BYTE*
    cbAtrLen: u32 // DWORD
) callconv(std.os.windows.WINAPI) i32;
proc SCardIntroduceCardTypeA(
    hContext: uint,  # UINT_PTR
    szCardName: cstring,  # LPCSTR
    pguidPrimaryProvider: ptr GUID,  # GUID* optional
    rgguidInterfaces: ptr GUID,  # GUID* optional
    dwInterfaceCount: uint32,  # DWORD
    pbAtr: ptr uint8,  # BYTE*
    pbAtrMask: ptr uint8,  # BYTE*
    cbAtrLen: uint32  # DWORD
): int32 {.importc: "SCardIntroduceCardTypeA", stdcall, dynlib: "WinSCard.dll".}
pragma(lib, "winscard");
extern(Windows)
int SCardIntroduceCardTypeA(
    size_t hContext,   // UINT_PTR
    const(char)* szCardName,   // LPCSTR
    GUID* pguidPrimaryProvider,   // GUID* optional
    GUID* rgguidInterfaces,   // GUID* optional
    uint dwInterfaceCount,   // DWORD
    ubyte* pbAtr,   // BYTE*
    ubyte* pbAtrMask,   // BYTE*
    uint cbAtrLen   // DWORD
);
ccall((:SCardIntroduceCardTypeA, "WinSCard.dll"), stdcall, Int32,
      (Csize_t, Cstring, Ptr{GUID}, Ptr{GUID}, UInt32, Ptr{UInt8}, Ptr{UInt8}, UInt32),
      hContext, szCardName, pguidPrimaryProvider, rgguidInterfaces, dwInterfaceCount, pbAtr, pbAtrMask, cbAtrLen)
# hContext : UINT_PTR -> Csize_t
# szCardName : LPCSTR -> Cstring
# pguidPrimaryProvider : GUID* optional -> Ptr{GUID}
# rgguidInterfaces : GUID* optional -> Ptr{GUID}
# dwInterfaceCount : DWORD -> UInt32
# pbAtr : BYTE* -> Ptr{UInt8}
# pbAtrMask : BYTE* -> Ptr{UInt8}
# cbAtrLen : DWORD -> UInt32
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
int32_t SCardIntroduceCardTypeA(
    uintptr_t hContext,
    const char* szCardName,
    void* pguidPrimaryProvider,
    void* rgguidInterfaces,
    uint32_t dwInterfaceCount,
    uint8_t* pbAtr,
    uint8_t* pbAtrMask,
    uint32_t cbAtrLen);
]]
local winscard = ffi.load("winscard")
-- winscard.SCardIntroduceCardTypeA(hContext, szCardName, pguidPrimaryProvider, rgguidInterfaces, dwInterfaceCount, pbAtr, pbAtrMask, cbAtrLen)
-- hContext : UINT_PTR
-- szCardName : LPCSTR
-- pguidPrimaryProvider : GUID* optional
-- rgguidInterfaces : GUID* optional
-- dwInterfaceCount : DWORD
-- pbAtr : BYTE*
-- pbAtrMask : BYTE*
-- cbAtrLen : DWORD
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('WinSCard.dll');
const SCardIntroduceCardTypeA = lib.func('__stdcall', 'SCardIntroduceCardTypeA', 'int32_t', ['uintptr_t', 'str', 'void *', 'void *', 'uint32_t', 'uint8_t *', 'uint8_t *', 'uint32_t']);
// SCardIntroduceCardTypeA(hContext, szCardName, pguidPrimaryProvider, rgguidInterfaces, dwInterfaceCount, pbAtr, pbAtrMask, cbAtrLen)
// hContext : UINT_PTR -> 'uintptr_t'
// szCardName : LPCSTR -> 'str'
// pguidPrimaryProvider : GUID* optional -> 'void *'
// rgguidInterfaces : GUID* optional -> 'void *'
// dwInterfaceCount : DWORD -> 'uint32_t'
// pbAtr : BYTE* -> 'uint8_t *'
// pbAtrMask : BYTE* -> 'uint8_t *'
// cbAtrLen : DWORD -> 'uint32_t'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("WinSCard.dll", {
  SCardIntroduceCardTypeA: { parameters: ["usize", "buffer", "pointer", "pointer", "u32", "pointer", "pointer", "u32"], result: "i32" },
});
// lib.symbols.SCardIntroduceCardTypeA(hContext, szCardName, pguidPrimaryProvider, rgguidInterfaces, dwInterfaceCount, pbAtr, pbAtrMask, cbAtrLen)
// hContext : UINT_PTR -> "usize"
// szCardName : LPCSTR -> "buffer"
// pguidPrimaryProvider : GUID* optional -> "pointer"
// rgguidInterfaces : GUID* optional -> "pointer"
// dwInterfaceCount : DWORD -> "u32"
// pbAtr : BYTE* -> "pointer"
// pbAtrMask : BYTE* -> "pointer"
// cbAtrLen : DWORD -> "u32"
// 文字列は "buffer"。ANSI(-A) は new TextEncoder() で UTF-8/ANSI バイト列(末尾に \x00)を渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
int32_t SCardIntroduceCardTypeA(
    size_t hContext,
    const char* szCardName,
    void* pguidPrimaryProvider,
    void* rgguidInterfaces,
    uint32_t dwInterfaceCount,
    uint8_t* pbAtr,
    uint8_t* pbAtrMask,
    uint32_t cbAtrLen);
C, "WinSCard.dll");
// $ffi->SCardIntroduceCardTypeA(hContext, szCardName, pguidPrimaryProvider, rgguidInterfaces, dwInterfaceCount, pbAtr, pbAtrMask, cbAtrLen);
// hContext : UINT_PTR
// szCardName : LPCSTR
// pguidPrimaryProvider : GUID* optional
// rgguidInterfaces : GUID* optional
// dwInterfaceCount : DWORD
// pbAtr : BYTE*
// pbAtrMask : BYTE*
// cbAtrLen : DWORD
// 構造体/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 Winscard extends StdCallLibrary {
    Winscard INSTANCE = Native.load("winscard", Winscard.class, W32APIOptions.ASCII_OPTIONS);
    int SCardIntroduceCardTypeA(
        long hContext,   // UINT_PTR
        String szCardName,   // LPCSTR
        Pointer pguidPrimaryProvider,   // GUID* optional
        Pointer rgguidInterfaces,   // GUID* optional
        int dwInterfaceCount,   // DWORD
        byte[] pbAtr,   // BYTE*
        byte[] pbAtrMask,   // BYTE*
        int cbAtrLen   // DWORD
    );
}
@[Link("winscard")]
lib LibWinSCard
  fun SCardIntroduceCardTypeA = SCardIntroduceCardTypeA(
    hContext : LibC::SizeT,   # UINT_PTR
    szCardName : UInt8*,   # LPCSTR
    pguidPrimaryProvider : GUID*,   # GUID* optional
    rgguidInterfaces : GUID*,   # GUID* optional
    dwInterfaceCount : UInt32,   # DWORD
    pbAtr : UInt8*,   # BYTE*
    pbAtrMask : UInt8*,   # BYTE*
    cbAtrLen : UInt32   # DWORD
  ) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。
import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef SCardIntroduceCardTypeANative = Int32 Function(UintPtr, Pointer<Utf8>, Pointer<Void>, Pointer<Void>, Uint32, Pointer<Uint8>, Pointer<Uint8>, Uint32);
typedef SCardIntroduceCardTypeADart = int Function(int, Pointer<Utf8>, Pointer<Void>, Pointer<Void>, int, Pointer<Uint8>, Pointer<Uint8>, int);
final SCardIntroduceCardTypeA = DynamicLibrary.open('WinSCard.dll')
    .lookupFunction<SCardIntroduceCardTypeANative, SCardIntroduceCardTypeADart>('SCardIntroduceCardTypeA');
// hContext : UINT_PTR -> UintPtr
// szCardName : LPCSTR -> Pointer<Utf8>
// pguidPrimaryProvider : GUID* optional -> Pointer<Void>
// rgguidInterfaces : GUID* optional -> Pointer<Void>
// dwInterfaceCount : DWORD -> Uint32
// pbAtr : BYTE* -> Pointer<Uint8>
// pbAtrMask : BYTE* -> Pointer<Uint8>
// cbAtrLen : DWORD -> Uint32
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function SCardIntroduceCardTypeA(
  hContext: NativeUInt;   // UINT_PTR
  szCardName: PAnsiChar;   // LPCSTR
  pguidPrimaryProvider: PGUID;   // GUID* optional
  rgguidInterfaces: PGUID;   // GUID* optional
  dwInterfaceCount: DWORD;   // DWORD
  pbAtr: Pointer;   // BYTE*
  pbAtrMask: Pointer;   // BYTE*
  cbAtrLen: DWORD   // DWORD
): Integer; stdcall;
  external 'WinSCard.dll' name 'SCardIntroduceCardTypeA';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "SCardIntroduceCardTypeA"
  c_SCardIntroduceCardTypeA :: CUIntPtr -> CString -> Ptr () -> Ptr () -> Word32 -> Ptr Word8 -> Ptr Word8 -> Word32 -> IO Int32
-- hContext : UINT_PTR -> CUIntPtr
-- szCardName : LPCSTR -> CString
-- pguidPrimaryProvider : GUID* optional -> Ptr ()
-- rgguidInterfaces : GUID* optional -> Ptr ()
-- dwInterfaceCount : DWORD -> Word32
-- pbAtr : BYTE* -> Ptr Word8
-- pbAtrMask : BYTE* -> Ptr Word8
-- cbAtrLen : DWORD -> Word32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let scardintroducecardtypea =
  foreign "SCardIntroduceCardTypeA"
    (size_t @-> string @-> (ptr void) @-> (ptr void) @-> uint32_t @-> (ptr uint8_t) @-> (ptr uint8_t) @-> uint32_t @-> returning int32_t)
(* hContext : UINT_PTR -> size_t *)
(* szCardName : LPCSTR -> string *)
(* pguidPrimaryProvider : GUID* optional -> (ptr void) *)
(* rgguidInterfaces : GUID* optional -> (ptr void) *)
(* dwInterfaceCount : DWORD -> uint32_t *)
(* pbAtr : BYTE* -> (ptr uint8_t) *)
(* pbAtrMask : BYTE* -> (ptr uint8_t) *)
(* cbAtrLen : DWORD -> uint32_t *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library winscard (t "WinSCard.dll"))
(cffi:use-foreign-library winscard)

(cffi:defcfun ("SCardIntroduceCardTypeA" scard-introduce-card-type-a :convention :stdcall) :int32
  (h-context :uint64)   ; UINT_PTR
  (sz-card-name :string)   ; LPCSTR
  (pguid-primary-provider :pointer)   ; GUID* optional
  (rgguid-interfaces :pointer)   ; GUID* optional
  (dw-interface-count :uint32)   ; DWORD
  (pb-atr :pointer)   ; BYTE*
  (pb-atr-mask :pointer)   ; BYTE*
  (cb-atr-len :uint32))   ; DWORD
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $SCardIntroduceCardTypeA = Win32::API::More->new('WinSCard',
    'int SCardIntroduceCardTypeA(WPARAM hContext, LPCSTR szCardName, LPVOID pguidPrimaryProvider, LPVOID rgguidInterfaces, DWORD dwInterfaceCount, LPVOID pbAtr, LPVOID pbAtrMask, DWORD cbAtrLen)');
# my $ret = $SCardIntroduceCardTypeA->Call($hContext, $szCardName, $pguidPrimaryProvider, $rgguidInterfaces, $dwInterfaceCount, $pbAtr, $pbAtrMask, $cbAtrLen);
# hContext : UINT_PTR -> WPARAM
# szCardName : LPCSTR -> LPCSTR
# pguidPrimaryProvider : GUID* optional -> LPVOID
# rgguidInterfaces : GUID* optional -> LPVOID
# dwInterfaceCount : DWORD -> DWORD
# pbAtr : BYTE* -> LPVOID
# pbAtrMask : BYTE* -> LPVOID
# cbAtrLen : DWORD -> DWORD
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

文字セット違い
公式の関連項目