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

JetDefragment2W

関数
コールバック付きでオンライン最適化を実行する(Unicode版)。
DLLESENT.dll文字セットUnicode (-W)呼出規約winapi

シグネチャ

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

INT JetDefragment2W(
    JET_SESID sesid,
    DWORD dbid,
    WORD* szTableName,   // optional
    DWORD* pcPasses,   // optional
    DWORD* pcSeconds,   // optional
    JET_CALLBACK callback,
    DWORD grbit
);

パラメーター

名前型方向説明
sesidJET_SESIDinオンライン最適化を行うセッションのJET_SESIDハンドル。
dbidDWORDin最適化対象のデータベースを識別するデータベースID(JET_DBID)。
szTableNameWORD*inoptional最適化対象テーブル名を指す終端付きUnicode文字列ポインタ。NULLで全テーブル対象となる。
pcPassesDWORD*inoutoptional最大パス数を入出力で受け渡すポインタ。完了時に実行済み回数が返る。NULL可。
pcSecondsDWORD*inoutoptional最大秒数を入出力で受け渡すポインタ。完了時に経過秒数が返る。NULL可。
callbackJET_CALLBACKin最適化の完了通知を受け取るコールバック関数(JET_CALLBACK)。NULL可。
grbitDWORDin最適化動作を制御するビットフラグ。バッチ開始/停止などを指定する。

戻り値の型: INT

公式ドキュメント

JetDefragment2 関数は、データベース内のデータ構成を改善するデータベースのデフラグタスクを開始および停止します。デフラグの進行状況を報告するためのコールバックパラメーターを指定できます。これは、データベース内の既存のディスク割り当てをより効率的に使用することで、データベースの増大を抑えるために行われます。また、データをより緊密に配置することでワーキングセットを削減することもできます。さらに、データ構成の改善によって一般的な操作が高速化され、アプリケーションのパフォーマンスを向上させることができます。

戻り値

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

リターンコード

説明

JET_errSuccess

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

JET_errClientRequestToStopJetService

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

JET_errDatabaseFileReadOnly

デフラグ対象として選択されたデータベースは読み取り専用であり、デフラグを含め、いかなる方法でも更新できません。

JET_errDistributedTransactionAlreadyPreparedToCommit

指定されたセッションはコミット準備完了状態にあり、現在のトランザクションがコミットまたはロールバックされるまで、新しい更新を開始できません。

JET_errInstanceUnavailable

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

JET_errInvalidDatabaseId

指定されたデータベース ID は、インスタンス内の既知のデータベースと一致しません。

JET_errNotInitialized

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

JET_errRestoreInProgress

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

JET_errSessionSharingViolation

同じセッションを複数のスレッドで同時に使用することはできません。このエラーは Windows XP 以降のリリースでのみ返されます。

JET_errTermInProgress

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

JET_errTransReadOnly

指定されたセッションは読み取り専用の特権しか持たないため、デフラグを含め、更新を行う可能性のあるタスクを開始できません。

JET_errVersionStoreOutOfMemory

構成されたバージョンストアのサイズが、未処理のすべての更新を保持するには不十分な場合に、このエラーが発生します。

JET_wrnDefragAlreadyRunning

JET_bitDefragmentBatchStart オプションが渡されましたが、指定されたデータベースでは既にデフラグタスクがデフラグを実行しています。

JET_wrnDefragNotRunning

JET_bitDefragmentBatchStop オプションが渡されましたが、現在実行中のデフラグタスクはありません。

成功した場合は、指定されたデータに対して指定されたオプションでデフラグタスクを開始する、または既存のデフラグタスクを停止するという、要求されたアクションが実行されます。

失敗した場合は、オンラインデフラグジョブを開始または停止するという、要求されたアクションは実行されません。他の副作用は発生しません。

解説

オンラインデフラグは、パラメーター設定とこの API の両方によって制御されます。既定のシステムパラメーター値は JET_OnlineDefragAll であり、サポートされるすべてのデータ構造でデフラグが有効であることを意味します。ただし、JetSetSystemParameter を使用すると、オンラインデフラグを無効にしたり、データベースの空き領域ツリーのみ、データベースのみ、ストリーミングファイルのみ、またはこれらの任意の組み合わせに対して選択的に有効にしたりできます。オンラインデフラグのシステム設定が廃止された設定になっている場合、JetDefragment2 はその設定を JET_OnlineDefragAll として扱います。

各データベースに対して実行できるタスクは、最大で 1 つです。このタスクは、ESE をホストするプロセス内のスレッドとして実行されます。

オンラインデフラグタスクの開始に使用したセッションは、デフラグタスクの継続中も、その後のデータベース操作に使用できます。これは、デフラグタスクが独自のセッションを割り当てるためです。指定されたセッションは、タスクを開始したセッションに関連付けられたアクセス許可を確認するためにのみ使用され、デフラグ操作そのものには実際には使用されません。

要件

要件 値

クライアント

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

サーバー

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

ヘッダー

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

ライブラリ

ESENT.lib を使用します。

DLL

ESENT.dll が必要です。

Unicode

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

関連項目

JET_ERR
JET_SESID
JetCompact
JetDefragment
JetSetSystemParameter
JetStopService

出典・ライセンス: 上記「公式ドキュメント」の内容は 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 JetDefragment2W(
    JET_SESID sesid,
    DWORD dbid,
    WORD* szTableName,   // optional
    DWORD* pcPasses,   // optional
    DWORD* pcSeconds,   // optional
    JET_CALLBACK callback,
    DWORD grbit
);
[DllImport("ESENT.dll", CharSet = CharSet.Unicode, ExactSpelling = true)]
static extern int JetDefragment2W(
    UIntPtr sesid,   // JET_SESID
    uint dbid,   // DWORD
    IntPtr szTableName,   // WORD* optional
    IntPtr pcPasses,   // DWORD* optional, in/out
    IntPtr pcSeconds,   // DWORD* optional, in/out
    IntPtr callback,   // JET_CALLBACK
    uint grbit   // DWORD
);
<DllImport("ESENT.dll", CharSet:=CharSet.Unicode, ExactSpelling:=True)>
Public Shared Function JetDefragment2W(
    sesid As UIntPtr,   ' JET_SESID
    dbid As UInteger,   ' DWORD
    szTableName As IntPtr,   ' WORD* optional
    pcPasses As IntPtr,   ' DWORD* optional, in/out
    pcSeconds As IntPtr,   ' DWORD* optional, in/out
    callback As IntPtr,   ' JET_CALLBACK
    grbit As UInteger   ' DWORD
) As Integer
End Function
' sesid : JET_SESID
' dbid : DWORD
' szTableName : WORD* optional
' pcPasses : DWORD* optional, in/out
' pcSeconds : DWORD* optional, in/out
' callback : JET_CALLBACK
' grbit : DWORD
Declare PtrSafe Function JetDefragment2W Lib "esent" ( _
    ByVal sesid As LongPtr, _
    ByVal dbid As Long, _
    ByVal szTableName As LongPtr, _
    ByVal pcPasses As LongPtr, _
    ByVal pcSeconds As LongPtr, _
    ByVal callback As LongPtr, _
    ByVal grbit 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

JetDefragment2W = ctypes.windll.esent.JetDefragment2W
JetDefragment2W.restype = ctypes.c_int
JetDefragment2W.argtypes = [
    ctypes.c_size_t,  # sesid : JET_SESID
    wintypes.DWORD,  # dbid : DWORD
    ctypes.POINTER(ctypes.c_ushort),  # szTableName : WORD* optional
    ctypes.POINTER(wintypes.DWORD),  # pcPasses : DWORD* optional, in/out
    ctypes.POINTER(wintypes.DWORD),  # pcSeconds : DWORD* optional, in/out
    ctypes.c_void_p,  # callback : JET_CALLBACK
    wintypes.DWORD,  # grbit : DWORD
]
require 'fiddle'
require 'fiddle/import'

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

var (
	esent = windows.NewLazySystemDLL("ESENT.dll")
	procJetDefragment2W = esent.NewProc("JetDefragment2W")
)

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

extern "esent" fn JetDefragment2W(
    sesid: usize, // JET_SESID
    dbid: u32, // DWORD
    szTableName: [*c]u16, // WORD* optional
    pcPasses: [*c]u32, // DWORD* optional, in/out
    pcSeconds: [*c]u32, // DWORD* optional, in/out
    callback: ?*anyopaque, // JET_CALLBACK
    grbit: u32 // DWORD
) callconv(std.os.windows.WINAPI) i32;
// Unicode(-W): UTF-16LE のヌル終端バッファ([*c]const u16)を渡す。
proc JetDefragment2W(
    sesid: uint,  # JET_SESID
    dbid: uint32,  # DWORD
    szTableName: ptr uint16,  # WORD* optional
    pcPasses: ptr uint32,  # DWORD* optional, in/out
    pcSeconds: ptr uint32,  # DWORD* optional, in/out
    callback: pointer,  # JET_CALLBACK
    grbit: uint32  # DWORD
): int32 {.importc: "JetDefragment2W", stdcall, dynlib: "ESENT.dll".}
# Unicode(-W): WideCString は newWideCString("...") で生成。
pragma(lib, "esent");
extern(Windows)
int JetDefragment2W(
    size_t sesid,   // JET_SESID
    uint dbid,   // DWORD
    ushort* szTableName,   // WORD* optional
    uint* pcPasses,   // DWORD* optional, in/out
    uint* pcSeconds,   // DWORD* optional, in/out
    void* callback,   // JET_CALLBACK
    uint grbit   // DWORD
);
ccall((:JetDefragment2W, "ESENT.dll"), stdcall, Int32,
      (Csize_t, UInt32, Ptr{UInt16}, Ptr{UInt32}, Ptr{UInt32}, Ptr{Cvoid}, UInt32),
      sesid, dbid, szTableName, pcPasses, pcSeconds, callback, grbit)
# sesid : JET_SESID -> Csize_t
# dbid : DWORD -> UInt32
# szTableName : WORD* optional -> Ptr{UInt16}
# pcPasses : DWORD* optional, in/out -> Ptr{UInt32}
# pcSeconds : DWORD* optional, in/out -> Ptr{UInt32}
# callback : JET_CALLBACK -> Ptr{Cvoid}
# grbit : DWORD -> UInt32
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
# Unicode(-W): Cwstring には transcode(UInt16, "...") 等で UTF-16 を渡す。
local ffi = require("ffi")
ffi.cdef[[
int32_t JetDefragment2W(
    uintptr_t sesid,
    uint32_t dbid,
    uint16_t* szTableName,
    uint32_t* pcPasses,
    uint32_t* pcSeconds,
    void* callback,
    uint32_t grbit);
]]
local esent = ffi.load("esent")
-- esent.JetDefragment2W(sesid, dbid, szTableName, pcPasses, pcSeconds, callback, grbit)
-- sesid : JET_SESID
-- dbid : DWORD
-- szTableName : WORD* optional
-- pcPasses : DWORD* optional, in/out
-- pcSeconds : DWORD* optional, in/out
-- callback : JET_CALLBACK
-- grbit : 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 JetDefragment2W = lib.func('__stdcall', 'JetDefragment2W', 'int32_t', ['uintptr_t', 'uint32_t', 'uint16_t *', 'uint32_t *', 'uint32_t *', 'void *', 'uint32_t']);
// JetDefragment2W(sesid, dbid, szTableName, pcPasses, pcSeconds, callback, grbit)
// sesid : JET_SESID -> 'uintptr_t'
// dbid : DWORD -> 'uint32_t'
// szTableName : WORD* optional -> 'uint16_t *'
// pcPasses : DWORD* optional, in/out -> 'uint32_t *'
// pcSeconds : DWORD* optional, in/out -> 'uint32_t *'
// callback : JET_CALLBACK -> 'void *'
// grbit : DWORD -> 'uint32_t'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
// コールバック(関数ポインタ)は koffi.proto/koffi.register で型を定義して渡す(素の void* では JS 関数を渡せない)。
const lib = Deno.dlopen("ESENT.dll", {
  JetDefragment2W: { parameters: ["usize", "u32", "pointer", "pointer", "pointer", "pointer", "u32"], result: "i32" },
});
// lib.symbols.JetDefragment2W(sesid, dbid, szTableName, pcPasses, pcSeconds, callback, grbit)
// sesid : JET_SESID -> "usize"
// dbid : DWORD -> "u32"
// szTableName : WORD* optional -> "pointer"
// pcPasses : DWORD* optional, in/out -> "pointer"
// pcSeconds : DWORD* optional, in/out -> "pointer"
// callback : JET_CALLBACK -> "pointer"
// grbit : DWORD -> "u32"
// 文字列は "buffer"。Unicode(-W) は new TextEncoder() ではなく UTF-16LE のバイト列(末尾に \x00\x00)を Uint8Array で渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
int32_t JetDefragment2W(
    size_t sesid,
    uint32_t dbid,
    uint16_t* szTableName,
    uint32_t* pcPasses,
    uint32_t* pcSeconds,
    void* callback,
    uint32_t grbit);
C, "ESENT.dll");
// $ffi->JetDefragment2W(sesid, dbid, szTableName, pcPasses, pcSeconds, callback, grbit);
// sesid : JET_SESID
// dbid : DWORD
// szTableName : WORD* optional
// pcPasses : DWORD* optional, in/out
// pcSeconds : DWORD* optional, in/out
// callback : JET_CALLBACK
// grbit : 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 JetDefragment2W(
        long sesid,   // JET_SESID
        int dbid,   // DWORD
        ShortByReference szTableName,   // WORD* optional
        IntByReference pcPasses,   // DWORD* optional, in/out
        IntByReference pcSeconds,   // DWORD* optional, in/out
        Callback callback,   // JET_CALLBACK
        int grbit   // DWORD
    );
}
// Unicode(-W): WString(入力)/char[](出力)で UTF-16 をマーシャリング。
@[Link("esent")]
lib LibESENT
  fun JetDefragment2W = JetDefragment2W(
    sesid : LibC::SizeT,   # JET_SESID
    dbid : UInt32,   # DWORD
    szTableName : UInt16*,   # WORD* optional
    pcPasses : UInt32*,   # DWORD* optional, in/out
    pcSeconds : UInt32*,   # DWORD* optional, in/out
    callback : Void*,   # JET_CALLBACK
    grbit : 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 JetDefragment2WNative = Int32 Function(UintPtr, Uint32, Pointer<Uint16>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Void>, Uint32);
typedef JetDefragment2WDart = int Function(int, int, Pointer<Uint16>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Void>, int);
final JetDefragment2W = DynamicLibrary.open('ESENT.dll')
    .lookupFunction<JetDefragment2WNative, JetDefragment2WDart>('JetDefragment2W');
// sesid : JET_SESID -> UintPtr
// dbid : DWORD -> Uint32
// szTableName : WORD* optional -> Pointer<Uint16>
// pcPasses : DWORD* optional, in/out -> Pointer<Uint32>
// pcSeconds : DWORD* optional, in/out -> Pointer<Uint32>
// callback : JET_CALLBACK -> Pointer<Void>
// grbit : DWORD -> Uint32
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function JetDefragment2W(
  sesid: NativeUInt;   // JET_SESID
  dbid: DWORD;   // DWORD
  szTableName: Pointer;   // WORD* optional
  pcPasses: Pointer;   // DWORD* optional, in/out
  pcSeconds: Pointer;   // DWORD* optional, in/out
  callback: Pointer;   // JET_CALLBACK
  grbit: DWORD   // DWORD
): Integer; stdcall;
  external 'ESENT.dll' name 'JetDefragment2W';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "JetDefragment2W"
  c_JetDefragment2W :: CUIntPtr -> Word32 -> Ptr Word16 -> Ptr Word32 -> Ptr Word32 -> Ptr () -> Word32 -> IO Int32
-- sesid : JET_SESID -> CUIntPtr
-- dbid : DWORD -> Word32
-- szTableName : WORD* optional -> Ptr Word16
-- pcPasses : DWORD* optional, in/out -> Ptr Word32
-- pcSeconds : DWORD* optional, in/out -> Ptr Word32
-- callback : JET_CALLBACK -> Ptr ()
-- grbit : DWORD -> Word32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let jetdefragment2w =
  foreign "JetDefragment2W"
    (size_t @-> uint32_t @-> (ptr uint16_t) @-> (ptr uint32_t) @-> (ptr uint32_t) @-> (ptr void) @-> uint32_t @-> returning int32_t)
(* sesid : JET_SESID -> size_t *)
(* dbid : DWORD -> uint32_t *)
(* szTableName : WORD* optional -> (ptr uint16_t) *)
(* pcPasses : DWORD* optional, in/out -> (ptr uint32_t) *)
(* pcSeconds : DWORD* optional, in/out -> (ptr uint32_t) *)
(* callback : JET_CALLBACK -> (ptr void) *)
(* grbit : 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 ("JetDefragment2W" jet-defragment2-w :convention :stdcall) :int32
  (sesid :uint64)   ; JET_SESID
  (dbid :uint32)   ; DWORD
  (sz-table-name :pointer)   ; WORD* optional
  (pc-passes :pointer)   ; DWORD* optional, in/out
  (pc-seconds :pointer)   ; DWORD* optional, in/out
  (callback :pointer)   ; JET_CALLBACK
  (grbit :uint32))   ; DWORD
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $JetDefragment2W = Win32::API::More->new('ESENT',
    'int JetDefragment2W(WPARAM sesid, DWORD dbid, LPVOID szTableName, LPVOID pcPasses, LPVOID pcSeconds, LPVOID callback, DWORD grbit)');
# my $ret = $JetDefragment2W->Call($sesid, $dbid, $szTableName, $pcPasses, $pcSeconds, $callback, $grbit);
# sesid : JET_SESID -> WPARAM
# dbid : DWORD -> DWORD
# szTableName : WORD* optional -> LPVOID
# pcPasses : DWORD* optional, in/out -> LPVOID
# pcSeconds : DWORD* optional, in/out -> LPVOID
# callback : JET_CALLBACK -> LPVOID
# grbit : DWORD -> DWORD
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。
# コールバック(関数ポインタ)は Perl sub を直接渡せません。Win32::API::Callback を使用してください。
# Unicode(-W): LPCWSTR/LPWSTR は Win32::API が UTF-16 変換を行う。

関連項目

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