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

JetCompactA

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

シグネチャ

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

INT JetCompactA(
    JET_SESID sesid,
    CHAR* szDatabaseSrc,
    CHAR* szDatabaseDest,
    JET_PFNSTATUS pfnStatus,
    JET_CONVERT_A* pconvert,   // optional
    DWORD grbit
);

パラメーター

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

戻り値の型: INT

公式ドキュメント

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

戻り値

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

戻り値コード

説明

JET_errSuccess

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

JET_errClientRequestToStopJetService

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

JET_errFeatureNotAvailable

NULL 以外の pconvert ポインターが指定されましたが、使用している ESE のバージョンは convert 機能をサポートしていません。この機能は 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% の範囲でなければなりません。データベースが主に読み取られるだけで更新されない場合、アプリケーションは密度を 100% に設定し、クエリ処理中の I/O 操作の回数を削減します。一方、レコードとともに格納されるデータのサイズを増加させる操作によって頻繁に更新される場合や、新しいデータが頻繁に挿入される場合、アプリケーションはより低い密度を選択し、更新時に必要なリソースをより多くの場合に利用できるようにします。データベースを圧縮する操作により、データベースはアプリケーションが選択した充填率に従って理想的に配置されます。

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

オフラインでのデータベース圧縮はデータベース内のすべてのデータに触れるため、データベースの整合性を確認する手段として使用できます。データベースに疑いがある場合は、圧縮を実行できます。圧縮でエラーが検出されなければ、そのデータベースが 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  (ANSI / -A)
#include <windows.h>

INT JetCompactA(
    JET_SESID sesid,
    CHAR* szDatabaseSrc,
    CHAR* szDatabaseDest,
    JET_PFNSTATUS pfnStatus,
    JET_CONVERT_A* pconvert,   // optional
    DWORD grbit
);
[DllImport("ESENT.dll", CharSet = CharSet.Ansi, ExactSpelling = true)]
static extern int JetCompactA(
    UIntPtr sesid,   // JET_SESID
    IntPtr szDatabaseSrc,   // CHAR*
    IntPtr szDatabaseDest,   // CHAR*
    IntPtr pfnStatus,   // JET_PFNSTATUS
    IntPtr pconvert,   // JET_CONVERT_A* optional
    uint grbit   // DWORD
);
<DllImport("ESENT.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function JetCompactA(
    sesid As UIntPtr,   ' JET_SESID
    szDatabaseSrc As IntPtr,   ' CHAR*
    szDatabaseDest As IntPtr,   ' CHAR*
    pfnStatus As IntPtr,   ' JET_PFNSTATUS
    pconvert As IntPtr,   ' JET_CONVERT_A* optional
    grbit As UInteger   ' DWORD
) As Integer
End Function
' sesid : JET_SESID
' szDatabaseSrc : CHAR*
' szDatabaseDest : CHAR*
' pfnStatus : JET_PFNSTATUS
' pconvert : JET_CONVERT_A* optional
' grbit : DWORD
Declare PtrSafe Function JetCompactA Lib "esent" ( _
    ByVal sesid As LongPtr, _
    ByVal szDatabaseSrc As LongPtr, _
    ByVal szDatabaseDest As LongPtr, _
    ByVal pfnStatus As LongPtr, _
    ByVal pconvert As LongPtr, _
    ByVal grbit As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

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

lib = Fiddle.dlopen('ESENT.dll')
JetCompactA = Fiddle::Function.new(
  lib['JetCompactA'],
  [
    Fiddle::TYPE_UINTPTR_T,  # sesid : JET_SESID
    Fiddle::TYPE_VOIDP,  # szDatabaseSrc : CHAR*
    Fiddle::TYPE_VOIDP,  # szDatabaseDest : CHAR*
    Fiddle::TYPE_VOIDP,  # pfnStatus : JET_PFNSTATUS
    Fiddle::TYPE_VOIDP,  # pconvert : JET_CONVERT_A* optional
    -Fiddle::TYPE_INT,  # grbit : DWORD
  ],
  Fiddle::TYPE_INT)
#[link(name = "esent")]
extern "system" {
    fn JetCompactA(
        sesid: usize,  // JET_SESID
        szDatabaseSrc: *mut i8,  // CHAR*
        szDatabaseDest: *mut i8,  // CHAR*
        pfnStatus: *const core::ffi::c_void,  // JET_PFNSTATUS
        pconvert: *mut JET_CONVERT_A,  // JET_CONVERT_A* optional
        grbit: u32  // DWORD
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[DllImport("ESENT.dll", CharSet = CharSet.Ansi)]
public static extern int JetCompactA(UIntPtr sesid, IntPtr szDatabaseSrc, IntPtr szDatabaseDest, IntPtr pfnStatus, IntPtr pconvert, uint grbit);
"@
$api = Add-Type -MemberDefinition $sig -Name 'ESENT_JetCompactA' -Namespace Win32 -PassThru
# $api::JetCompactA(sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit)
#uselib "ESENT.dll"
#func global JetCompactA "JetCompactA" sptr, sptr, sptr, sptr, sptr, sptr
; JetCompactA sesid, varptr(szDatabaseSrc), varptr(szDatabaseDest), pfnStatus, varptr(pconvert), grbit   ; 戻り値は stat
; sesid : JET_SESID -> "sptr"
; szDatabaseSrc : CHAR* -> "sptr"
; szDatabaseDest : CHAR* -> "sptr"
; pfnStatus : JET_PFNSTATUS -> "sptr"
; pconvert : JET_CONVERT_A* optional -> "sptr"
; grbit : DWORD -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "ESENT.dll"
#cfunc global JetCompactA "JetCompactA" sptr, var, var, sptr, var, int
; res = JetCompactA(sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit)
; sesid : JET_SESID -> "sptr"
; szDatabaseSrc : CHAR* -> "var"
; szDatabaseDest : CHAR* -> "var"
; pfnStatus : JET_PFNSTATUS -> "sptr"
; pconvert : JET_CONVERT_A* optional -> "var"
; grbit : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; INT JetCompactA(JET_SESID sesid, CHAR* szDatabaseSrc, CHAR* szDatabaseDest, JET_PFNSTATUS pfnStatus, JET_CONVERT_A* pconvert, DWORD grbit)
#uselib "ESENT.dll"
#cfunc global JetCompactA "JetCompactA" intptr, var, var, intptr, var, int
; res = JetCompactA(sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit)
; sesid : JET_SESID -> "intptr"
; szDatabaseSrc : CHAR* -> "var"
; szDatabaseDest : CHAR* -> "var"
; pfnStatus : JET_PFNSTATUS -> "intptr"
; pconvert : JET_CONVERT_A* optional -> "var"
; grbit : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	esent = windows.NewLazySystemDLL("ESENT.dll")
	procJetCompactA = esent.NewProc("JetCompactA")
)

// sesid (JET_SESID), szDatabaseSrc (CHAR*), szDatabaseDest (CHAR*), pfnStatus (JET_PFNSTATUS), pconvert (JET_CONVERT_A* optional), grbit (DWORD)
r1, _, err := procJetCompactA.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 JetCompactA(
  sesid: NativeUInt;   // JET_SESID
  szDatabaseSrc: Pointer;   // CHAR*
  szDatabaseDest: Pointer;   // CHAR*
  pfnStatus: Pointer;   // JET_PFNSTATUS
  pconvert: Pointer;   // JET_CONVERT_A* optional
  grbit: DWORD   // DWORD
): Integer; stdcall;
  external 'ESENT.dll' name 'JetCompactA';
result := DllCall("ESENT\JetCompactA"
    , "UPtr", sesid   ; JET_SESID
    , "Ptr", szDatabaseSrc   ; CHAR*
    , "Ptr", szDatabaseDest   ; CHAR*
    , "Ptr", pfnStatus   ; JET_PFNSTATUS
    , "Ptr", pconvert   ; JET_CONVERT_A* optional
    , "UInt", grbit   ; DWORD
    , "Int")   ; return: INT
●JetCompactA(sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit) = DLL("ESENT.dll", "int JetCompactA(int, void*, void*, void*, void*, dword)")
# 呼び出し: JetCompactA(sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit)
# sesid : JET_SESID -> "int"
# szDatabaseSrc : CHAR* -> "void*"
# szDatabaseDest : CHAR* -> "void*"
# pfnStatus : JET_PFNSTATUS -> "void*"
# pconvert : JET_CONVERT_A* optional -> "void*"
# grbit : DWORD -> "dword"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "esent" fn JetCompactA(
    sesid: usize, // JET_SESID
    szDatabaseSrc: [*c]i8, // CHAR*
    szDatabaseDest: [*c]i8, // CHAR*
    pfnStatus: ?*anyopaque, // JET_PFNSTATUS
    pconvert: [*c]JET_CONVERT_A, // JET_CONVERT_A* optional
    grbit: u32 // DWORD
) callconv(std.os.windows.WINAPI) i32;
proc JetCompactA(
    sesid: uint,  # JET_SESID
    szDatabaseSrc: ptr int8,  # CHAR*
    szDatabaseDest: ptr int8,  # CHAR*
    pfnStatus: pointer,  # JET_PFNSTATUS
    pconvert: ptr JET_CONVERT_A,  # JET_CONVERT_A* optional
    grbit: uint32  # DWORD
): int32 {.importc: "JetCompactA", stdcall, dynlib: "ESENT.dll".}
pragma(lib, "esent");
extern(Windows)
int JetCompactA(
    size_t sesid,   // JET_SESID
    byte* szDatabaseSrc,   // CHAR*
    byte* szDatabaseDest,   // CHAR*
    void* pfnStatus,   // JET_PFNSTATUS
    JET_CONVERT_A* pconvert,   // JET_CONVERT_A* optional
    uint grbit   // DWORD
);
ccall((:JetCompactA, "ESENT.dll"), stdcall, Int32,
      (Csize_t, Ptr{Int8}, Ptr{Int8}, Ptr{Cvoid}, Ptr{JET_CONVERT_A}, UInt32),
      sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit)
# sesid : JET_SESID -> Csize_t
# szDatabaseSrc : CHAR* -> Ptr{Int8}
# szDatabaseDest : CHAR* -> Ptr{Int8}
# pfnStatus : JET_PFNSTATUS -> Ptr{Cvoid}
# pconvert : JET_CONVERT_A* optional -> Ptr{JET_CONVERT_A}
# grbit : DWORD -> UInt32
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
int32_t JetCompactA(
    uintptr_t sesid,
    int8_t* szDatabaseSrc,
    int8_t* szDatabaseDest,
    void* pfnStatus,
    void* pconvert,
    uint32_t grbit);
]]
local esent = ffi.load("esent")
-- esent.JetCompactA(sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit)
-- sesid : JET_SESID
-- szDatabaseSrc : CHAR*
-- szDatabaseDest : CHAR*
-- pfnStatus : JET_PFNSTATUS
-- pconvert : JET_CONVERT_A* optional
-- grbit : DWORD
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('ESENT.dll');
const JetCompactA = lib.func('__stdcall', 'JetCompactA', 'int32_t', ['uintptr_t', 'int8_t *', 'int8_t *', 'void *', 'void *', 'uint32_t']);
// JetCompactA(sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit)
// sesid : JET_SESID -> 'uintptr_t'
// szDatabaseSrc : CHAR* -> 'int8_t *'
// szDatabaseDest : CHAR* -> 'int8_t *'
// pfnStatus : JET_PFNSTATUS -> 'void *'
// pconvert : JET_CONVERT_A* optional -> 'void *'
// grbit : DWORD -> 'uint32_t'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
// コールバック(関数ポインタ)は koffi.proto/koffi.register で型を定義して渡す(素の void* では JS 関数を渡せない)。
const lib = Deno.dlopen("ESENT.dll", {
  JetCompactA: { parameters: ["usize", "pointer", "pointer", "pointer", "pointer", "u32"], result: "i32" },
});
// lib.symbols.JetCompactA(sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit)
// sesid : JET_SESID -> "usize"
// szDatabaseSrc : CHAR* -> "pointer"
// szDatabaseDest : CHAR* -> "pointer"
// pfnStatus : JET_PFNSTATUS -> "pointer"
// pconvert : JET_CONVERT_A* optional -> "pointer"
// grbit : DWORD -> "u32"
// 文字列は "buffer"。ANSI(-A) は new TextEncoder() で UTF-8/ANSI バイト列(末尾に \x00)を渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
int32_t JetCompactA(
    size_t sesid,
    int8_t* szDatabaseSrc,
    int8_t* szDatabaseDest,
    void* pfnStatus,
    void* pconvert,
    uint32_t grbit);
C, "ESENT.dll");
// $ffi->JetCompactA(sesid, szDatabaseSrc, szDatabaseDest, pfnStatus, pconvert, grbit);
// sesid : JET_SESID
// szDatabaseSrc : CHAR*
// szDatabaseDest : CHAR*
// pfnStatus : JET_PFNSTATUS
// pconvert : JET_CONVERT_A* 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.ASCII_OPTIONS);
    int JetCompactA(
        long sesid,   // JET_SESID
        byte[] szDatabaseSrc,   // CHAR*
        byte[] szDatabaseDest,   // CHAR*
        Callback pfnStatus,   // JET_PFNSTATUS
        Pointer pconvert,   // JET_CONVERT_A* optional
        int grbit   // DWORD
    );
}
@[Link("esent")]
lib LibESENT
  fun JetCompactA = JetCompactA(
    sesid : LibC::SizeT,   # JET_SESID
    szDatabaseSrc : Int8*,   # CHAR*
    szDatabaseDest : Int8*,   # CHAR*
    pfnStatus : Void*,   # JET_PFNSTATUS
    pconvert : JET_CONVERT_A*,   # JET_CONVERT_A* 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 JetCompactANative = Int32 Function(UintPtr, Pointer<Int8>, Pointer<Int8>, Pointer<Void>, Pointer<Void>, Uint32);
typedef JetCompactADart = int Function(int, Pointer<Int8>, Pointer<Int8>, Pointer<Void>, Pointer<Void>, int);
final JetCompactA = DynamicLibrary.open('ESENT.dll')
    .lookupFunction<JetCompactANative, JetCompactADart>('JetCompactA');
// sesid : JET_SESID -> UintPtr
// szDatabaseSrc : CHAR* -> Pointer<Int8>
// szDatabaseDest : CHAR* -> Pointer<Int8>
// pfnStatus : JET_PFNSTATUS -> Pointer<Void>
// pconvert : JET_CONVERT_A* optional -> Pointer<Void>
// grbit : DWORD -> Uint32
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function JetCompactA(
  sesid: NativeUInt;   // JET_SESID
  szDatabaseSrc: Pointer;   // CHAR*
  szDatabaseDest: Pointer;   // CHAR*
  pfnStatus: Pointer;   // JET_PFNSTATUS
  pconvert: Pointer;   // JET_CONVERT_A* optional
  grbit: DWORD   // DWORD
): Integer; stdcall;
  external 'ESENT.dll' name 'JetCompactA';
import Foreign
import Foreign.C.Types
import Foreign.C.String

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

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

関連項目

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