Win32 API 日本語リファレンス
ホーム › Storage.Jet › JetSetCurrentIndex4W

JetSetCurrentIndex4W

関数
インデックスIDを用いて現在のインデックスを設定する(Unicode版)。
DLLESENT.dll文字セットUnicode (-W)呼出規約winapi

シグネチャ

// ESENT.dll  (Unicode / -W)
#include <windows.h>

INT JetSetCurrentIndex4W(
    JET_SESID sesid,
    JET_TABLEID tableid,
    WORD* szIndexName,   // optional
    JET_INDEXID* pindexid,   // optional
    DWORD grbit,
    DWORD itagSequence
);

パラメーター

名前型方向説明
sesidJET_SESIDin現在インデックス設定を行うセッションのJET_SESIDハンドル。
tableidJET_TABLEIDin対象テーブルのカーソルハンドル。
szIndexNameWORD*inoptional有効化するインデックス名を指す終端付きUnicode文字列ポインタ。pindexid使用時はNULL可。
pindexidJET_INDEXID*inoptional高速指定用のインデックスIDを格納したJET_INDEXID構造体ポインタ。名前検索を回避できる。NULL可。
grbitDWORDin移動動作を制御するビットフラグ。カーソル位置決め方法を指定する。
itagSequenceDWORDin多値インデックスで位置決めに用いるタグシーケンス番号。1始まりで指定する。

戻り値の型: INT

公式ドキュメント

JetSetCurrentIndex4 関数は、カーソルの現在のインデックスを設定するために使用します。カーソルの現在のインデックスは、レコードを公開するために使用するインデックスエントリのセットを選択することによって、テーブル内のどのレコードがそのカーソルから参照できるか、およびそれらがどのような順序で現れるかを定義します。

戻り値

この関数は JET_ERR データ型を返し、その値は次のいずれかの戻りコードです。発生し得る ESE エラーの詳細については、「Extensible Storage Engine Errors」および「Error Handling Parameters」を参照してください。

戻りコード

説明

JET_errSuccess

操作は正常に完了しました。

JET_errBadItagSequence

JET_bitNoMove オプションを指定してセカンダリインデックスが選択されていますが、新しいインデックスの定義における最初の複数値キー列に、指定されたシーケンス番号に対応する値がありません。

JET_errClientRequestToStopJetService

JetStopService の呼び出しの結果、そのセッションに関連付けられたインスタンス上のすべての処理が停止しているため、操作を完了できません。

JET_errInstanceUnavailable

そのセッションに関連付けられたインスタンスで、データの整合性を保護するためにすべてのデータへのアクセスを取り消す必要がある致命的なエラーが発生したため、操作を完了できません。

このエラーは Windows XP 以降のリリースでのみ返されます。

JET_errInvalidIndexId

インデックス ID の内容が無効であるか、有効期限が切れているため、更新する必要があります。JetSetCurrentIndex4 では、次の場合にこのエラーが発生することがあります。

  • pindexid->cbStruct が想定されたサイズではない (Windows Server 2003 以降のリリース)。

  • インデックス ID を取得してからエンジンがシャットダウンされた。

  • そのインデックス ID に対応するインデックスを含むテーブルを参照しているカーソルがすべて閉じられ、エンジンがそのインデックスの定義をスキーマキャッシュから破棄した。

  • インデックス ID が、誤ったテーブルで開かれたカーソルと共に使用されている。

  • インデックスが削除されたか、まだそのセッションから参照できない。

JET_errInvalidName

指定されたオブジェクト名のいずれかが無効でした。すべてのオブジェクト名は同じ規則に従う必要があります。規則は次のとおりです。

  • オブジェクト名は ASCII 文字で構成されている必要があります。

  • オブジェクト名は 1 文字以上の長さである必要があります。

  • オブジェクト名の長さは JET_cbNameMost (64) 文字を超えることはできません。

  • オブジェクト名を空白で開始することはできません。

  • オブジェクト名に ASCII 制御文字 (0x00 から 0x1F) を含めることはできません。

  • オブジェクト名に感嘆符 (!)、ピリオド (.)、左角かっこ ([)、右角かっこ (]) の各文字を含めることはできません。

  • 検証後は、文字列のうち最初の空白 (存在する場合) までの部分のみがオブジェクト名として使用されます。これは実質的に、オブジェクト名に空白も含められないことを意味します。

JET_errInvalidParameter

指定されたパラメーターのいずれかに予期しない値が含まれていたか、別のパラメーターの値と組み合わせたときに意味をなさない値が含まれていました。JetSetCurrentIndex4 では、pindexid が NULL ではなく、かつ pindexid->cbStruct が想定されたサイズではない場合にこのエラーが発生することがあります (Windows XP 以前のリリース)。

JET_errNoCurrentRecord

JET_bitNoMove オプションを指定してセカンダリインデックスが選択されていますが、古いインデックス上のカーソルの現在位置にあるインデックスエントリに関連付けられたレコードに対応するインデックスエントリが、新しいインデックスにありません。

JET_errNotInitialized

そのセッションに関連付けられたインスタンスがまだ初期化されていないため、操作を完了できません。

JET_errOutOfCursors

エンジンが、カーソルを開くために使用するリソースのプールを使い果たしました。同時に開くことができるカーソルの最大数は JET_paramMaxCursors を使用して制御します。詳細については JetSetSystemParameter を参照してください。JetSetCurrentIndex4 では、セカンダリインデックスが選択されていて、エンジンがそのインデックスを使用するための内部カーソルを開けない場合にこのエラーが発生することがあります。

JET_errRestoreInProgress

そのセッションに関連付けられたインスタンスで復元操作が進行中のため、操作を完了できません。

JET_errSessionSharingViolation

同じセッションを同時に複数のスレッドで使用することはできません。

このエラーは Windows XP 以降のリリースでのみ返されます。

JET_errTermInProgress

そのセッションに関連付けられたインスタンスがシャットダウン中のため、操作を完了できません。

成功した場合、カーソルの現在のインデックスは要求されたインデックスに設定されます。以後、要求されたインデックスのインデックス定義に従って、JetSeek を使用してインデックスエントリを検索できます。また、そのインデックス定義で指定された順序で、JetMove を使用してインデックスエントリを列挙することもできます。カーソルの現在位置は、そのインデックスの最初のインデックスエントリ (JET_bitMoveFirst)、または古いインデックス上のカーソルの現在位置に関連する特定のインデックスエントリ (JET_bitNoMove) のいずれかに設定されます。データベースの状態は変更されません。

失敗した場合、カーソルの現在のインデックスおよび現在位置は未定義の状態になります。データベースの状態は変更されません。

解説

インデックス ID のヒントが古くなっている場合、この API は単純に失敗します。予想されるかもしれませんが、この場合にインデックスのテキスト名へフォールバックする処理は行われません。このフォールバックは API の呼び出し元が手動で行う必要があります。

要件

要件 値

クライアント

Windows Vista、Windows XP、または Windows 2000 Professional が必要です。

サーバー

Windows Server 2008、Windows Server 2003、または Windows 2000 Server が必要です。

ヘッダー

Esent.h で宣言されています。

ライブラリ

ESENT.lib を使用します。

DLL

ESENT.dll が必要です。

Unicode

JetSetCurrentIndex4W (Unicode) および JetSetCurrentIndex4A (ANSI) として実装されています。

関連項目

JET_ERR
JET_GRBIT
JET_SESID
JET_TABLEID
JET_INDEXID
JetCreateIndex
JetGetCurrentIndex
JetGetIndexInfo
JetGetTableIndexInfo
JetMove
JetSeek
JetSetSystemParameter

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

各言語での呼び出し定義

// ESENT.dll  (Unicode / -W)
#include <windows.h>

INT JetSetCurrentIndex4W(
    JET_SESID sesid,
    JET_TABLEID tableid,
    WORD* szIndexName,   // optional
    JET_INDEXID* pindexid,   // optional
    DWORD grbit,
    DWORD itagSequence
);
[DllImport("ESENT.dll", CharSet = CharSet.Unicode, ExactSpelling = true)]
static extern int JetSetCurrentIndex4W(
    UIntPtr sesid,   // JET_SESID
    UIntPtr tableid,   // JET_TABLEID
    IntPtr szIndexName,   // WORD* optional
    IntPtr pindexid,   // JET_INDEXID* optional
    uint grbit,   // DWORD
    uint itagSequence   // DWORD
);
<DllImport("ESENT.dll", CharSet:=CharSet.Unicode, ExactSpelling:=True)>
Public Shared Function JetSetCurrentIndex4W(
    sesid As UIntPtr,   ' JET_SESID
    tableid As UIntPtr,   ' JET_TABLEID
    szIndexName As IntPtr,   ' WORD* optional
    pindexid As IntPtr,   ' JET_INDEXID* optional
    grbit As UInteger,   ' DWORD
    itagSequence As UInteger   ' DWORD
) As Integer
End Function
' sesid : JET_SESID
' tableid : JET_TABLEID
' szIndexName : WORD* optional
' pindexid : JET_INDEXID* optional
' grbit : DWORD
' itagSequence : DWORD
Declare PtrSafe Function JetSetCurrentIndex4W Lib "esent" ( _
    ByVal sesid As LongPtr, _
    ByVal tableid As LongPtr, _
    ByVal szIndexName As LongPtr, _
    ByVal pindexid As LongPtr, _
    ByVal grbit As Long, _
    ByVal itagSequence As Long) As Long
' Unicode(W): 文字列は ByVal As LongPtr とし StrPtr(unicodeStr) を渡す
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

JetSetCurrentIndex4W = ctypes.windll.esent.JetSetCurrentIndex4W
JetSetCurrentIndex4W.restype = ctypes.c_int
JetSetCurrentIndex4W.argtypes = [
    ctypes.c_size_t,  # sesid : JET_SESID
    ctypes.c_size_t,  # tableid : JET_TABLEID
    ctypes.POINTER(ctypes.c_ushort),  # szIndexName : WORD* optional
    ctypes.c_void_p,  # pindexid : JET_INDEXID* optional
    wintypes.DWORD,  # grbit : DWORD
    wintypes.DWORD,  # itagSequence : DWORD
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('ESENT.dll')
JetSetCurrentIndex4W = Fiddle::Function.new(
  lib['JetSetCurrentIndex4W'],
  [
    Fiddle::TYPE_UINTPTR_T,  # sesid : JET_SESID
    Fiddle::TYPE_UINTPTR_T,  # tableid : JET_TABLEID
    Fiddle::TYPE_VOIDP,  # szIndexName : WORD* optional
    Fiddle::TYPE_VOIDP,  # pindexid : JET_INDEXID* optional
    -Fiddle::TYPE_INT,  # grbit : DWORD
    -Fiddle::TYPE_INT,  # itagSequence : DWORD
  ],
  Fiddle::TYPE_INT)
# Wide strings: pass str.encode("UTF-16LE") + "\x00\x00"
#[link(name = "esent")]
extern "system" {
    fn JetSetCurrentIndex4W(
        sesid: usize,  // JET_SESID
        tableid: usize,  // JET_TABLEID
        szIndexName: *mut u16,  // WORD* optional
        pindexid: *mut JET_INDEXID,  // JET_INDEXID* optional
        grbit: u32,  // DWORD
        itagSequence: u32  // DWORD
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[DllImport("ESENT.dll", CharSet = CharSet.Unicode)]
public static extern int JetSetCurrentIndex4W(UIntPtr sesid, UIntPtr tableid, IntPtr szIndexName, IntPtr pindexid, uint grbit, uint itagSequence);
"@
$api = Add-Type -MemberDefinition $sig -Name 'ESENT_JetSetCurrentIndex4W' -Namespace Win32 -PassThru
# $api::JetSetCurrentIndex4W(sesid, tableid, szIndexName, pindexid, grbit, itagSequence)
#uselib "ESENT.dll"
#func global JetSetCurrentIndex4W "JetSetCurrentIndex4W" wptr, wptr, wptr, wptr, wptr, wptr
; JetSetCurrentIndex4W sesid, tableid, varptr(szIndexName), varptr(pindexid), grbit, itagSequence   ; 戻り値は stat
; sesid : JET_SESID -> "wptr"
; tableid : JET_TABLEID -> "wptr"
; szIndexName : WORD* optional -> "wptr"
; pindexid : JET_INDEXID* optional -> "wptr"
; grbit : DWORD -> "wptr"
; itagSequence : DWORD -> "wptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "ESENT.dll"
#cfunc global JetSetCurrentIndex4W "JetSetCurrentIndex4W" sptr, sptr, var, var, int, int
; res = JetSetCurrentIndex4W(sesid, tableid, szIndexName, pindexid, grbit, itagSequence)
; sesid : JET_SESID -> "sptr"
; tableid : JET_TABLEID -> "sptr"
; szIndexName : WORD* optional -> "var"
; pindexid : JET_INDEXID* optional -> "var"
; grbit : DWORD -> "int"
; itagSequence : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; INT JetSetCurrentIndex4W(JET_SESID sesid, JET_TABLEID tableid, WORD* szIndexName, JET_INDEXID* pindexid, DWORD grbit, DWORD itagSequence)
#uselib "ESENT.dll"
#cfunc global JetSetCurrentIndex4W "JetSetCurrentIndex4W" intptr, intptr, var, var, int, int
; res = JetSetCurrentIndex4W(sesid, tableid, szIndexName, pindexid, grbit, itagSequence)
; sesid : JET_SESID -> "intptr"
; tableid : JET_TABLEID -> "intptr"
; szIndexName : WORD* optional -> "var"
; pindexid : JET_INDEXID* optional -> "var"
; grbit : DWORD -> "int"
; itagSequence : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	esent = windows.NewLazySystemDLL("ESENT.dll")
	procJetSetCurrentIndex4W = esent.NewProc("JetSetCurrentIndex4W")
)

// sesid (JET_SESID), tableid (JET_TABLEID), szIndexName (WORD* optional), pindexid (JET_INDEXID* optional), grbit (DWORD), itagSequence (DWORD)
r1, _, err := procJetSetCurrentIndex4W.Call(
	uintptr(sesid),
	uintptr(tableid),
	uintptr(szIndexName),
	uintptr(pindexid),
	uintptr(grbit),
	uintptr(itagSequence),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // INT
function JetSetCurrentIndex4W(
  sesid: NativeUInt;   // JET_SESID
  tableid: NativeUInt;   // JET_TABLEID
  szIndexName: Pointer;   // WORD* optional
  pindexid: Pointer;   // JET_INDEXID* optional
  grbit: DWORD;   // DWORD
  itagSequence: DWORD   // DWORD
): Integer; stdcall;
  external 'ESENT.dll' name 'JetSetCurrentIndex4W';
result := DllCall("ESENT\JetSetCurrentIndex4W"
    , "UPtr", sesid   ; JET_SESID
    , "UPtr", tableid   ; JET_TABLEID
    , "Ptr", szIndexName   ; WORD* optional
    , "Ptr", pindexid   ; JET_INDEXID* optional
    , "UInt", grbit   ; DWORD
    , "UInt", itagSequence   ; DWORD
    , "Int")   ; return: INT
●JetSetCurrentIndex4W(sesid, tableid, szIndexName, pindexid, grbit, itagSequence) = DLL("ESENT.dll", "int JetSetCurrentIndex4W(int, int, void*, void*, dword, dword)")
# 呼び出し: JetSetCurrentIndex4W(sesid, tableid, szIndexName, pindexid, grbit, itagSequence)
# sesid : JET_SESID -> "int"
# tableid : JET_TABLEID -> "int"
# szIndexName : WORD* optional -> "void*"
# pindexid : JET_INDEXID* optional -> "void*"
# grbit : DWORD -> "dword"
# itagSequence : DWORD -> "dword"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
# ※-W(Unicode)関数。なでしこ1はANSIのため -A 版の利用を推奨。
const std = @import("std");

extern "esent" fn JetSetCurrentIndex4W(
    sesid: usize, // JET_SESID
    tableid: usize, // JET_TABLEID
    szIndexName: [*c]u16, // WORD* optional
    pindexid: [*c]JET_INDEXID, // JET_INDEXID* optional
    grbit: u32, // DWORD
    itagSequence: u32 // DWORD
) callconv(std.os.windows.WINAPI) i32;
// Unicode(-W): UTF-16LE のヌル終端バッファ([*c]const u16)を渡す。
proc JetSetCurrentIndex4W(
    sesid: uint,  # JET_SESID
    tableid: uint,  # JET_TABLEID
    szIndexName: ptr uint16,  # WORD* optional
    pindexid: ptr JET_INDEXID,  # JET_INDEXID* optional
    grbit: uint32,  # DWORD
    itagSequence: uint32  # DWORD
): int32 {.importc: "JetSetCurrentIndex4W", stdcall, dynlib: "ESENT.dll".}
# Unicode(-W): WideCString は newWideCString("...") で生成。
pragma(lib, "esent");
extern(Windows)
int JetSetCurrentIndex4W(
    size_t sesid,   // JET_SESID
    size_t tableid,   // JET_TABLEID
    ushort* szIndexName,   // WORD* optional
    JET_INDEXID* pindexid,   // JET_INDEXID* optional
    uint grbit,   // DWORD
    uint itagSequence   // DWORD
);
ccall((:JetSetCurrentIndex4W, "ESENT.dll"), stdcall, Int32,
      (Csize_t, Csize_t, Ptr{UInt16}, Ptr{JET_INDEXID}, UInt32, UInt32),
      sesid, tableid, szIndexName, pindexid, grbit, itagSequence)
# sesid : JET_SESID -> Csize_t
# tableid : JET_TABLEID -> Csize_t
# szIndexName : WORD* optional -> Ptr{UInt16}
# pindexid : JET_INDEXID* optional -> Ptr{JET_INDEXID}
# grbit : DWORD -> UInt32
# itagSequence : DWORD -> UInt32
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
# Unicode(-W): Cwstring には transcode(UInt16, "...") 等で UTF-16 を渡す。
local ffi = require("ffi")
ffi.cdef[[
int32_t JetSetCurrentIndex4W(
    uintptr_t sesid,
    uintptr_t tableid,
    uint16_t* szIndexName,
    void* pindexid,
    uint32_t grbit,
    uint32_t itagSequence);
]]
local esent = ffi.load("esent")
-- esent.JetSetCurrentIndex4W(sesid, tableid, szIndexName, pindexid, grbit, itagSequence)
-- sesid : JET_SESID
-- tableid : JET_TABLEID
-- szIndexName : WORD* optional
-- pindexid : JET_INDEXID* optional
-- grbit : DWORD
-- itagSequence : DWORD
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
-- Unicode(-W): uint16_t* には UTF-16LE のバッファ(ffi.new("uint16_t[?]", ...))を渡す。
const koffi = require('koffi');
const lib = koffi.load('ESENT.dll');
const JetSetCurrentIndex4W = lib.func('__stdcall', 'JetSetCurrentIndex4W', 'int32_t', ['uintptr_t', 'uintptr_t', 'uint16_t *', 'void *', 'uint32_t', 'uint32_t']);
// JetSetCurrentIndex4W(sesid, tableid, szIndexName, pindexid, grbit, itagSequence)
// sesid : JET_SESID -> 'uintptr_t'
// tableid : JET_TABLEID -> 'uintptr_t'
// szIndexName : WORD* optional -> 'uint16_t *'
// pindexid : JET_INDEXID* optional -> 'void *'
// grbit : DWORD -> 'uint32_t'
// itagSequence : DWORD -> 'uint32_t'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("ESENT.dll", {
  JetSetCurrentIndex4W: { parameters: ["usize", "usize", "pointer", "pointer", "u32", "u32"], result: "i32" },
});
// lib.symbols.JetSetCurrentIndex4W(sesid, tableid, szIndexName, pindexid, grbit, itagSequence)
// sesid : JET_SESID -> "usize"
// tableid : JET_TABLEID -> "usize"
// szIndexName : WORD* optional -> "pointer"
// pindexid : JET_INDEXID* optional -> "pointer"
// grbit : DWORD -> "u32"
// itagSequence : DWORD -> "u32"
// 文字列は "buffer"。Unicode(-W) は new TextEncoder() ではなく UTF-16LE のバイト列(末尾に \x00\x00)を Uint8Array で渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
int32_t JetSetCurrentIndex4W(
    size_t sesid,
    size_t tableid,
    uint16_t* szIndexName,
    void* pindexid,
    uint32_t grbit,
    uint32_t itagSequence);
C, "ESENT.dll");
// $ffi->JetSetCurrentIndex4W(sesid, tableid, szIndexName, pindexid, grbit, itagSequence);
// sesid : JET_SESID
// tableid : JET_TABLEID
// szIndexName : WORD* optional
// pindexid : JET_INDEXID* optional
// grbit : DWORD
// itagSequence : 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 Esent extends StdCallLibrary {
    Esent INSTANCE = Native.load("esent", Esent.class, W32APIOptions.UNICODE_OPTIONS);
    int JetSetCurrentIndex4W(
        long sesid,   // JET_SESID
        long tableid,   // JET_TABLEID
        ShortByReference szIndexName,   // WORD* optional
        Pointer pindexid,   // JET_INDEXID* optional
        int grbit,   // DWORD
        int itagSequence   // DWORD
    );
}
// Unicode(-W): WString(入力)/char[](出力)で UTF-16 をマーシャリング。
@[Link("esent")]
lib LibESENT
  fun JetSetCurrentIndex4W = JetSetCurrentIndex4W(
    sesid : LibC::SizeT,   # JET_SESID
    tableid : LibC::SizeT,   # JET_TABLEID
    szIndexName : UInt16*,   # WORD* optional
    pindexid : JET_INDEXID*,   # JET_INDEXID* optional
    grbit : UInt32,   # DWORD
    itagSequence : 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 JetSetCurrentIndex4WNative = Int32 Function(UintPtr, UintPtr, Pointer<Uint16>, Pointer<Void>, Uint32, Uint32);
typedef JetSetCurrentIndex4WDart = int Function(int, int, Pointer<Uint16>, Pointer<Void>, int, int);
final JetSetCurrentIndex4W = DynamicLibrary.open('ESENT.dll')
    .lookupFunction<JetSetCurrentIndex4WNative, JetSetCurrentIndex4WDart>('JetSetCurrentIndex4W');
// sesid : JET_SESID -> UintPtr
// tableid : JET_TABLEID -> UintPtr
// szIndexName : WORD* optional -> Pointer<Uint16>
// pindexid : JET_INDEXID* optional -> Pointer<Void>
// grbit : DWORD -> Uint32
// itagSequence : DWORD -> Uint32
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function JetSetCurrentIndex4W(
  sesid: NativeUInt;   // JET_SESID
  tableid: NativeUInt;   // JET_TABLEID
  szIndexName: Pointer;   // WORD* optional
  pindexid: Pointer;   // JET_INDEXID* optional
  grbit: DWORD;   // DWORD
  itagSequence: DWORD   // DWORD
): Integer; stdcall;
  external 'ESENT.dll' name 'JetSetCurrentIndex4W';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "JetSetCurrentIndex4W"
  c_JetSetCurrentIndex4W :: CUIntPtr -> CUIntPtr -> Ptr Word16 -> Ptr () -> Word32 -> Word32 -> IO Int32
-- sesid : JET_SESID -> CUIntPtr
-- tableid : JET_TABLEID -> CUIntPtr
-- szIndexName : WORD* optional -> Ptr Word16
-- pindexid : JET_INDEXID* optional -> Ptr ()
-- grbit : DWORD -> Word32
-- itagSequence : DWORD -> Word32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let jetsetcurrentindex4w =
  foreign "JetSetCurrentIndex4W"
    (size_t @-> size_t @-> (ptr uint16_t) @-> (ptr void) @-> uint32_t @-> uint32_t @-> returning int32_t)
(* sesid : JET_SESID -> size_t *)
(* tableid : JET_TABLEID -> size_t *)
(* szIndexName : WORD* optional -> (ptr uint16_t) *)
(* pindexid : JET_INDEXID* optional -> (ptr void) *)
(* grbit : DWORD -> uint32_t *)
(* itagSequence : DWORD -> uint32_t *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library esent (t "ESENT.dll"))
(cffi:use-foreign-library esent)

(cffi:defcfun ("JetSetCurrentIndex4W" jet-set-current-index4-w :convention :stdcall) :int32
  (sesid :uint64)   ; JET_SESID
  (tableid :uint64)   ; JET_TABLEID
  (sz-index-name :pointer)   ; WORD* optional
  (pindexid :pointer)   ; JET_INDEXID* optional
  (grbit :uint32)   ; DWORD
  (itag-sequence :uint32))   ; DWORD
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $JetSetCurrentIndex4W = Win32::API::More->new('ESENT',
    'int JetSetCurrentIndex4W(WPARAM sesid, WPARAM tableid, LPVOID szIndexName, LPVOID pindexid, DWORD grbit, DWORD itagSequence)');
# my $ret = $JetSetCurrentIndex4W->Call($sesid, $tableid, $szIndexName, $pindexid, $grbit, $itagSequence);
# sesid : JET_SESID -> WPARAM
# tableid : JET_TABLEID -> WPARAM
# szIndexName : WORD* optional -> LPVOID
# pindexid : JET_INDEXID* optional -> LPVOID
# grbit : DWORD -> DWORD
# itagSequence : DWORD -> DWORD
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。
# Unicode(-W): LPCWSTR/LPWSTR は Win32::API が UTF-16 変換を行う。

関連項目

文字セット違い
類似 API
使用する型