D3DX11CreateFFT3DComplex

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

HRESULT D3DX11CreateFFT3DComplex(
    ID3D11DeviceContext* pDeviceContext,
    DWORD X,
    DWORD Y,
    DWORD Z,
    DWORD Flags,
    D3DX11_FFT_BUFFER_INFO* pBufferInfo,
    ID3DX11FFT** ppFFT
);

<DllImport("d3dcsx.dll", ExactSpelling:=True)>
Public Shared Function D3DX11CreateFFT3DComplex(
    pDeviceContext As IntPtr,   ' ID3D11DeviceContext*
    X As UInteger,   ' DWORD
    Y As UInteger,   ' DWORD
    Z As UInteger,   ' DWORD
    Flags As UInteger,   ' DWORD
    pBufferInfo As IntPtr,   ' D3DX11_FFT_BUFFER_INFO* out
    ppFFT As IntPtr   ' ID3DX11FFT** out
) As Integer
End Function

' pDeviceContext : ID3D11DeviceContext*
' X : DWORD
' Y : DWORD
' Z : DWORD
' Flags : DWORD
' pBufferInfo : D3DX11_FFT_BUFFER_INFO* out
' ppFFT : ID3DX11FFT** out
Declare PtrSafe Function D3DX11CreateFFT3DComplex Lib "d3dcsx" ( _
    ByVal pDeviceContext As LongPtr, _
    ByVal X As Long, _
    ByVal Y As Long, _
    ByVal Z As Long, _
    ByVal Flags As Long, _
    ByVal pBufferInfo As LongPtr, _
    ByVal ppFFT As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

D3DX11CreateFFT3DComplex = ctypes.windll.d3dcsx.D3DX11CreateFFT3DComplex
D3DX11CreateFFT3DComplex.restype = ctypes.c_int
D3DX11CreateFFT3DComplex.argtypes = [
    ctypes.c_void_p,  # pDeviceContext : ID3D11DeviceContext*
    wintypes.DWORD,  # X : DWORD
    wintypes.DWORD,  # Y : DWORD
    wintypes.DWORD,  # Z : DWORD
    wintypes.DWORD,  # Flags : DWORD
    ctypes.c_void_p,  # pBufferInfo : D3DX11_FFT_BUFFER_INFO* out
    ctypes.c_void_p,  # ppFFT : ID3DX11FFT** out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('d3dcsx.dll')
D3DX11CreateFFT3DComplex = Fiddle::Function.new(
  lib['D3DX11CreateFFT3DComplex'],
  [
    Fiddle::TYPE_VOIDP,  # pDeviceContext : ID3D11DeviceContext*
    -Fiddle::TYPE_INT,  # X : DWORD
    -Fiddle::TYPE_INT,  # Y : DWORD
    -Fiddle::TYPE_INT,  # Z : DWORD
    -Fiddle::TYPE_INT,  # Flags : DWORD
    Fiddle::TYPE_VOIDP,  # pBufferInfo : D3DX11_FFT_BUFFER_INFO* out
    Fiddle::TYPE_VOIDP,  # ppFFT : ID3DX11FFT** out
  ],
  Fiddle::TYPE_INT)

#[link(name = "d3dcsx")]
extern "system" {
    fn D3DX11CreateFFT3DComplex(
        pDeviceContext: *mut core::ffi::c_void,  // ID3D11DeviceContext*
        X: u32,  // DWORD
        Y: u32,  // DWORD
        Z: u32,  // DWORD
        Flags: u32,  // DWORD
        pBufferInfo: *mut D3DX11_FFT_BUFFER_INFO,  // D3DX11_FFT_BUFFER_INFO* out
        ppFFT: *mut *mut core::ffi::c_void  // ID3DX11FFT** out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("d3dcsx.dll")]
public static extern int D3DX11CreateFFT3DComplex(IntPtr pDeviceContext, uint X, uint Y, uint Z, uint Flags, IntPtr pBufferInfo, IntPtr ppFFT);
"@
$api = Add-Type -MemberDefinition $sig -Name 'd3dcsx_D3DX11CreateFFT3DComplex' -Namespace Win32 -PassThru
# $api::D3DX11CreateFFT3DComplex(pDeviceContext, X, Y, Z, Flags, pBufferInfo, ppFFT)

#uselib "d3dcsx.dll"
#func global D3DX11CreateFFT3DComplex "D3DX11CreateFFT3DComplex" sptr, sptr, sptr, sptr, sptr, sptr, sptr
; D3DX11CreateFFT3DComplex pDeviceContext, X, Y, Z, Flags, varptr(pBufferInfo), ppFFT   ; 戻り値は stat
; pDeviceContext : ID3D11DeviceContext* -> "sptr"
; X : DWORD -> "sptr"
; Y : DWORD -> "sptr"
; Z : DWORD -> "sptr"
; Flags : DWORD -> "sptr"
; pBufferInfo : D3DX11_FFT_BUFFER_INFO* out -> "sptr"
; ppFFT : ID3DX11FFT** out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	d3dcsx = windows.NewLazySystemDLL("d3dcsx.dll")
	procD3DX11CreateFFT3DComplex = d3dcsx.NewProc("D3DX11CreateFFT3DComplex")
)

// pDeviceContext (ID3D11DeviceContext*), X (DWORD), Y (DWORD), Z (DWORD), Flags (DWORD), pBufferInfo (D3DX11_FFT_BUFFER_INFO* out), ppFFT (ID3DX11FFT** out)
r1, _, err := procD3DX11CreateFFT3DComplex.Call(
	uintptr(pDeviceContext),
	uintptr(X),
	uintptr(Y),
	uintptr(Z),
	uintptr(Flags),
	uintptr(pBufferInfo),
	uintptr(ppFFT),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // HRESULT

function D3DX11CreateFFT3DComplex(
  pDeviceContext: Pointer;   // ID3D11DeviceContext*
  X: DWORD;   // DWORD
  Y: DWORD;   // DWORD
  Z: DWORD;   // DWORD
  Flags: DWORD;   // DWORD
  pBufferInfo: Pointer;   // D3DX11_FFT_BUFFER_INFO* out
  ppFFT: Pointer   // ID3DX11FFT** out
): Integer; stdcall;
  external 'd3dcsx.dll' name 'D3DX11CreateFFT3DComplex';

result := DllCall("d3dcsx\D3DX11CreateFFT3DComplex"
    , "Ptr", pDeviceContext   ; ID3D11DeviceContext*
    , "UInt", X   ; DWORD
    , "UInt", Y   ; DWORD
    , "UInt", Z   ; DWORD
    , "UInt", Flags   ; DWORD
    , "Ptr", pBufferInfo   ; D3DX11_FFT_BUFFER_INFO* out
    , "Ptr", ppFFT   ; ID3DX11FFT** out
    , "Int")   ; return: HRESULT

●D3DX11CreateFFT3DComplex(pDeviceContext, X, Y, Z, Flags, pBufferInfo, ppFFT) = DLL("d3dcsx.dll", "int D3DX11CreateFFT3DComplex(void*, dword, dword, dword, dword, void*, void*)")
# 呼び出し: D3DX11CreateFFT3DComplex(pDeviceContext, X, Y, Z, Flags, pBufferInfo, ppFFT)
# pDeviceContext : ID3D11DeviceContext* -> "void*"
# X : DWORD -> "dword"
# Y : DWORD -> "dword"
# Z : DWORD -> "dword"
# Flags : DWORD -> "dword"
# pBufferInfo : D3DX11_FFT_BUFFER_INFO* out -> "void*"
# ppFFT : ID3DX11FFT** out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。

const std = @import("std");

extern "d3dcsx" fn D3DX11CreateFFT3DComplex(
    pDeviceContext: ?*anyopaque, // ID3D11DeviceContext*
    X: u32, // DWORD
    Y: u32, // DWORD
    Z: u32, // DWORD
    Flags: u32, // DWORD
    pBufferInfo: [*c]D3DX11_FFT_BUFFER_INFO, // D3DX11_FFT_BUFFER_INFO* out
    ppFFT: ?*anyopaque // ID3DX11FFT** out
) callconv(std.os.windows.WINAPI) i32;

proc D3DX11CreateFFT3DComplex(
    pDeviceContext: pointer,  # ID3D11DeviceContext*
    X: uint32,  # DWORD
    Y: uint32,  # DWORD
    Z: uint32,  # DWORD
    Flags: uint32,  # DWORD
    pBufferInfo: ptr D3DX11_FFT_BUFFER_INFO,  # D3DX11_FFT_BUFFER_INFO* out
    ppFFT: pointer  # ID3DX11FFT** out
): int32 {.importc: "D3DX11CreateFFT3DComplex", stdcall, dynlib: "d3dcsx.dll".}

pragma(lib, "d3dcsx");
extern(Windows)
int D3DX11CreateFFT3DComplex(
    void* pDeviceContext,   // ID3D11DeviceContext*
    uint X,   // DWORD
    uint Y,   // DWORD
    uint Z,   // DWORD
    uint Flags,   // DWORD
    D3DX11_FFT_BUFFER_INFO* pBufferInfo,   // D3DX11_FFT_BUFFER_INFO* out
    void* ppFFT   // ID3DX11FFT** out
);

ccall((:D3DX11CreateFFT3DComplex, "d3dcsx.dll"), stdcall, Int32,
      (Ptr{Cvoid}, UInt32, UInt32, UInt32, UInt32, Ptr{D3DX11_FFT_BUFFER_INFO}, Ptr{Cvoid}),
      pDeviceContext, X, Y, Z, Flags, pBufferInfo, ppFFT)
# pDeviceContext : ID3D11DeviceContext* -> Ptr{Cvoid}
# X : DWORD -> UInt32
# Y : DWORD -> UInt32
# Z : DWORD -> UInt32
# Flags : DWORD -> UInt32
# pBufferInfo : D3DX11_FFT_BUFFER_INFO* out -> Ptr{D3DX11_FFT_BUFFER_INFO}
# ppFFT : ID3DX11FFT** out -> Ptr{Cvoid}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。

local ffi = require("ffi")
ffi.cdef[[
int32_t D3DX11CreateFFT3DComplex(
    void* pDeviceContext,
    uint32_t X,
    uint32_t Y,
    uint32_t Z,
    uint32_t Flags,
    void* pBufferInfo,
    void* ppFFT);
]]
local d3dcsx = ffi.load("d3dcsx")
-- d3dcsx.D3DX11CreateFFT3DComplex(pDeviceContext, X, Y, Z, Flags, pBufferInfo, ppFFT)
-- pDeviceContext : ID3D11DeviceContext*
-- X : DWORD
-- Y : DWORD
-- Z : DWORD
-- Flags : DWORD
-- pBufferInfo : D3DX11_FFT_BUFFER_INFO* out
-- ppFFT : ID3DX11FFT** out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。

const koffi = require('koffi');
const lib = koffi.load('d3dcsx.dll');
const D3DX11CreateFFT3DComplex = lib.func('__stdcall', 'D3DX11CreateFFT3DComplex', 'int32_t', ['void *', 'uint32_t', 'uint32_t', 'uint32_t', 'uint32_t', 'void *', 'void *']);
// D3DX11CreateFFT3DComplex(pDeviceContext, X, Y, Z, Flags, pBufferInfo, ppFFT)
// pDeviceContext : ID3D11DeviceContext* -> 'void *'
// X : DWORD -> 'uint32_t'
// Y : DWORD -> 'uint32_t'
// Z : DWORD -> 'uint32_t'
// Flags : DWORD -> 'uint32_t'
// pBufferInfo : D3DX11_FFT_BUFFER_INFO* out -> 'void *'
// ppFFT : ID3DX11FFT** out -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。

const lib = Deno.dlopen("d3dcsx.dll", {
  D3DX11CreateFFT3DComplex: { parameters: ["pointer", "u32", "u32", "u32", "u32", "pointer", "pointer"], result: "i32" },
});
// lib.symbols.D3DX11CreateFFT3DComplex(pDeviceContext, X, Y, Z, Flags, pBufferInfo, ppFFT)
// pDeviceContext : ID3D11DeviceContext* -> "pointer"
// X : DWORD -> "u32"
// Y : DWORD -> "u32"
// Z : DWORD -> "u32"
// Flags : DWORD -> "u32"
// pBufferInfo : D3DX11_FFT_BUFFER_INFO* out -> "pointer"
// ppFFT : ID3DX11FFT** out -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。

<?php
$ffi = FFI::cdef(<<<C
int32_t D3DX11CreateFFT3DComplex(
    void* pDeviceContext,
    uint32_t X,
    uint32_t Y,
    uint32_t Z,
    uint32_t Flags,
    void* pBufferInfo,
    void* ppFFT);
C, "d3dcsx.dll");
// $ffi->D3DX11CreateFFT3DComplex(pDeviceContext, X, Y, Z, Flags, pBufferInfo, ppFFT);
// pDeviceContext : ID3D11DeviceContext*
// X : DWORD
// Y : DWORD
// Z : DWORD
// Flags : DWORD
// pBufferInfo : D3DX11_FFT_BUFFER_INFO* out
// ppFFT : ID3DX11FFT** 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 D3dcsx extends StdCallLibrary {
    D3dcsx INSTANCE = Native.load("d3dcsx", D3dcsx.class);
    int D3DX11CreateFFT3DComplex(
        Pointer pDeviceContext,   // ID3D11DeviceContext*
        int X,   // DWORD
        int Y,   // DWORD
        int Z,   // DWORD
        int Flags,   // DWORD
        Pointer pBufferInfo,   // D3DX11_FFT_BUFFER_INFO* out
        Pointer ppFFT   // ID3DX11FFT** out
    );
}

@[Link("d3dcsx")]
lib Libd3dcsx
  fun D3DX11CreateFFT3DComplex = D3DX11CreateFFT3DComplex(
    pDeviceContext : Void*,   # ID3D11DeviceContext*
    X : UInt32,   # DWORD
    Y : UInt32,   # DWORD
    Z : UInt32,   # DWORD
    Flags : UInt32,   # DWORD
    pBufferInfo : D3DX11_FFT_BUFFER_INFO*,   # D3DX11_FFT_BUFFER_INFO* out
    ppFFT : Void*   # ID3DX11FFT** out
  ) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。

import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef D3DX11CreateFFT3DComplexNative = Int32 Function(Pointer<Void>, Uint32, Uint32, Uint32, Uint32, Pointer<Void>, Pointer<Void>);
typedef D3DX11CreateFFT3DComplexDart = int Function(Pointer<Void>, int, int, int, int, Pointer<Void>, Pointer<Void>);
final D3DX11CreateFFT3DComplex = DynamicLibrary.open('d3dcsx.dll')
    .lookupFunction<D3DX11CreateFFT3DComplexNative, D3DX11CreateFFT3DComplexDart>('D3DX11CreateFFT3DComplex');
// pDeviceContext : ID3D11DeviceContext* -> Pointer<Void>
// X : DWORD -> Uint32
// Y : DWORD -> Uint32
// Z : DWORD -> Uint32
// Flags : DWORD -> Uint32
// pBufferInfo : D3DX11_FFT_BUFFER_INFO* out -> Pointer<Void>
// ppFFT : ID3DX11FFT** out -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。

{$mode objfpc}{$H+}
function D3DX11CreateFFT3DComplex(
  pDeviceContext: Pointer;   // ID3D11DeviceContext*
  X: DWORD;   // DWORD
  Y: DWORD;   // DWORD
  Z: DWORD;   // DWORD
  Flags: DWORD;   // DWORD
  pBufferInfo: Pointer;   // D3DX11_FFT_BUFFER_INFO* out
  ppFFT: Pointer   // ID3DX11FFT** out
): Integer; stdcall;
  external 'd3dcsx.dll' name 'D3DX11CreateFFT3DComplex';

import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "D3DX11CreateFFT3DComplex"
  c_D3DX11CreateFFT3DComplex :: Ptr () -> Word32 -> Word32 -> Word32 -> Word32 -> Ptr () -> Ptr () -> IO Int32
-- pDeviceContext : ID3D11DeviceContext* -> Ptr ()
-- X : DWORD -> Word32
-- Y : DWORD -> Word32
-- Z : DWORD -> Word32
-- Flags : DWORD -> Word32
-- pBufferInfo : D3DX11_FFT_BUFFER_INFO* out -> Ptr ()
-- ppFFT : ID3DX11FFT** out -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。

open Ctypes
open Foreign

let d3dx11createfft3dcomplex =
  foreign "D3DX11CreateFFT3DComplex"
    ((ptr void) @-> uint32_t @-> uint32_t @-> uint32_t @-> uint32_t @-> (ptr void) @-> (ptr void) @-> returning int32_t)
(* pDeviceContext : ID3D11DeviceContext* -> (ptr void) *)
(* X : DWORD -> uint32_t *)
(* Y : DWORD -> uint32_t *)
(* Z : DWORD -> uint32_t *)
(* Flags : DWORD -> uint32_t *)
(* pBufferInfo : D3DX11_FFT_BUFFER_INFO* out -> (ptr void) *)
(* ppFFT : ID3DX11FFT** out -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)

(cffi:define-foreign-library d3dcsx (t "d3dcsx.dll"))
(cffi:use-foreign-library d3dcsx)

(cffi:defcfun ("D3DX11CreateFFT3DComplex" d3-dx11-create-fft3-dcomplex :convention :stdcall) :int32
  (p-device-context :pointer)   ; ID3D11DeviceContext*
  (x :uint32)   ; DWORD
  (y :uint32)   ; DWORD
  (z :uint32)   ; DWORD
  (flags :uint32)   ; DWORD
  (p-buffer-info :pointer)   ; D3DX11_FFT_BUFFER_INFO* out
  (pp-fft :pointer))   ; ID3DX11FFT** out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。

use Win32::API;
my $D3DX11CreateFFT3DComplex = Win32::API::More->new('d3dcsx',
    'int D3DX11CreateFFT3DComplex(LPVOID pDeviceContext, DWORD X, DWORD Y, DWORD Z, DWORD Flags, LPVOID pBufferInfo, LPVOID ppFFT)');
# my $ret = $D3DX11CreateFFT3DComplex->Call($pDeviceContext, $X, $Y, $Z, $Flags, $pBufferInfo, $ppFFT);
# pDeviceContext : ID3D11DeviceContext* -> LPVOID
# X : DWORD -> DWORD
# Y : DWORD -> DWORD
# Z : DWORD -> DWORD
# Flags : DWORD -> DWORD
# pBufferInfo : D3DX11_FFT_BUFFER_INFO* out -> LPVOID
# ppFFT : ID3DX11FFT** out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。