Win32 API 日本語リファレンス
ホームSystem.Diagnostics.Etw › TdhGetProperty

TdhGetProperty

関数
イベント内の指定プロパティの値を取得する。
DLLTDH.dll呼出規約winapi対応OSWindows Vista 以降

シグネチャ

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

DWORD TdhGetProperty(
    EVENT_RECORD* pEvent,
    DWORD TdhContextCount,
    TDH_CONTEXT* pTdhContext,   // optional
    DWORD PropertyDataCount,
    PROPERTY_DATA_DESCRIPTOR* pPropertyData,
    DWORD BufferSize,
    BYTE* pBuffer
);

パラメーター

名前方向説明
pEventEVENT_RECORD*inEventRecordCallback コールバックに渡されるイベントレコードです。詳細については、EVENT_RECORD 構造体を参照してください。
TdhContextCountDWORDinpTdhContext 内の要素数です。
pTdhContextTDH_CONTEXT*inoptionalWPP イベントまたはクラシック ETW イベントの場合のみ指定するコンテキスト値の配列です。それ以外の場合は NULL を指定します。詳細については、TDH_CONTEXT 構造体を参照してください。この配列に重複するコンテキスト型を含めることはできません。
PropertyDataCountDWORDinpPropertyData 内のデータ記述子構造体の数です。
pPropertyDataPROPERTY_DATA_DESCRIPTOR*in

取得するプロパティを定義する PROPERTY_DATA_DESCRIPTOR 構造体の配列です。

プロパティに必要なバッファサイズを取得するために TdhGetPropertySize 関数を呼び出した場合は、同じデータ記述子を使用できます。

構造体のメンバーではないプロパティを取得する場合は、単一のデータ記述子を指定できます。構造体のメンバーであるプロパティを取得する場合は、2 つのデータ記述子の配列を指定します(構造体は他の構造体を含んだり参照したりすることはできません)。

BufferSizeDWORDinpBuffer バッファのサイズ(バイト単位)です。この値は、TdhGetPropertySize 関数を呼び出したときの pPropertySize パラメーターから取得できます。
pBufferBYTE*outプロパティデータを受け取る、ユーザーが割り当てたバッファです。

戻り値の型: DWORD

公式ドキュメント

イベントデータからプロパティ値を取得します。

戻り値

成功した場合は ERROR_SUCCESS を返します。それ以外の場合、この関数は以下のいずれかの戻り値(これら以外も含む)を返します。

戻り値 説明
ERROR_NOT_FOUND
イベントのスキーマが見つからないか、指定されたプロパティが見つかりませんでした。
ERROR_INSUFFICIENT_BUFFER
pBuffer バッファが小さすぎます。必要なバッファサイズを取得するには、TdhGetPropertySize を呼び出してください。
ERROR_INVALID_PARAMETER
1 つ以上のパラメーターが無効です。
ERROR_FILE_NOT_FOUND
マニフェスト内の resourceFileName 属性には、プロバイダーバイナリの場所が含まれています。マニフェストを登録すると、その場所がレジストリに書き込まれます。TDH は、登録された場所に基づいてバイナリを見つけることができませんでした。
ERROR_WMI_SERVER_UNAVAILABLE
WMI サービスが利用できません。

解説(Remarks)

イベントが WPP イベントまたはクラシック ETW イベントの場合、イベント情報の解析を補助するために使用されるコンテキスト情報を指定できます。EVENT_HEADERFlags メンバーに EVENT_HEADER_FLAG_TRACE_MESSAGE フラグが設定されている場合、そのイベントは WPP イベントです(EVENT_RECORDEventHeader メンバーを参照してください)。EVENT_HEADER_FLAG_CLASSIC_HEADER フラグが設定されている場合、そのイベントはレガシー ETW イベントです。

WPP イベントのプロパティとそのデータ型の一覧については、PROPERTY_DATA_DESCRIPTOR を参照してください。

トップレベルのプロパティまたは構造体のメンバーの値を取得するためにこの関数を呼び出す方法を示す例については、Using TdhGetProperty to Consume Event Data を参照してください。

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

各言語での呼び出し定義

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

DWORD TdhGetProperty(
    EVENT_RECORD* pEvent,
    DWORD TdhContextCount,
    TDH_CONTEXT* pTdhContext,   // optional
    DWORD PropertyDataCount,
    PROPERTY_DATA_DESCRIPTOR* pPropertyData,
    DWORD BufferSize,
    BYTE* pBuffer
);
[DllImport("TDH.dll", ExactSpelling = true)]
static extern uint TdhGetProperty(
    IntPtr pEvent,   // EVENT_RECORD*
    uint TdhContextCount,   // DWORD
    IntPtr pTdhContext,   // TDH_CONTEXT* optional
    uint PropertyDataCount,   // DWORD
    IntPtr pPropertyData,   // PROPERTY_DATA_DESCRIPTOR*
    uint BufferSize,   // DWORD
    IntPtr pBuffer   // BYTE* out
);
<DllImport("TDH.dll", ExactSpelling:=True)>
Public Shared Function TdhGetProperty(
    pEvent As IntPtr,   ' EVENT_RECORD*
    TdhContextCount As UInteger,   ' DWORD
    pTdhContext As IntPtr,   ' TDH_CONTEXT* optional
    PropertyDataCount As UInteger,   ' DWORD
    pPropertyData As IntPtr,   ' PROPERTY_DATA_DESCRIPTOR*
    BufferSize As UInteger,   ' DWORD
    pBuffer As IntPtr   ' BYTE* out
) As UInteger
End Function
' pEvent : EVENT_RECORD*
' TdhContextCount : DWORD
' pTdhContext : TDH_CONTEXT* optional
' PropertyDataCount : DWORD
' pPropertyData : PROPERTY_DATA_DESCRIPTOR*
' BufferSize : DWORD
' pBuffer : BYTE* out
Declare PtrSafe Function TdhGetProperty Lib "tdh" ( _
    ByVal pEvent As LongPtr, _
    ByVal TdhContextCount As Long, _
    ByVal pTdhContext As LongPtr, _
    ByVal PropertyDataCount As Long, _
    ByVal pPropertyData As LongPtr, _
    ByVal BufferSize As Long, _
    ByVal pBuffer As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

TdhGetProperty = ctypes.windll.tdh.TdhGetProperty
TdhGetProperty.restype = wintypes.DWORD
TdhGetProperty.argtypes = [
    ctypes.c_void_p,  # pEvent : EVENT_RECORD*
    wintypes.DWORD,  # TdhContextCount : DWORD
    ctypes.c_void_p,  # pTdhContext : TDH_CONTEXT* optional
    wintypes.DWORD,  # PropertyDataCount : DWORD
    ctypes.c_void_p,  # pPropertyData : PROPERTY_DATA_DESCRIPTOR*
    wintypes.DWORD,  # BufferSize : DWORD
    ctypes.POINTER(ctypes.c_ubyte),  # pBuffer : BYTE* out
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('TDH.dll')
TdhGetProperty = Fiddle::Function.new(
  lib['TdhGetProperty'],
  [
    Fiddle::TYPE_VOIDP,  # pEvent : EVENT_RECORD*
    -Fiddle::TYPE_INT,  # TdhContextCount : DWORD
    Fiddle::TYPE_VOIDP,  # pTdhContext : TDH_CONTEXT* optional
    -Fiddle::TYPE_INT,  # PropertyDataCount : DWORD
    Fiddle::TYPE_VOIDP,  # pPropertyData : PROPERTY_DATA_DESCRIPTOR*
    -Fiddle::TYPE_INT,  # BufferSize : DWORD
    Fiddle::TYPE_VOIDP,  # pBuffer : BYTE* out
  ],
  -Fiddle::TYPE_INT)
#[link(name = "tdh")]
extern "system" {
    fn TdhGetProperty(
        pEvent: *mut EVENT_RECORD,  // EVENT_RECORD*
        TdhContextCount: u32,  // DWORD
        pTdhContext: *mut TDH_CONTEXT,  // TDH_CONTEXT* optional
        PropertyDataCount: u32,  // DWORD
        pPropertyData: *mut PROPERTY_DATA_DESCRIPTOR,  // PROPERTY_DATA_DESCRIPTOR*
        BufferSize: u32,  // DWORD
        pBuffer: *mut u8  // BYTE* out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[DllImport("TDH.dll")]
public static extern uint TdhGetProperty(IntPtr pEvent, uint TdhContextCount, IntPtr pTdhContext, uint PropertyDataCount, IntPtr pPropertyData, uint BufferSize, IntPtr pBuffer);
"@
$api = Add-Type -MemberDefinition $sig -Name 'TDH_TdhGetProperty' -Namespace Win32 -PassThru
# $api::TdhGetProperty(pEvent, TdhContextCount, pTdhContext, PropertyDataCount, pPropertyData, BufferSize, pBuffer)
#uselib "TDH.dll"
#func global TdhGetProperty "TdhGetProperty" sptr, sptr, sptr, sptr, sptr, sptr, sptr
; TdhGetProperty varptr(pEvent), TdhContextCount, varptr(pTdhContext), PropertyDataCount, varptr(pPropertyData), BufferSize, varptr(pBuffer)   ; 戻り値は stat
; pEvent : EVENT_RECORD* -> "sptr"
; TdhContextCount : DWORD -> "sptr"
; pTdhContext : TDH_CONTEXT* optional -> "sptr"
; PropertyDataCount : DWORD -> "sptr"
; pPropertyData : PROPERTY_DATA_DESCRIPTOR* -> "sptr"
; BufferSize : DWORD -> "sptr"
; pBuffer : BYTE* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "TDH.dll"
#cfunc global TdhGetProperty "TdhGetProperty" var, int, var, int, var, int, var
; res = TdhGetProperty(pEvent, TdhContextCount, pTdhContext, PropertyDataCount, pPropertyData, BufferSize, pBuffer)
; pEvent : EVENT_RECORD* -> "var"
; TdhContextCount : DWORD -> "int"
; pTdhContext : TDH_CONTEXT* optional -> "var"
; PropertyDataCount : DWORD -> "int"
; pPropertyData : PROPERTY_DATA_DESCRIPTOR* -> "var"
; BufferSize : DWORD -> "int"
; pBuffer : BYTE* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; DWORD TdhGetProperty(EVENT_RECORD* pEvent, DWORD TdhContextCount, TDH_CONTEXT* pTdhContext, DWORD PropertyDataCount, PROPERTY_DATA_DESCRIPTOR* pPropertyData, DWORD BufferSize, BYTE* pBuffer)
#uselib "TDH.dll"
#cfunc global TdhGetProperty "TdhGetProperty" var, int, var, int, var, int, var
; res = TdhGetProperty(pEvent, TdhContextCount, pTdhContext, PropertyDataCount, pPropertyData, BufferSize, pBuffer)
; pEvent : EVENT_RECORD* -> "var"
; TdhContextCount : DWORD -> "int"
; pTdhContext : TDH_CONTEXT* optional -> "var"
; PropertyDataCount : DWORD -> "int"
; pPropertyData : PROPERTY_DATA_DESCRIPTOR* -> "var"
; BufferSize : DWORD -> "int"
; pBuffer : BYTE* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	tdh = windows.NewLazySystemDLL("TDH.dll")
	procTdhGetProperty = tdh.NewProc("TdhGetProperty")
)

// pEvent (EVENT_RECORD*), TdhContextCount (DWORD), pTdhContext (TDH_CONTEXT* optional), PropertyDataCount (DWORD), pPropertyData (PROPERTY_DATA_DESCRIPTOR*), BufferSize (DWORD), pBuffer (BYTE* out)
r1, _, err := procTdhGetProperty.Call(
	uintptr(pEvent),
	uintptr(TdhContextCount),
	uintptr(pTdhContext),
	uintptr(PropertyDataCount),
	uintptr(pPropertyData),
	uintptr(BufferSize),
	uintptr(pBuffer),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD
function TdhGetProperty(
  pEvent: Pointer;   // EVENT_RECORD*
  TdhContextCount: DWORD;   // DWORD
  pTdhContext: Pointer;   // TDH_CONTEXT* optional
  PropertyDataCount: DWORD;   // DWORD
  pPropertyData: Pointer;   // PROPERTY_DATA_DESCRIPTOR*
  BufferSize: DWORD;   // DWORD
  pBuffer: Pointer   // BYTE* out
): DWORD; stdcall;
  external 'TDH.dll' name 'TdhGetProperty';
result := DllCall("TDH\TdhGetProperty"
    , "Ptr", pEvent   ; EVENT_RECORD*
    , "UInt", TdhContextCount   ; DWORD
    , "Ptr", pTdhContext   ; TDH_CONTEXT* optional
    , "UInt", PropertyDataCount   ; DWORD
    , "Ptr", pPropertyData   ; PROPERTY_DATA_DESCRIPTOR*
    , "UInt", BufferSize   ; DWORD
    , "Ptr", pBuffer   ; BYTE* out
    , "UInt")   ; return: DWORD
●TdhGetProperty(pEvent, TdhContextCount, pTdhContext, PropertyDataCount, pPropertyData, BufferSize, pBuffer) = DLL("TDH.dll", "dword TdhGetProperty(void*, dword, void*, dword, void*, dword, void*)")
# 呼び出し: TdhGetProperty(pEvent, TdhContextCount, pTdhContext, PropertyDataCount, pPropertyData, BufferSize, pBuffer)
# pEvent : EVENT_RECORD* -> "void*"
# TdhContextCount : DWORD -> "dword"
# pTdhContext : TDH_CONTEXT* optional -> "void*"
# PropertyDataCount : DWORD -> "dword"
# pPropertyData : PROPERTY_DATA_DESCRIPTOR* -> "void*"
# BufferSize : DWORD -> "dword"
# pBuffer : BYTE* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "tdh" fn TdhGetProperty(
    pEvent: [*c]EVENT_RECORD, // EVENT_RECORD*
    TdhContextCount: u32, // DWORD
    pTdhContext: [*c]TDH_CONTEXT, // TDH_CONTEXT* optional
    PropertyDataCount: u32, // DWORD
    pPropertyData: [*c]PROPERTY_DATA_DESCRIPTOR, // PROPERTY_DATA_DESCRIPTOR*
    BufferSize: u32, // DWORD
    pBuffer: [*c]u8 // BYTE* out
) callconv(std.os.windows.WINAPI) u32;
proc TdhGetProperty(
    pEvent: ptr EVENT_RECORD,  # EVENT_RECORD*
    TdhContextCount: uint32,  # DWORD
    pTdhContext: ptr TDH_CONTEXT,  # TDH_CONTEXT* optional
    PropertyDataCount: uint32,  # DWORD
    pPropertyData: ptr PROPERTY_DATA_DESCRIPTOR,  # PROPERTY_DATA_DESCRIPTOR*
    BufferSize: uint32,  # DWORD
    pBuffer: ptr uint8  # BYTE* out
): uint32 {.importc: "TdhGetProperty", stdcall, dynlib: "TDH.dll".}
pragma(lib, "tdh");
extern(Windows)
uint TdhGetProperty(
    EVENT_RECORD* pEvent,   // EVENT_RECORD*
    uint TdhContextCount,   // DWORD
    TDH_CONTEXT* pTdhContext,   // TDH_CONTEXT* optional
    uint PropertyDataCount,   // DWORD
    PROPERTY_DATA_DESCRIPTOR* pPropertyData,   // PROPERTY_DATA_DESCRIPTOR*
    uint BufferSize,   // DWORD
    ubyte* pBuffer   // BYTE* out
);
ccall((:TdhGetProperty, "TDH.dll"), stdcall, UInt32,
      (Ptr{EVENT_RECORD}, UInt32, Ptr{TDH_CONTEXT}, UInt32, Ptr{PROPERTY_DATA_DESCRIPTOR}, UInt32, Ptr{UInt8}),
      pEvent, TdhContextCount, pTdhContext, PropertyDataCount, pPropertyData, BufferSize, pBuffer)
# pEvent : EVENT_RECORD* -> Ptr{EVENT_RECORD}
# TdhContextCount : DWORD -> UInt32
# pTdhContext : TDH_CONTEXT* optional -> Ptr{TDH_CONTEXT}
# PropertyDataCount : DWORD -> UInt32
# pPropertyData : PROPERTY_DATA_DESCRIPTOR* -> Ptr{PROPERTY_DATA_DESCRIPTOR}
# BufferSize : DWORD -> UInt32
# pBuffer : BYTE* out -> Ptr{UInt8}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
uint32_t TdhGetProperty(
    void* pEvent,
    uint32_t TdhContextCount,
    void* pTdhContext,
    uint32_t PropertyDataCount,
    void* pPropertyData,
    uint32_t BufferSize,
    uint8_t* pBuffer);
]]
local tdh = ffi.load("tdh")
-- tdh.TdhGetProperty(pEvent, TdhContextCount, pTdhContext, PropertyDataCount, pPropertyData, BufferSize, pBuffer)
-- pEvent : EVENT_RECORD*
-- TdhContextCount : DWORD
-- pTdhContext : TDH_CONTEXT* optional
-- PropertyDataCount : DWORD
-- pPropertyData : PROPERTY_DATA_DESCRIPTOR*
-- BufferSize : DWORD
-- pBuffer : BYTE* out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('TDH.dll');
const TdhGetProperty = lib.func('__stdcall', 'TdhGetProperty', 'uint32_t', ['void *', 'uint32_t', 'void *', 'uint32_t', 'void *', 'uint32_t', 'uint8_t *']);
// TdhGetProperty(pEvent, TdhContextCount, pTdhContext, PropertyDataCount, pPropertyData, BufferSize, pBuffer)
// pEvent : EVENT_RECORD* -> 'void *'
// TdhContextCount : DWORD -> 'uint32_t'
// pTdhContext : TDH_CONTEXT* optional -> 'void *'
// PropertyDataCount : DWORD -> 'uint32_t'
// pPropertyData : PROPERTY_DATA_DESCRIPTOR* -> 'void *'
// BufferSize : DWORD -> 'uint32_t'
// pBuffer : BYTE* out -> 'uint8_t *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("TDH.dll", {
  TdhGetProperty: { parameters: ["pointer", "u32", "pointer", "u32", "pointer", "u32", "pointer"], result: "u32" },
});
// lib.symbols.TdhGetProperty(pEvent, TdhContextCount, pTdhContext, PropertyDataCount, pPropertyData, BufferSize, pBuffer)
// pEvent : EVENT_RECORD* -> "pointer"
// TdhContextCount : DWORD -> "u32"
// pTdhContext : TDH_CONTEXT* optional -> "pointer"
// PropertyDataCount : DWORD -> "u32"
// pPropertyData : PROPERTY_DATA_DESCRIPTOR* -> "pointer"
// BufferSize : DWORD -> "u32"
// pBuffer : BYTE* out -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
uint32_t TdhGetProperty(
    void* pEvent,
    uint32_t TdhContextCount,
    void* pTdhContext,
    uint32_t PropertyDataCount,
    void* pPropertyData,
    uint32_t BufferSize,
    uint8_t* pBuffer);
C, "TDH.dll");
// $ffi->TdhGetProperty(pEvent, TdhContextCount, pTdhContext, PropertyDataCount, pPropertyData, BufferSize, pBuffer);
// pEvent : EVENT_RECORD*
// TdhContextCount : DWORD
// pTdhContext : TDH_CONTEXT* optional
// PropertyDataCount : DWORD
// pPropertyData : PROPERTY_DATA_DESCRIPTOR*
// BufferSize : DWORD
// pBuffer : BYTE* 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 Tdh extends StdCallLibrary {
    Tdh INSTANCE = Native.load("tdh", Tdh.class);
    int TdhGetProperty(
        Pointer pEvent,   // EVENT_RECORD*
        int TdhContextCount,   // DWORD
        Pointer pTdhContext,   // TDH_CONTEXT* optional
        int PropertyDataCount,   // DWORD
        Pointer pPropertyData,   // PROPERTY_DATA_DESCRIPTOR*
        int BufferSize,   // DWORD
        byte[] pBuffer   // BYTE* out
    );
}
@[Link("tdh")]
lib LibTDH
  fun TdhGetProperty = TdhGetProperty(
    pEvent : EVENT_RECORD*,   # EVENT_RECORD*
    TdhContextCount : UInt32,   # DWORD
    pTdhContext : TDH_CONTEXT*,   # TDH_CONTEXT* optional
    PropertyDataCount : UInt32,   # DWORD
    pPropertyData : PROPERTY_DATA_DESCRIPTOR*,   # PROPERTY_DATA_DESCRIPTOR*
    BufferSize : UInt32,   # DWORD
    pBuffer : UInt8*   # BYTE* out
  ) : UInt32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。
import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef TdhGetPropertyNative = Uint32 Function(Pointer<Void>, Uint32, Pointer<Void>, Uint32, Pointer<Void>, Uint32, Pointer<Uint8>);
typedef TdhGetPropertyDart = int Function(Pointer<Void>, int, Pointer<Void>, int, Pointer<Void>, int, Pointer<Uint8>);
final TdhGetProperty = DynamicLibrary.open('TDH.dll')
    .lookupFunction<TdhGetPropertyNative, TdhGetPropertyDart>('TdhGetProperty');
// pEvent : EVENT_RECORD* -> Pointer<Void>
// TdhContextCount : DWORD -> Uint32
// pTdhContext : TDH_CONTEXT* optional -> Pointer<Void>
// PropertyDataCount : DWORD -> Uint32
// pPropertyData : PROPERTY_DATA_DESCRIPTOR* -> Pointer<Void>
// BufferSize : DWORD -> Uint32
// pBuffer : BYTE* out -> Pointer<Uint8>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function TdhGetProperty(
  pEvent: Pointer;   // EVENT_RECORD*
  TdhContextCount: DWORD;   // DWORD
  pTdhContext: Pointer;   // TDH_CONTEXT* optional
  PropertyDataCount: DWORD;   // DWORD
  pPropertyData: Pointer;   // PROPERTY_DATA_DESCRIPTOR*
  BufferSize: DWORD;   // DWORD
  pBuffer: Pointer   // BYTE* out
): DWORD; stdcall;
  external 'TDH.dll' name 'TdhGetProperty';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "TdhGetProperty"
  c_TdhGetProperty :: Ptr () -> Word32 -> Ptr () -> Word32 -> Ptr () -> Word32 -> Ptr Word8 -> IO Word32
-- pEvent : EVENT_RECORD* -> Ptr ()
-- TdhContextCount : DWORD -> Word32
-- pTdhContext : TDH_CONTEXT* optional -> Ptr ()
-- PropertyDataCount : DWORD -> Word32
-- pPropertyData : PROPERTY_DATA_DESCRIPTOR* -> Ptr ()
-- BufferSize : DWORD -> Word32
-- pBuffer : BYTE* out -> Ptr Word8
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let tdhgetproperty =
  foreign "TdhGetProperty"
    ((ptr void) @-> uint32_t @-> (ptr void) @-> uint32_t @-> (ptr void) @-> uint32_t @-> (ptr uint8_t) @-> returning uint32_t)
(* pEvent : EVENT_RECORD* -> (ptr void) *)
(* TdhContextCount : DWORD -> uint32_t *)
(* pTdhContext : TDH_CONTEXT* optional -> (ptr void) *)
(* PropertyDataCount : DWORD -> uint32_t *)
(* pPropertyData : PROPERTY_DATA_DESCRIPTOR* -> (ptr void) *)
(* BufferSize : DWORD -> uint32_t *)
(* pBuffer : BYTE* out -> (ptr uint8_t) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library tdh (t "TDH.dll"))
(cffi:use-foreign-library tdh)

(cffi:defcfun ("TdhGetProperty" tdh-get-property :convention :stdcall) :uint32
  (p-event :pointer)   ; EVENT_RECORD*
  (tdh-context-count :uint32)   ; DWORD
  (p-tdh-context :pointer)   ; TDH_CONTEXT* optional
  (property-data-count :uint32)   ; DWORD
  (p-property-data :pointer)   ; PROPERTY_DATA_DESCRIPTOR*
  (buffer-size :uint32)   ; DWORD
  (p-buffer :pointer))   ; BYTE* out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $TdhGetProperty = Win32::API::More->new('TDH',
    'DWORD TdhGetProperty(LPVOID pEvent, DWORD TdhContextCount, LPVOID pTdhContext, DWORD PropertyDataCount, LPVOID pPropertyData, DWORD BufferSize, LPVOID pBuffer)');
# my $ret = $TdhGetProperty->Call($pEvent, $TdhContextCount, $pTdhContext, $PropertyDataCount, $pPropertyData, $BufferSize, $pBuffer);
# pEvent : EVENT_RECORD* -> LPVOID
# TdhContextCount : DWORD -> DWORD
# pTdhContext : TDH_CONTEXT* optional -> LPVOID
# PropertyDataCount : DWORD -> DWORD
# pPropertyData : PROPERTY_DATA_DESCRIPTOR* -> LPVOID
# BufferSize : DWORD -> DWORD
# pBuffer : BYTE* out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

公式の関連項目
使用する型