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

JetCompactW

関数
データベースを圧縮して再構築する(Unicode版)。
DLLESENT.dll文字セットUnicode (-W)呼出規約winapi

シグネチャ

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

INT JetCompactW(
    JET_SESID sesid,
    WORD* szDatabaseSrc,
    WORD* szDatabaseDest,
    JET_PFNSTATUS pfnStatus,
    JET_CONVERT_W* pconvert,   // optional
    DWORD grbit
);

パラメーター

名前型方向説明
sesidJET_SESIDin圧縮を行うセッションのJET_SESIDハンドル。
szDatabaseSrcWORD*in圧縮元データベースファイルのパスを指す終端付きUnicode文字列ポインタ。
szDatabaseDestWORD*in圧縮先(出力)データベースファイルのパスを指す終端付きUnicode文字列ポインタ。
pfnStatusJET_PFNSTATUSin進捗通知を受け取るステータスコールバック関数(JET_PFNSTATUS)。NULL可。
pconvertJET_CONVERT_W*inoptional予約済みの変換オプション構造体ポインタ(JET_CONVERT_W)。NULLを指定する。
grbitDWORDin圧縮動作を制御するビットフラグ。統計出力などを指定する。

戻り値の型: INT

公式ドキュメント

JetCompact 関数は、既存のデータベースのコピーを作成します。コピーは、使用に最適な状態に圧縮されます。コピーされたデータは、インデックス作成時にそのインデックスに対して選択された指標に従ってパックされます。この方法により、圧縮されたデータを可能な限り高密度に格納できます。あるいは、圧縮されたデータが、後続のレコードの増加やインデックスの挿入に備えて領域を予約することもできます。

戻り値

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

戻りコード

説明

JET_errSuccess

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

JET_errClientRequestToStopJetService

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

JET_errFeatureNotAvailable

NULL 以外の pconvert ポインターが指定されましたが、使用している ESE のバージョンは変換機能をサポートしていません。この機能は、Windows Server 2003 バージョンの ESE で削除されました。

JET_errInstanceUnavailable

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

JET_errInTransaction

呼び出し元のセッションはトランザクション内にあります。JetCompact は、トランザクションの外部にあるセッションから呼び出す必要があります。

JET_errNotInitialized

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

JET_errRestoreInProgress

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

JET_errSessionSharingViolation

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

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

JET_errTermInProgress

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

成功した場合、コピー元のデータベースはコピー先のデータベースにコピーされます。コピー先のデータベースは最適な状態にあり、たとえば、すべてのテーブルインデックスが論理ディスク領域上で隣接して配置されます。各インデックスページは、コピー元のデータベースでインデックスが最初に作成されたときに構成された量までパディングされます。repair オプションが指定されていない限り、すべてのデータとメタデータの設定は完全に忠実にコピーされます。repair オプションが指定された場合は、コピー元のデータベースの一部のデータがコピーされないことがあります。

失敗した場合、コピー先のデータベースは存在することがありますが、コピー元のデータベースの完全なコピーではありません。

解説

データベースの圧縮は、以前のバージョンの形式のデータベースを、より新しいバージョンにアップグレードするためにも使用されます。省略可能なパラメーターとして pconvert があり、これはコピー元のデータベース形式を読み取るために使用する以前のバージョンの DLL の記述を保持できる構造体を含みます。この機能は Windows Server 2003 で廃止されました。Windows Server 2003 以降、新しいバージョンの ESE は常に古いバージョンのデータベース形式を読み取ることができるため、この機能は必要ありません。

圧縮操作後の目的のデータ密度は、テーブルおよびインデックスの作成時に指定します。密度は 20% から 100% の間である必要があります。データベースが主に読み取られ、更新されない場合、アプリケーションはクエリ処理中の I/O 操作の数を減らすために密度を 100% に設定します。一方、レコードと共に格納されるデータのサイズが増える操作でデータが頻繁に更新される場合や、新しいデータが頻繁に挿入される場合は、更新時に必要なリソースをより多くの場合に確保できるよう、アプリケーションはより低い密度を選択します。データベースの圧縮操作により、データベースはアプリケーションが選択した充填率に従って理想的に配置されます。

データベースの圧縮はオフライン操作です。データベースの使用中には実行できません。そのため、通常は、データセットを自身の一部として提供するアプリケーションを開発するビルドプロセスの一環として行われます。

オフラインのデータベース圧縮はデータベース内のすべてのデータに触れるため、データベースの整合性を確認する手段として使用できます。データベースに問題がある疑いがある場合は、圧縮を実行できます。圧縮によってエラーが検出されなければ、そのデータベースが ESE にとって有効な状態であることがわかります。

要件

要件 値

クライアント

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

サーバー

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

ヘッダー

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

ライブラリ

ESENT.lib を使用します。

DLL

ESENT.dll が必要です。

Unicode

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

関連項目

JET_COLTYP
JET_ERR
JET_SESID
JetDefragment
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 JetCompactW(
    JET_SESID sesid,
    WORD* szDatabaseSrc,
    WORD* szDatabaseDest,
    JET_PFNSTATUS pfnStatus,
    JET_CONVERT_W* pconvert,   // optional
    DWORD grbit
);
[DllImport("ESENT.dll", CharSet = CharSet.Unicode, ExactSpelling = true)]
static extern int JetCompactW(
    UIntPtr sesid,   // JET_SESID
    ref ushort szDatabaseSrc,   // WORD*
    ref ushort szDatabaseDest,   // WORD*
    IntPtr pfnStatus,   // JET_PFNSTATUS
    IntPtr pconvert,   // JET_CONVERT_W* optional
    uint grbit   // DWORD
);
<DllImport("ESENT.dll", CharSet:=CharSet.Unicode, ExactSpelling:=True)>
Public Shared Function JetCompactW(
    sesid As UIntPtr,   ' JET_SESID
    ByRef szDatabaseSrc As UShort,   ' WORD*
    ByRef szDatabaseDest As UShort,   ' WORD*
    pfnStatus As IntPtr,   ' JET_PFNSTATUS
    pconvert As IntPtr,   ' JET_CONVERT_W* optional
    grbit As UInteger   ' DWORD
) As Integer
End Function
' sesid : JET_SESID
' szDatabaseSrc : WORD*
' szDatabaseDest : WORD*
' pfnStatus : JET_PFNSTATUS
' pconvert : JET_CONVERT_W* optional
' grbit : DWORD
Declare PtrSafe Function JetCompactW Lib "esent" ( _
    ByVal sesid As LongPtr, _
    ByRef szDatabaseSrc As Integer, _
    ByRef szDatabaseDest As Integer, _
    ByVal pfnStatus As LongPtr, _
    ByVal pconvert 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

JetCompactW = ctypes.windll.esent.JetCompactW
JetCompactW.restype = ctypes.c_int
JetCompactW.argtypes = [
    ctypes.c_size_t,  # sesid : JET_SESID
    ctypes.POINTER(ctypes.c_ushort),  # szDatabaseSrc : WORD*
    ctypes.POINTER(ctypes.c_ushort),  # szDatabaseDest : WORD*
    ctypes.c_void_p,  # pfnStatus : JET_PFNSTATUS
    ctypes.c_void_p,  # pconvert : JET_CONVERT_W* optional
    wintypes.DWORD,  # grbit : DWORD
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('ESENT.dll')
JetCompactW = Fiddle::Function.new(
  lib['JetCompactW'],
  [
    Fiddle::TYPE_UINTPTR_T,  # sesid : JET_SESID
    Fiddle::TYPE_VOIDP,  # szDatabaseSrc : WORD*
    Fiddle::TYPE_VOIDP,  # szDatabaseDest : WORD*
    Fiddle::TYPE_VOIDP,  # pfnStatus : JET_PFNSTATUS
    Fiddle::TYPE_VOIDP,  # pconvert : JET_CONVERT_W* optional
    -Fiddle::TYPE_INT,  # grbit : DWORD
  ],
  Fiddle::TYPE_INT)
# Wide strings: pass str.encode("UTF-16LE") + "\x00\x00"
#[link(name = "esent")]
extern "system" {
    fn JetCompactW(
        sesid: usize,  // JET_SESID
        szDatabaseSrc: *mut u16,  // WORD*
        szDatabaseDest: *mut u16,  // WORD*
        pfnStatus: *const core::ffi::c_void,  // JET_PFNSTATUS
        pconvert: *mut JET_CONVERT_W,  // JET_CONVERT_W* optional
        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 JetCompactW(UIntPtr sesid, ref ushort szDatabaseSrc, ref ushort szDatabaseDest, IntPtr pfnStatus, IntPtr pconvert, uint grbit);
"@
$api = Add-Type -MemberDefinition $sig -Name 'ESENT_JetCompactW' -Namespace Win32 -PassThru
# $api::JetCompactW(sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit)
#uselib "ESENT.dll"
#func global JetCompactW "JetCompactW" wptr, wptr, wptr, wptr, wptr, wptr
; JetCompactW sesid, varptr(szDatabaseSrc), varptr(szDatabaseDest), pfnStatus, varptr(pconvert), grbit   ; 戻り値は stat
; sesid : JET_SESID -> "wptr"
; szDatabaseSrc : WORD* -> "wptr"
; szDatabaseDest : WORD* -> "wptr"
; pfnStatus : JET_PFNSTATUS -> "wptr"
; pconvert : JET_CONVERT_W* optional -> "wptr"
; grbit : DWORD -> "wptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "ESENT.dll"
#cfunc global JetCompactW "JetCompactW" sptr, var, var, sptr, var, int
; res = JetCompactW(sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit)
; sesid : JET_SESID -> "sptr"
; szDatabaseSrc : WORD* -> "var"
; szDatabaseDest : WORD* -> "var"
; pfnStatus : JET_PFNSTATUS -> "sptr"
; pconvert : JET_CONVERT_W* optional -> "var"
; grbit : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; INT JetCompactW(JET_SESID sesid, WORD* szDatabaseSrc, WORD* szDatabaseDest, JET_PFNSTATUS pfnStatus, JET_CONVERT_W* pconvert, DWORD grbit)
#uselib "ESENT.dll"
#cfunc global JetCompactW "JetCompactW" intptr, var, var, intptr, var, int
; res = JetCompactW(sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit)
; sesid : JET_SESID -> "intptr"
; szDatabaseSrc : WORD* -> "var"
; szDatabaseDest : WORD* -> "var"
; pfnStatus : JET_PFNSTATUS -> "intptr"
; pconvert : JET_CONVERT_W* optional -> "var"
; grbit : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	esent = windows.NewLazySystemDLL("ESENT.dll")
	procJetCompactW = esent.NewProc("JetCompactW")
)

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

foreign import stdcall safe "JetCompactW"
  c_JetCompactW :: CUIntPtr -> Ptr Word16 -> Ptr Word16 -> Ptr () -> Ptr () -> Word32 -> IO Int32
-- sesid : JET_SESID -> CUIntPtr
-- szDatabaseSrc : WORD* -> Ptr Word16
-- szDatabaseDest : WORD* -> Ptr Word16
-- pfnStatus : JET_PFNSTATUS -> Ptr ()
-- pconvert : JET_CONVERT_W* optional -> Ptr ()
-- grbit : DWORD -> Word32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

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

関連項目

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