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

JetRetrieveColumn

関数
現在のレコードから指定した列の値を取得する。
DLLESENT.dll呼出規約winapi

シグネチャ

// ESENT.dll
#include <windows.h>

INT JetRetrieveColumn(
    JET_SESID sesid,
    JET_TABLEID tableid,
    DWORD columnid,
    void* pvData,   // optional
    DWORD cbData,
    DWORD* pcbActual,   // optional
    DWORD grbit,
    JET_RETINFO* pretinfo   // optional
);

パラメーター

名前型方向説明
sesidJET_SESIDin列の取得を行うセッションのJET_SESIDハンドル。
tableidJET_TABLEIDin値を取得する対象レコードを持つテーブルのカーソルハンドル。
columnidDWORDin取得対象の列を識別する列ID。
pvDatavoid*outoptional取得した列データを受け取る出力バッファポインタ。NULLで必要サイズのみ照会可能である。
cbDataDWORDinpvDataバッファのサイズをバイト単位で指定する値。
pcbActualDWORD*outoptional列の実データ長を受け取る出力ポインタ。バッファ不足の判定に用いる。NULL可。
grbitDWORDin取得動作を制御するビットフラグ。JET_bitRetrieveCopy等で取得元やオフセットを指定する。
pretinfoJET_RETINFO*inoutoptional多値列のタグ番号やオフセットを指定するJET_RETINFO構造体ポインタ。NULL可。

戻り値の型: INT

公式ドキュメント

JetRetrieveColumn 関数は、現在のレコードから 1 つの列値を取得します。ここでのレコードとは、カーソルの現在位置にあるインデックスエントリーに関連付けられたレコードです。また、この関数はカーソルのコピーバッファー内で作成中のレコードから列を取得することもできます。さらに、現在のレコードを参照するインデックスエントリーから列データを取得することもできます。実際の列値の取得に加えて、JetRetrieveColumn は列データ自体を取得する前に列のサイズを取得する目的にも使用でき、アプリケーション側のバッファーを適切なサイズにすることができます。

戻り値

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

戻りコード

説明

JET_errSuccess

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

JET_errBadColumnId

指定された列 ID が、列 ID として有効な範囲を超えています。

JET_errBadItagSequence

無効な複数値列のシーケンス番号の値が pretinfo->itagSequence に渡されました。複数値列の値シーケンス番号として有効な値は 1 以上です。この関数では 0 (ゼロ) は無効な値です。

JET_errClientRequestToStopJetService

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

JET_errColumnNotFound

指定された columnid で示される列がテーブルに存在しません。

JET_errIndexTuplesCannotRetrieveFromIndex

部分文字列としてインデックスが作成された列は、通常、各インデックスエントリーには列のごく一部しか含まれないため、インデックスから取得できません。

JET_errInstanceUnavailable

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

JET_errInvalidBufferSize

場合によっては、列の取得に指定するバッファーは、列値の一部でも返すために十分なサイズである必要があります。たとえば、エスクロー更新可能な列は、呼び出し元セッションのトランザクションコンテキストと一貫性を保つように調整され、この調整には呼び出し元が提供するバッファーが必要です。バッファー領域が不足している場合は JET_errInvalidBufferSize が返され、列データはまったく返されません。

JET_errInvalidParameter

指定されたパラメーターの 1 つ以上が正しくありません。これは retinfo.cbStruct が JET_RETINFO のサイズより小さい場合に発生することがあります。

JET_errInvalidgrbit

指定されたオプションが不明であるか、既知のビット設定の不正な組み合わせです。

JET_errNoCurrentRecord

カーソルがレコード上に位置していません。これはさまざまな理由で発生します。たとえば、カーソルが現在のインデックスの最後のレコードよりも後ろに位置している場合に発生します。

JET_errNotInitialized

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

JET_errRestoreInProgress

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

JET_errSessionSharingViolation

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

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

JET_errTermInProgress

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

JET_wrnBufferTruncated

指定されたバッファーが列のサイズより小さいため、列値全体を取得できませんでした。

JET_wrnColumnNull

取得された列値が NULL です。

成功した場合、指定された列の列値が指定されたバッファーにコピーされます。列値の一部のみがコピーされた場合は、警告 JET_wrnBufferTruncated が返されます。pcbActual が指定されている場合は、列値の実際のサイズが返されます。NULL 値は長さが 0 (ゼロ) であるため、返されるサイズも 0 (ゼロ) になることに注意してください。取得した列が複数値列であり、pretinfo が指定され、オプションとして JET_bitReturnTag が設定されている場合は、列値のシーケンス番号が pretinfo->itagSequence に返されます。

失敗した場合、カーソルの位置は変更されず、指定されたバッファーにはデータはコピーされません。

解説

複数値列ではない列で、サイズが固定または既知のデータを取得する場合、この呼び出しは 1 回だけ使用します。ただし、列データのサイズが不明な場合、通常はこの呼び出しを 2 回使用します。1 回目はデータのサイズを判別して必要な記憶域を割り当てるために呼び出します。次に、同じ呼び出しをもう一度行って列データを取得します。列が複数値列であるために値の実際の個数が不明な場合は、通常この呼び出しを 3 回使用します。最初に値の個数を取得し、その後、記憶域の割り当てと実際のデータの取得のためにさらに 2 回呼び出します。

複数値列のすべての値を取得するには、pretinfo->itagSequence の値を 1 から開始し、呼び出しのたびに増やしながらこの関数を繰り返し呼び出します。関数から JET_wrnColumnNull が返された時点で、最後の列値まで取得したことが分かります。ただし、複数値列の値シーケンスに明示的な NULL 値が設定されている場合、それらの値はスキップされるため、この方法は使用できません。明示的に NULL に設定されたものを含め、複数値列のすべての値を取得したい場合は、JetRetrieveColumn ではなく JetRetrieveColumns を使用する必要があります。なお、この関数は itagSequence に 0 (ゼロ) を指定しても、複数値列の値の個数を返しません。itagSequence に 0 (ゼロ) を渡したときに列値の個数を返すのは JetRetrieveColumns のみです。

この関数がトランザクションレベル 0 (ゼロ) で呼び出された場合、つまり呼び出し元のセッション自体がトランザクション内にない場合は、関数内でトランザクションが開始され、終了されます。これは、long 値がデータベースページをまたぐ場合でも一貫した結果を返すためです。トランザクションは関数呼び出しの間で解放されるため、セッションがトランザクション内にない状態でこの関数を連続して呼び出すと、最初の呼び出しの後に更新されたデータが返される場合があることに注意してください。

JET_bitRetrieveIgnoreDefault オプションが設定されていない限り、列に別の値が明示的に設定されていない場合は、列の既定値が取得されます。

挿入前にコピーバッファーから自動インクリメント列の値を取得することは、正規化されたデータを複数のテーブルに挿入する際に、連結のためレコードを一意に識別する一般的な手段です。自動インクリメント値は挿入操作の開始時に割り当てられ、更新が完了するまでの間はいつでもコピーバッファーから取得できます。

columnid に 0 (ゼロ) を設定して、タグ付き列、複数値列、およびスパース列のすべてを取得する場合、列は columnid の小さい順から大きい順に取得されます。列値を取得するたびに、同じ順序で列値が返されます。この順序は決定的です。

要件

要件 値

クライアント

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

サーバー

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

ヘッダー

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

ライブラリ

ESENT.lib を使用します。

DLL

ESENT.dll が必要です。

関連項目

JET_COLUMNID
JET_ERR
JET_SESID
JET_TABLEID
JET_RETINFO
JetSetColumn
JetRetrieveColumns

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

各言語での呼び出し定義

// ESENT.dll
#include <windows.h>

INT JetRetrieveColumn(
    JET_SESID sesid,
    JET_TABLEID tableid,
    DWORD columnid,
    void* pvData,   // optional
    DWORD cbData,
    DWORD* pcbActual,   // optional
    DWORD grbit,
    JET_RETINFO* pretinfo   // optional
);
[DllImport("ESENT.dll", ExactSpelling = true)]
static extern int JetRetrieveColumn(
    UIntPtr sesid,   // JET_SESID
    UIntPtr tableid,   // JET_TABLEID
    uint columnid,   // DWORD
    IntPtr pvData,   // void* optional, out
    uint cbData,   // DWORD
    IntPtr pcbActual,   // DWORD* optional, out
    uint grbit,   // DWORD
    IntPtr pretinfo   // JET_RETINFO* optional, in/out
);
<DllImport("ESENT.dll", ExactSpelling:=True)>
Public Shared Function JetRetrieveColumn(
    sesid As UIntPtr,   ' JET_SESID
    tableid As UIntPtr,   ' JET_TABLEID
    columnid As UInteger,   ' DWORD
    pvData As IntPtr,   ' void* optional, out
    cbData As UInteger,   ' DWORD
    pcbActual As IntPtr,   ' DWORD* optional, out
    grbit As UInteger,   ' DWORD
    pretinfo As IntPtr   ' JET_RETINFO* optional, in/out
) As Integer
End Function
' sesid : JET_SESID
' tableid : JET_TABLEID
' columnid : DWORD
' pvData : void* optional, out
' cbData : DWORD
' pcbActual : DWORD* optional, out
' grbit : DWORD
' pretinfo : JET_RETINFO* optional, in/out
Declare PtrSafe Function JetRetrieveColumn Lib "esent" ( _
    ByVal sesid As LongPtr, _
    ByVal tableid As LongPtr, _
    ByVal columnid As Long, _
    ByVal pvData As LongPtr, _
    ByVal cbData As Long, _
    ByVal pcbActual As LongPtr, _
    ByVal grbit As Long, _
    ByVal pretinfo As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

JetRetrieveColumn = ctypes.windll.esent.JetRetrieveColumn
JetRetrieveColumn.restype = ctypes.c_int
JetRetrieveColumn.argtypes = [
    ctypes.c_size_t,  # sesid : JET_SESID
    ctypes.c_size_t,  # tableid : JET_TABLEID
    wintypes.DWORD,  # columnid : DWORD
    ctypes.POINTER(None),  # pvData : void* optional, out
    wintypes.DWORD,  # cbData : DWORD
    ctypes.POINTER(wintypes.DWORD),  # pcbActual : DWORD* optional, out
    wintypes.DWORD,  # grbit : DWORD
    ctypes.c_void_p,  # pretinfo : JET_RETINFO* optional, in/out
]
require 'fiddle'
require 'fiddle/import'

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

var (
	esent = windows.NewLazySystemDLL("ESENT.dll")
	procJetRetrieveColumn = esent.NewProc("JetRetrieveColumn")
)

// sesid (JET_SESID), tableid (JET_TABLEID), columnid (DWORD), pvData (void* optional, out), cbData (DWORD), pcbActual (DWORD* optional, out), grbit (DWORD), pretinfo (JET_RETINFO* optional, in/out)
r1, _, err := procJetRetrieveColumn.Call(
	uintptr(sesid),
	uintptr(tableid),
	uintptr(columnid),
	uintptr(pvData),
	uintptr(cbData),
	uintptr(pcbActual),
	uintptr(grbit),
	uintptr(pretinfo),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // INT
function JetRetrieveColumn(
  sesid: NativeUInt;   // JET_SESID
  tableid: NativeUInt;   // JET_TABLEID
  columnid: DWORD;   // DWORD
  pvData: Pointer;   // void* optional, out
  cbData: DWORD;   // DWORD
  pcbActual: Pointer;   // DWORD* optional, out
  grbit: DWORD;   // DWORD
  pretinfo: Pointer   // JET_RETINFO* optional, in/out
): Integer; stdcall;
  external 'ESENT.dll' name 'JetRetrieveColumn';
result := DllCall("ESENT\JetRetrieveColumn"
    , "UPtr", sesid   ; JET_SESID
    , "UPtr", tableid   ; JET_TABLEID
    , "UInt", columnid   ; DWORD
    , "Ptr", pvData   ; void* optional, out
    , "UInt", cbData   ; DWORD
    , "Ptr", pcbActual   ; DWORD* optional, out
    , "UInt", grbit   ; DWORD
    , "Ptr", pretinfo   ; JET_RETINFO* optional, in/out
    , "Int")   ; return: INT
●JetRetrieveColumn(sesid, tableid, columnid, pvData, cbData, pcbActual, grbit, pretinfo) = DLL("ESENT.dll", "int JetRetrieveColumn(int, int, dword, void*, dword, void*, dword, void*)")
# 呼び出し: JetRetrieveColumn(sesid, tableid, columnid, pvData, cbData, pcbActual, grbit, pretinfo)
# sesid : JET_SESID -> "int"
# tableid : JET_TABLEID -> "int"
# columnid : DWORD -> "dword"
# pvData : void* optional, out -> "void*"
# cbData : DWORD -> "dword"
# pcbActual : DWORD* optional, out -> "void*"
# grbit : DWORD -> "dword"
# pretinfo : JET_RETINFO* optional, in/out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "esent" fn JetRetrieveColumn(
    sesid: usize, // JET_SESID
    tableid: usize, // JET_TABLEID
    columnid: u32, // DWORD
    pvData: ?*anyopaque, // void* optional, out
    cbData: u32, // DWORD
    pcbActual: [*c]u32, // DWORD* optional, out
    grbit: u32, // DWORD
    pretinfo: [*c]JET_RETINFO // JET_RETINFO* optional, in/out
) callconv(std.os.windows.WINAPI) i32;
proc JetRetrieveColumn(
    sesid: uint,  # JET_SESID
    tableid: uint,  # JET_TABLEID
    columnid: uint32,  # DWORD
    pvData: pointer,  # void* optional, out
    cbData: uint32,  # DWORD
    pcbActual: ptr uint32,  # DWORD* optional, out
    grbit: uint32,  # DWORD
    pretinfo: ptr JET_RETINFO  # JET_RETINFO* optional, in/out
): int32 {.importc: "JetRetrieveColumn", stdcall, dynlib: "ESENT.dll".}
pragma(lib, "esent");
extern(Windows)
int JetRetrieveColumn(
    size_t sesid,   // JET_SESID
    size_t tableid,   // JET_TABLEID
    uint columnid,   // DWORD
    void* pvData,   // void* optional, out
    uint cbData,   // DWORD
    uint* pcbActual,   // DWORD* optional, out
    uint grbit,   // DWORD
    JET_RETINFO* pretinfo   // JET_RETINFO* optional, in/out
);
ccall((:JetRetrieveColumn, "ESENT.dll"), stdcall, Int32,
      (Csize_t, Csize_t, UInt32, Ptr{Cvoid}, UInt32, Ptr{UInt32}, UInt32, Ptr{JET_RETINFO}),
      sesid, tableid, columnid, pvData, cbData, pcbActual, grbit, pretinfo)
# sesid : JET_SESID -> Csize_t
# tableid : JET_TABLEID -> Csize_t
# columnid : DWORD -> UInt32
# pvData : void* optional, out -> Ptr{Cvoid}
# cbData : DWORD -> UInt32
# pcbActual : DWORD* optional, out -> Ptr{UInt32}
# grbit : DWORD -> UInt32
# pretinfo : JET_RETINFO* optional, in/out -> Ptr{JET_RETINFO}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
int32_t JetRetrieveColumn(
    uintptr_t sesid,
    uintptr_t tableid,
    uint32_t columnid,
    void* pvData,
    uint32_t cbData,
    uint32_t* pcbActual,
    uint32_t grbit,
    void* pretinfo);
]]
local esent = ffi.load("esent")
-- esent.JetRetrieveColumn(sesid, tableid, columnid, pvData, cbData, pcbActual, grbit, pretinfo)
-- sesid : JET_SESID
-- tableid : JET_TABLEID
-- columnid : DWORD
-- pvData : void* optional, out
-- cbData : DWORD
-- pcbActual : DWORD* optional, out
-- grbit : DWORD
-- pretinfo : JET_RETINFO* optional, in/out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('ESENT.dll');
const JetRetrieveColumn = lib.func('__stdcall', 'JetRetrieveColumn', 'int32_t', ['uintptr_t', 'uintptr_t', 'uint32_t', 'void *', 'uint32_t', 'uint32_t *', 'uint32_t', 'void *']);
// JetRetrieveColumn(sesid, tableid, columnid, pvData, cbData, pcbActual, grbit, pretinfo)
// sesid : JET_SESID -> 'uintptr_t'
// tableid : JET_TABLEID -> 'uintptr_t'
// columnid : DWORD -> 'uint32_t'
// pvData : void* optional, out -> 'void *'
// cbData : DWORD -> 'uint32_t'
// pcbActual : DWORD* optional, out -> 'uint32_t *'
// grbit : DWORD -> 'uint32_t'
// pretinfo : JET_RETINFO* optional, in/out -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("ESENT.dll", {
  JetRetrieveColumn: { parameters: ["usize", "usize", "u32", "pointer", "u32", "pointer", "u32", "pointer"], result: "i32" },
});
// lib.symbols.JetRetrieveColumn(sesid, tableid, columnid, pvData, cbData, pcbActual, grbit, pretinfo)
// sesid : JET_SESID -> "usize"
// tableid : JET_TABLEID -> "usize"
// columnid : DWORD -> "u32"
// pvData : void* optional, out -> "pointer"
// cbData : DWORD -> "u32"
// pcbActual : DWORD* optional, out -> "pointer"
// grbit : DWORD -> "u32"
// pretinfo : JET_RETINFO* optional, in/out -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
int32_t JetRetrieveColumn(
    size_t sesid,
    size_t tableid,
    uint32_t columnid,
    void* pvData,
    uint32_t cbData,
    uint32_t* pcbActual,
    uint32_t grbit,
    void* pretinfo);
C, "ESENT.dll");
// $ffi->JetRetrieveColumn(sesid, tableid, columnid, pvData, cbData, pcbActual, grbit, pretinfo);
// sesid : JET_SESID
// tableid : JET_TABLEID
// columnid : DWORD
// pvData : void* optional, out
// cbData : DWORD
// pcbActual : DWORD* optional, out
// grbit : DWORD
// pretinfo : JET_RETINFO* optional, in/out
// 構造体/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);
    int JetRetrieveColumn(
        long sesid,   // JET_SESID
        long tableid,   // JET_TABLEID
        int columnid,   // DWORD
        Pointer pvData,   // void* optional, out
        int cbData,   // DWORD
        IntByReference pcbActual,   // DWORD* optional, out
        int grbit,   // DWORD
        Pointer pretinfo   // JET_RETINFO* optional, in/out
    );
}
@[Link("esent")]
lib LibESENT
  fun JetRetrieveColumn = JetRetrieveColumn(
    sesid : LibC::SizeT,   # JET_SESID
    tableid : LibC::SizeT,   # JET_TABLEID
    columnid : UInt32,   # DWORD
    pvData : Void*,   # void* optional, out
    cbData : UInt32,   # DWORD
    pcbActual : UInt32*,   # DWORD* optional, out
    grbit : UInt32,   # DWORD
    pretinfo : JET_RETINFO*   # JET_RETINFO* optional, in/out
  ) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。
import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef JetRetrieveColumnNative = Int32 Function(UintPtr, UintPtr, Uint32, Pointer<Void>, Uint32, Pointer<Uint32>, Uint32, Pointer<Void>);
typedef JetRetrieveColumnDart = int Function(int, int, int, Pointer<Void>, int, Pointer<Uint32>, int, Pointer<Void>);
final JetRetrieveColumn = DynamicLibrary.open('ESENT.dll')
    .lookupFunction<JetRetrieveColumnNative, JetRetrieveColumnDart>('JetRetrieveColumn');
// sesid : JET_SESID -> UintPtr
// tableid : JET_TABLEID -> UintPtr
// columnid : DWORD -> Uint32
// pvData : void* optional, out -> Pointer<Void>
// cbData : DWORD -> Uint32
// pcbActual : DWORD* optional, out -> Pointer<Uint32>
// grbit : DWORD -> Uint32
// pretinfo : JET_RETINFO* optional, in/out -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function JetRetrieveColumn(
  sesid: NativeUInt;   // JET_SESID
  tableid: NativeUInt;   // JET_TABLEID
  columnid: DWORD;   // DWORD
  pvData: Pointer;   // void* optional, out
  cbData: DWORD;   // DWORD
  pcbActual: Pointer;   // DWORD* optional, out
  grbit: DWORD;   // DWORD
  pretinfo: Pointer   // JET_RETINFO* optional, in/out
): Integer; stdcall;
  external 'ESENT.dll' name 'JetRetrieveColumn';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "JetRetrieveColumn"
  c_JetRetrieveColumn :: CUIntPtr -> CUIntPtr -> Word32 -> Ptr () -> Word32 -> Ptr Word32 -> Word32 -> Ptr () -> IO Int32
-- sesid : JET_SESID -> CUIntPtr
-- tableid : JET_TABLEID -> CUIntPtr
-- columnid : DWORD -> Word32
-- pvData : void* optional, out -> Ptr ()
-- cbData : DWORD -> Word32
-- pcbActual : DWORD* optional, out -> Ptr Word32
-- grbit : DWORD -> Word32
-- pretinfo : JET_RETINFO* optional, in/out -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let jetretrievecolumn =
  foreign "JetRetrieveColumn"
    (size_t @-> size_t @-> uint32_t @-> (ptr void) @-> uint32_t @-> (ptr uint32_t) @-> uint32_t @-> (ptr void) @-> returning int32_t)
(* sesid : JET_SESID -> size_t *)
(* tableid : JET_TABLEID -> size_t *)
(* columnid : DWORD -> uint32_t *)
(* pvData : void* optional, out -> (ptr void) *)
(* cbData : DWORD -> uint32_t *)
(* pcbActual : DWORD* optional, out -> (ptr uint32_t) *)
(* grbit : DWORD -> uint32_t *)
(* pretinfo : JET_RETINFO* optional, in/out -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library esent (t "ESENT.dll"))
(cffi:use-foreign-library esent)

(cffi:defcfun ("JetRetrieveColumn" jet-retrieve-column :convention :stdcall) :int32
  (sesid :uint64)   ; JET_SESID
  (tableid :uint64)   ; JET_TABLEID
  (columnid :uint32)   ; DWORD
  (pv-data :pointer)   ; void* optional, out
  (cb-data :uint32)   ; DWORD
  (pcb-actual :pointer)   ; DWORD* optional, out
  (grbit :uint32)   ; DWORD
  (pretinfo :pointer))   ; JET_RETINFO* optional, in/out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $JetRetrieveColumn = Win32::API::More->new('ESENT',
    'int JetRetrieveColumn(WPARAM sesid, WPARAM tableid, DWORD columnid, LPVOID pvData, DWORD cbData, LPVOID pcbActual, DWORD grbit, LPVOID pretinfo)');
# my $ret = $JetRetrieveColumn->Call($sesid, $tableid, $columnid, $pvData, $cbData, $pcbActual, $grbit, $pretinfo);
# sesid : JET_SESID -> WPARAM
# tableid : JET_TABLEID -> WPARAM
# columnid : DWORD -> DWORD
# pvData : void* optional, out -> LPVOID
# cbData : DWORD -> DWORD
# pcbActual : DWORD* optional, out -> LPVOID
# grbit : DWORD -> DWORD
# pretinfo : JET_RETINFO* optional, in/out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

使用する型