JetCompactA
関数シグネチャ
// 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
);パラメーター
| 名前 | 型 | 方向 | 説明 |
|---|---|---|---|
| sesid | JET_SESID | in | 圧縮を行うセッションのJET_SESIDハンドル。 |
| szDatabaseSrc | CHAR* | in | 圧縮元データベースファイルのパスを指す終端付きANSI文字列ポインタ。 |
| szDatabaseDest | CHAR* | in | 圧縮先(出力)データベースファイルのパスを指す終端付きANSI文字列ポインタ。 |
| pfnStatus | JET_PFNSTATUS | in | 進捗通知を受け取るステータスコールバック関数(JET_PFNSTATUS)。NULL可。 |
| pconvert | JET_CONVERT_A* | inoptional | 予約済みの変換オプション構造体ポインタ(JET_CONVERT_A)。NULLを指定する。 |
| grbit | DWORD | in | 圧縮動作を制御するビットフラグ。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) として実装されています。 |
関連項目
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 方式にも切替可。#uselib "ESENT.dll" #cfunc global JetCompactA "JetCompactA" sptr, sptr, sptr, sptr, sptr, int ; res = JetCompactA(sesid, varptr(szDatabaseSrc), varptr(szDatabaseDest), pfnStatus, varptr(pconvert), grbit) ; sesid : JET_SESID -> "sptr" ; szDatabaseSrc : CHAR* -> "sptr" ; szDatabaseDest : CHAR* -> "sptr" ; pfnStatus : JET_PFNSTATUS -> "sptr" ; pconvert : JET_CONVERT_A* optional -> "sptr" ; grbit : DWORD -> "int" ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは 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 方式にも切替可。; 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, intptr, intptr, intptr, intptr, int ; res = JetCompactA(sesid, varptr(szDatabaseSrc), varptr(szDatabaseDest), pfnStatus, varptr(pconvert), grbit) ; sesid : JET_SESID -> "intptr" ; szDatabaseSrc : CHAR* -> "intptr" ; szDatabaseDest : CHAR* -> "intptr" ; pfnStatus : JET_PFNSTATUS -> "intptr" ; pconvert : JET_CONVERT_A* optional -> "intptr" ; grbit : DWORD -> "int" ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは 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 // INTfunction 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 を使用してください。関連項目
- f JetCompactW (Unicode版) — データベースを圧縮して再構築する(Unicode版)。