Win32 API 日本語リファレンス
ホームDevices.Display › EngTextOut

EngTextOut

関数
サーフェス上にグリフ列のテキストを描画する。
DLLGDI32.dll呼出規約winapi対応OSWindows 2000 以降

シグネチャ

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

BOOL EngTextOut(
    SURFOBJ* pso,
    STROBJ* pstro,
    FONTOBJ* pfo,
    CLIPOBJ* pco,
    RECTL* prclExtra,
    RECTL* prclOpaque,
    BRUSHOBJ* pboFore,
    BRUSHOBJ* pboOpaque,
    POINTL* pptlOrg,
    DWORD mix
);

パラメーター

名前方向説明
psoSURFOBJ*inout書き込み先のサーフェスを記述する SURFOBJ 構造体へのポインターです。
pstroSTROBJ*inout描画するグリフと、それらを配置する位置を定義する STROBJ 構造体へのポインターです。
pfoFONTOBJ*inoutフォントおよびそのグリフに関する情報を取得するために使用される FONTOBJ 構造体へのポインターです。
pcoCLIPOBJ*inout描画を行うクリップ領域を定義する CLIPOBJ 構造体へのポインターです。このクリップ領域の外側のピクセルは影響を受けません。
prclExtraRECTL*inoutRECTL 構造体へのポインターです。このパラメーターは常に NULL でなければなりません。
prclOpaqueRECTL*inout右下を含まない (lower-right exclusive) 単一の不透明な矩形を識別する RECTL 構造体へのポインターです。この矩形内のピクセル (前景でもクリップ対象でもないもの) は、不透明ブラシで描画されます。この矩形は常に描画対象のテキストを境界として囲みます。このパラメーターが NULL の場合、不透明ピクセルは描画されません。
pboForeBRUSHOBJ*inout前景ピクセルに使用するブラシオブジェクトを表す BRUSHOBJ 構造体へのポインターです。このブラシは常に単色ブラシになります。
pboOpaqueBRUSHOBJ*inout不透明ピクセルに使用するブラシオブジェクトを表す BRUSHOBJ 構造体へのポインターです。このブラシの前景および背景のミックスモードは、いずれも R2_COPYPEN であると想定されます。ドライバーが DEVINFO 構造体の flGraphicsCaps メンバーに GCAPS_ARBRUSHOPAQUE ケイパビリティビットを設定していない限り、常に単色ブラシで呼び出されます。
pptlOrgPOINTL*inout両方のブラシのブラシ原点を定義する POINTL 構造体へのポインターです。EngTextOut の呼び出し時にこのパラメーターが 0 に設定されていると、一部のプリンタードライバーがカラー画像を正しく印刷しない場合があります。詳細については 解説 を参照してください。
mixDWORDinpboFore に対する前景および背景のラスター操作 (ミックスモード) を指定します。

戻り値の型: BOOL

公式ドキュメント

EngTextOut 関数は、GDI に対して指定された位置に一連のグリフを描画させます。

戻り値

関数が成功した場合、戻り値は TRUE です。それ以外の場合は FALSE となり、エラーコードがログに記録されます。

解説(Remarks)

ドライバーは、DrvTextOut をフックしていてグリフを描画できない場合に、EngTextOut を呼び出す必要があります。

注意 デバイス管理サーフェスに対して DrvTextOut をフックしている場合、ドライバーは EngTextOut に処理を委ねることはできません。
EngTextOut への入力パラメーターは、前景と不透明という 2 種類のピクセルの集合を定義します。ドライバーは、まず不透明ピクセルを不透明ブラシで描画し、次に前景ピクセルを前景ブラシで描画する処理と同一の結果になるように、サーフェスを描画しなければなりません。これらの各操作はクリッピングによって制限されます。

この関数の pptlOrg パラメーターが 0 に設定されている場合、Microsoft Windows Server 2003 (日本語版) では一部のプリンタードライバーがカラー画像を正しく印刷しないことがあります。pptlOrg を 0 (NULL ポインター値) に設定すると、ブラシ原点が定義されていないと解釈されます。この問題を防ぐには、EngTextOut を呼び出す前に、メンバーが (0,0) に設定された POINTL 構造体のアドレスで pptlOrg を初期化してください。

前景および不透明ピクセルは、サーフェス上に色を塗り込むためのスクリーンとみなされます。フォントのグリフ自体は色を持ちません。

EngTextOut への入力パラメーターは、グリフピクセルの集合、追加矩形の集合、不透明矩形、およびクリップ領域を定義します。ドライバーは前景ピクセルと不透明ピクセルの集合を計算し、それを描画する必要があります。

ミックスモードは、入力されるパターンをデバイスサーフェス上に既に存在するデータとどのように混合するかを定義します。MIX データ型は、1 つの ULONG にパックされた 2 つの ROP2 値で構成されます。下位バイトが前景のラスター操作を定義し、次のバイトが背景のラスター操作を定義します。ラスター操作コードの詳細については、Microsoft Windows SDK のドキュメントを参照してください。

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

各言語での呼び出し定義

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

BOOL EngTextOut(
    SURFOBJ* pso,
    STROBJ* pstro,
    FONTOBJ* pfo,
    CLIPOBJ* pco,
    RECTL* prclExtra,
    RECTL* prclOpaque,
    BRUSHOBJ* pboFore,
    BRUSHOBJ* pboOpaque,
    POINTL* pptlOrg,
    DWORD mix
);
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("GDI32.dll", ExactSpelling = true)]
static extern bool EngTextOut(
    IntPtr pso,   // SURFOBJ* in/out
    IntPtr pstro,   // STROBJ* in/out
    IntPtr pfo,   // FONTOBJ* in/out
    IntPtr pco,   // CLIPOBJ* in/out
    IntPtr prclExtra,   // RECTL* in/out
    IntPtr prclOpaque,   // RECTL* in/out
    IntPtr pboFore,   // BRUSHOBJ* in/out
    IntPtr pboOpaque,   // BRUSHOBJ* in/out
    IntPtr pptlOrg,   // POINTL* in/out
    uint mix   // DWORD
);
<DllImport("GDI32.dll", ExactSpelling:=True)>
Public Shared Function EngTextOut(
    pso As IntPtr,   ' SURFOBJ* in/out
    pstro As IntPtr,   ' STROBJ* in/out
    pfo As IntPtr,   ' FONTOBJ* in/out
    pco As IntPtr,   ' CLIPOBJ* in/out
    prclExtra As IntPtr,   ' RECTL* in/out
    prclOpaque As IntPtr,   ' RECTL* in/out
    pboFore As IntPtr,   ' BRUSHOBJ* in/out
    pboOpaque As IntPtr,   ' BRUSHOBJ* in/out
    pptlOrg As IntPtr,   ' POINTL* in/out
    mix As UInteger   ' DWORD
) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
' pso : SURFOBJ* in/out
' pstro : STROBJ* in/out
' pfo : FONTOBJ* in/out
' pco : CLIPOBJ* in/out
' prclExtra : RECTL* in/out
' prclOpaque : RECTL* in/out
' pboFore : BRUSHOBJ* in/out
' pboOpaque : BRUSHOBJ* in/out
' pptlOrg : POINTL* in/out
' mix : DWORD
Declare PtrSafe Function EngTextOut Lib "gdi32" ( _
    ByVal pso As LongPtr, _
    ByVal pstro As LongPtr, _
    ByVal pfo As LongPtr, _
    ByVal pco As LongPtr, _
    ByVal prclExtra As LongPtr, _
    ByVal prclOpaque As LongPtr, _
    ByVal pboFore As LongPtr, _
    ByVal pboOpaque As LongPtr, _
    ByVal pptlOrg As LongPtr, _
    ByVal mix As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

EngTextOut = ctypes.windll.gdi32.EngTextOut
EngTextOut.restype = wintypes.BOOL
EngTextOut.argtypes = [
    ctypes.c_void_p,  # pso : SURFOBJ* in/out
    ctypes.c_void_p,  # pstro : STROBJ* in/out
    ctypes.c_void_p,  # pfo : FONTOBJ* in/out
    ctypes.c_void_p,  # pco : CLIPOBJ* in/out
    ctypes.c_void_p,  # prclExtra : RECTL* in/out
    ctypes.c_void_p,  # prclOpaque : RECTL* in/out
    ctypes.c_void_p,  # pboFore : BRUSHOBJ* in/out
    ctypes.c_void_p,  # pboOpaque : BRUSHOBJ* in/out
    ctypes.c_void_p,  # pptlOrg : POINTL* in/out
    wintypes.DWORD,  # mix : DWORD
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('GDI32.dll')
EngTextOut = Fiddle::Function.new(
  lib['EngTextOut'],
  [
    Fiddle::TYPE_VOIDP,  # pso : SURFOBJ* in/out
    Fiddle::TYPE_VOIDP,  # pstro : STROBJ* in/out
    Fiddle::TYPE_VOIDP,  # pfo : FONTOBJ* in/out
    Fiddle::TYPE_VOIDP,  # pco : CLIPOBJ* in/out
    Fiddle::TYPE_VOIDP,  # prclExtra : RECTL* in/out
    Fiddle::TYPE_VOIDP,  # prclOpaque : RECTL* in/out
    Fiddle::TYPE_VOIDP,  # pboFore : BRUSHOBJ* in/out
    Fiddle::TYPE_VOIDP,  # pboOpaque : BRUSHOBJ* in/out
    Fiddle::TYPE_VOIDP,  # pptlOrg : POINTL* in/out
    -Fiddle::TYPE_INT,  # mix : DWORD
  ],
  Fiddle::TYPE_INT)
#[link(name = "gdi32")]
extern "system" {
    fn EngTextOut(
        pso: *mut SURFOBJ,  // SURFOBJ* in/out
        pstro: *mut STROBJ,  // STROBJ* in/out
        pfo: *mut FONTOBJ,  // FONTOBJ* in/out
        pco: *mut CLIPOBJ,  // CLIPOBJ* in/out
        prclExtra: *mut RECTL,  // RECTL* in/out
        prclOpaque: *mut RECTL,  // RECTL* in/out
        pboFore: *mut BRUSHOBJ,  // BRUSHOBJ* in/out
        pboOpaque: *mut BRUSHOBJ,  // BRUSHOBJ* in/out
        pptlOrg: *mut POINTL,  // POINTL* in/out
        mix: u32  // DWORD
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("GDI32.dll")]
public static extern bool EngTextOut(IntPtr pso, IntPtr pstro, IntPtr pfo, IntPtr pco, IntPtr prclExtra, IntPtr prclOpaque, IntPtr pboFore, IntPtr pboOpaque, IntPtr pptlOrg, uint mix);
"@
$api = Add-Type -MemberDefinition $sig -Name 'GDI32_EngTextOut' -Namespace Win32 -PassThru
# $api::EngTextOut(pso, pstro, pfo, pco, prclExtra, prclOpaque, pboFore, pboOpaque, pptlOrg, mix)
#uselib "GDI32.dll"
#func global EngTextOut "EngTextOut" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; EngTextOut varptr(pso), varptr(pstro), varptr(pfo), varptr(pco), varptr(prclExtra), varptr(prclOpaque), varptr(pboFore), varptr(pboOpaque), varptr(pptlOrg), mix   ; 戻り値は stat
; pso : SURFOBJ* in/out -> "sptr"
; pstro : STROBJ* in/out -> "sptr"
; pfo : FONTOBJ* in/out -> "sptr"
; pco : CLIPOBJ* in/out -> "sptr"
; prclExtra : RECTL* in/out -> "sptr"
; prclOpaque : RECTL* in/out -> "sptr"
; pboFore : BRUSHOBJ* in/out -> "sptr"
; pboOpaque : BRUSHOBJ* in/out -> "sptr"
; pptlOrg : POINTL* in/out -> "sptr"
; mix : DWORD -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "GDI32.dll"
#cfunc global EngTextOut "EngTextOut" var, var, var, var, var, var, var, var, var, int
; res = EngTextOut(pso, pstro, pfo, pco, prclExtra, prclOpaque, pboFore, pboOpaque, pptlOrg, mix)
; pso : SURFOBJ* in/out -> "var"
; pstro : STROBJ* in/out -> "var"
; pfo : FONTOBJ* in/out -> "var"
; pco : CLIPOBJ* in/out -> "var"
; prclExtra : RECTL* in/out -> "var"
; prclOpaque : RECTL* in/out -> "var"
; pboFore : BRUSHOBJ* in/out -> "var"
; pboOpaque : BRUSHOBJ* in/out -> "var"
; pptlOrg : POINTL* in/out -> "var"
; mix : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; BOOL EngTextOut(SURFOBJ* pso, STROBJ* pstro, FONTOBJ* pfo, CLIPOBJ* pco, RECTL* prclExtra, RECTL* prclOpaque, BRUSHOBJ* pboFore, BRUSHOBJ* pboOpaque, POINTL* pptlOrg, DWORD mix)
#uselib "GDI32.dll"
#cfunc global EngTextOut "EngTextOut" var, var, var, var, var, var, var, var, var, int
; res = EngTextOut(pso, pstro, pfo, pco, prclExtra, prclOpaque, pboFore, pboOpaque, pptlOrg, mix)
; pso : SURFOBJ* in/out -> "var"
; pstro : STROBJ* in/out -> "var"
; pfo : FONTOBJ* in/out -> "var"
; pco : CLIPOBJ* in/out -> "var"
; prclExtra : RECTL* in/out -> "var"
; prclOpaque : RECTL* in/out -> "var"
; pboFore : BRUSHOBJ* in/out -> "var"
; pboOpaque : BRUSHOBJ* in/out -> "var"
; pptlOrg : POINTL* in/out -> "var"
; mix : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	gdi32 = windows.NewLazySystemDLL("GDI32.dll")
	procEngTextOut = gdi32.NewProc("EngTextOut")
)

// pso (SURFOBJ* in/out), pstro (STROBJ* in/out), pfo (FONTOBJ* in/out), pco (CLIPOBJ* in/out), prclExtra (RECTL* in/out), prclOpaque (RECTL* in/out), pboFore (BRUSHOBJ* in/out), pboOpaque (BRUSHOBJ* in/out), pptlOrg (POINTL* in/out), mix (DWORD)
r1, _, err := procEngTextOut.Call(
	uintptr(pso),
	uintptr(pstro),
	uintptr(pfo),
	uintptr(pco),
	uintptr(prclExtra),
	uintptr(prclOpaque),
	uintptr(pboFore),
	uintptr(pboOpaque),
	uintptr(pptlOrg),
	uintptr(mix),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // BOOL
function EngTextOut(
  pso: Pointer;   // SURFOBJ* in/out
  pstro: Pointer;   // STROBJ* in/out
  pfo: Pointer;   // FONTOBJ* in/out
  pco: Pointer;   // CLIPOBJ* in/out
  prclExtra: Pointer;   // RECTL* in/out
  prclOpaque: Pointer;   // RECTL* in/out
  pboFore: Pointer;   // BRUSHOBJ* in/out
  pboOpaque: Pointer;   // BRUSHOBJ* in/out
  pptlOrg: Pointer;   // POINTL* in/out
  mix: DWORD   // DWORD
): BOOL; stdcall;
  external 'GDI32.dll' name 'EngTextOut';
result := DllCall("GDI32\EngTextOut"
    , "Ptr", pso   ; SURFOBJ* in/out
    , "Ptr", pstro   ; STROBJ* in/out
    , "Ptr", pfo   ; FONTOBJ* in/out
    , "Ptr", pco   ; CLIPOBJ* in/out
    , "Ptr", prclExtra   ; RECTL* in/out
    , "Ptr", prclOpaque   ; RECTL* in/out
    , "Ptr", pboFore   ; BRUSHOBJ* in/out
    , "Ptr", pboOpaque   ; BRUSHOBJ* in/out
    , "Ptr", pptlOrg   ; POINTL* in/out
    , "UInt", mix   ; DWORD
    , "Int")   ; return: BOOL
●EngTextOut(pso, pstro, pfo, pco, prclExtra, prclOpaque, pboFore, pboOpaque, pptlOrg, mix) = DLL("GDI32.dll", "bool EngTextOut(void*, void*, void*, void*, void*, void*, void*, void*, void*, dword)")
# 呼び出し: EngTextOut(pso, pstro, pfo, pco, prclExtra, prclOpaque, pboFore, pboOpaque, pptlOrg, mix)
# pso : SURFOBJ* in/out -> "void*"
# pstro : STROBJ* in/out -> "void*"
# pfo : FONTOBJ* in/out -> "void*"
# pco : CLIPOBJ* in/out -> "void*"
# prclExtra : RECTL* in/out -> "void*"
# prclOpaque : RECTL* in/out -> "void*"
# pboFore : BRUSHOBJ* in/out -> "void*"
# pboOpaque : BRUSHOBJ* in/out -> "void*"
# pptlOrg : POINTL* in/out -> "void*"
# mix : DWORD -> "dword"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "gdi32" fn EngTextOut(
    pso: [*c]SURFOBJ, // SURFOBJ* in/out
    pstro: [*c]STROBJ, // STROBJ* in/out
    pfo: [*c]FONTOBJ, // FONTOBJ* in/out
    pco: [*c]CLIPOBJ, // CLIPOBJ* in/out
    prclExtra: [*c]RECTL, // RECTL* in/out
    prclOpaque: [*c]RECTL, // RECTL* in/out
    pboFore: [*c]BRUSHOBJ, // BRUSHOBJ* in/out
    pboOpaque: [*c]BRUSHOBJ, // BRUSHOBJ* in/out
    pptlOrg: [*c]POINTL, // POINTL* in/out
    mix: u32 // DWORD
) callconv(std.os.windows.WINAPI) i32;
proc EngTextOut(
    pso: ptr SURFOBJ,  # SURFOBJ* in/out
    pstro: ptr STROBJ,  # STROBJ* in/out
    pfo: ptr FONTOBJ,  # FONTOBJ* in/out
    pco: ptr CLIPOBJ,  # CLIPOBJ* in/out
    prclExtra: ptr RECTL,  # RECTL* in/out
    prclOpaque: ptr RECTL,  # RECTL* in/out
    pboFore: ptr BRUSHOBJ,  # BRUSHOBJ* in/out
    pboOpaque: ptr BRUSHOBJ,  # BRUSHOBJ* in/out
    pptlOrg: ptr POINTL,  # POINTL* in/out
    mix: uint32  # DWORD
): int32 {.importc: "EngTextOut", stdcall, dynlib: "GDI32.dll".}
pragma(lib, "gdi32");
extern(Windows)
int EngTextOut(
    SURFOBJ* pso,   // SURFOBJ* in/out
    STROBJ* pstro,   // STROBJ* in/out
    FONTOBJ* pfo,   // FONTOBJ* in/out
    CLIPOBJ* pco,   // CLIPOBJ* in/out
    RECTL* prclExtra,   // RECTL* in/out
    RECTL* prclOpaque,   // RECTL* in/out
    BRUSHOBJ* pboFore,   // BRUSHOBJ* in/out
    BRUSHOBJ* pboOpaque,   // BRUSHOBJ* in/out
    POINTL* pptlOrg,   // POINTL* in/out
    uint mix   // DWORD
);
ccall((:EngTextOut, "GDI32.dll"), stdcall, Int32,
      (Ptr{SURFOBJ}, Ptr{STROBJ}, Ptr{FONTOBJ}, Ptr{CLIPOBJ}, Ptr{RECTL}, Ptr{RECTL}, Ptr{BRUSHOBJ}, Ptr{BRUSHOBJ}, Ptr{POINTL}, UInt32),
      pso, pstro, pfo, pco, prclExtra, prclOpaque, pboFore, pboOpaque, pptlOrg, mix)
# pso : SURFOBJ* in/out -> Ptr{SURFOBJ}
# pstro : STROBJ* in/out -> Ptr{STROBJ}
# pfo : FONTOBJ* in/out -> Ptr{FONTOBJ}
# pco : CLIPOBJ* in/out -> Ptr{CLIPOBJ}
# prclExtra : RECTL* in/out -> Ptr{RECTL}
# prclOpaque : RECTL* in/out -> Ptr{RECTL}
# pboFore : BRUSHOBJ* in/out -> Ptr{BRUSHOBJ}
# pboOpaque : BRUSHOBJ* in/out -> Ptr{BRUSHOBJ}
# pptlOrg : POINTL* in/out -> Ptr{POINTL}
# mix : DWORD -> UInt32
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
int32_t EngTextOut(
    void* pso,
    void* pstro,
    void* pfo,
    void* pco,
    void* prclExtra,
    void* prclOpaque,
    void* pboFore,
    void* pboOpaque,
    void* pptlOrg,
    uint32_t mix);
]]
local gdi32 = ffi.load("gdi32")
-- gdi32.EngTextOut(pso, pstro, pfo, pco, prclExtra, prclOpaque, pboFore, pboOpaque, pptlOrg, mix)
-- pso : SURFOBJ* in/out
-- pstro : STROBJ* in/out
-- pfo : FONTOBJ* in/out
-- pco : CLIPOBJ* in/out
-- prclExtra : RECTL* in/out
-- prclOpaque : RECTL* in/out
-- pboFore : BRUSHOBJ* in/out
-- pboOpaque : BRUSHOBJ* in/out
-- pptlOrg : POINTL* in/out
-- mix : DWORD
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('GDI32.dll');
const EngTextOut = lib.func('__stdcall', 'EngTextOut', 'int32_t', ['void *', 'void *', 'void *', 'void *', 'void *', 'void *', 'void *', 'void *', 'void *', 'uint32_t']);
// EngTextOut(pso, pstro, pfo, pco, prclExtra, prclOpaque, pboFore, pboOpaque, pptlOrg, mix)
// pso : SURFOBJ* in/out -> 'void *'
// pstro : STROBJ* in/out -> 'void *'
// pfo : FONTOBJ* in/out -> 'void *'
// pco : CLIPOBJ* in/out -> 'void *'
// prclExtra : RECTL* in/out -> 'void *'
// prclOpaque : RECTL* in/out -> 'void *'
// pboFore : BRUSHOBJ* in/out -> 'void *'
// pboOpaque : BRUSHOBJ* in/out -> 'void *'
// pptlOrg : POINTL* in/out -> 'void *'
// mix : DWORD -> 'uint32_t'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("GDI32.dll", {
  EngTextOut: { parameters: ["pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "u32"], result: "i32" },
});
// lib.symbols.EngTextOut(pso, pstro, pfo, pco, prclExtra, prclOpaque, pboFore, pboOpaque, pptlOrg, mix)
// pso : SURFOBJ* in/out -> "pointer"
// pstro : STROBJ* in/out -> "pointer"
// pfo : FONTOBJ* in/out -> "pointer"
// pco : CLIPOBJ* in/out -> "pointer"
// prclExtra : RECTL* in/out -> "pointer"
// prclOpaque : RECTL* in/out -> "pointer"
// pboFore : BRUSHOBJ* in/out -> "pointer"
// pboOpaque : BRUSHOBJ* in/out -> "pointer"
// pptlOrg : POINTL* in/out -> "pointer"
// mix : DWORD -> "u32"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
int32_t EngTextOut(
    void* pso,
    void* pstro,
    void* pfo,
    void* pco,
    void* prclExtra,
    void* prclOpaque,
    void* pboFore,
    void* pboOpaque,
    void* pptlOrg,
    uint32_t mix);
C, "GDI32.dll");
// $ffi->EngTextOut(pso, pstro, pfo, pco, prclExtra, prclOpaque, pboFore, pboOpaque, pptlOrg, mix);
// pso : SURFOBJ* in/out
// pstro : STROBJ* in/out
// pfo : FONTOBJ* in/out
// pco : CLIPOBJ* in/out
// prclExtra : RECTL* in/out
// prclOpaque : RECTL* in/out
// pboFore : BRUSHOBJ* in/out
// pboOpaque : BRUSHOBJ* in/out
// pptlOrg : POINTL* in/out
// mix : 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 Gdi32 extends StdCallLibrary {
    Gdi32 INSTANCE = Native.load("gdi32", Gdi32.class);
    boolean EngTextOut(
        Pointer pso,   // SURFOBJ* in/out
        Pointer pstro,   // STROBJ* in/out
        Pointer pfo,   // FONTOBJ* in/out
        Pointer pco,   // CLIPOBJ* in/out
        Pointer prclExtra,   // RECTL* in/out
        Pointer prclOpaque,   // RECTL* in/out
        Pointer pboFore,   // BRUSHOBJ* in/out
        Pointer pboOpaque,   // BRUSHOBJ* in/out
        Pointer pptlOrg,   // POINTL* in/out
        int mix   // DWORD
    );
}
@[Link("gdi32")]
lib LibGDI32
  fun EngTextOut = EngTextOut(
    pso : SURFOBJ*,   # SURFOBJ* in/out
    pstro : STROBJ*,   # STROBJ* in/out
    pfo : FONTOBJ*,   # FONTOBJ* in/out
    pco : CLIPOBJ*,   # CLIPOBJ* in/out
    prclExtra : RECTL*,   # RECTL* in/out
    prclOpaque : RECTL*,   # RECTL* in/out
    pboFore : BRUSHOBJ*,   # BRUSHOBJ* in/out
    pboOpaque : BRUSHOBJ*,   # BRUSHOBJ* in/out
    pptlOrg : POINTL*,   # POINTL* in/out
    mix : 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 EngTextOutNative = Int32 Function(Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Uint32);
typedef EngTextOutDart = int Function(Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, int);
final EngTextOut = DynamicLibrary.open('GDI32.dll')
    .lookupFunction<EngTextOutNative, EngTextOutDart>('EngTextOut');
// pso : SURFOBJ* in/out -> Pointer<Void>
// pstro : STROBJ* in/out -> Pointer<Void>
// pfo : FONTOBJ* in/out -> Pointer<Void>
// pco : CLIPOBJ* in/out -> Pointer<Void>
// prclExtra : RECTL* in/out -> Pointer<Void>
// prclOpaque : RECTL* in/out -> Pointer<Void>
// pboFore : BRUSHOBJ* in/out -> Pointer<Void>
// pboOpaque : BRUSHOBJ* in/out -> Pointer<Void>
// pptlOrg : POINTL* in/out -> Pointer<Void>
// mix : DWORD -> Uint32
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function EngTextOut(
  pso: Pointer;   // SURFOBJ* in/out
  pstro: Pointer;   // STROBJ* in/out
  pfo: Pointer;   // FONTOBJ* in/out
  pco: Pointer;   // CLIPOBJ* in/out
  prclExtra: Pointer;   // RECTL* in/out
  prclOpaque: Pointer;   // RECTL* in/out
  pboFore: Pointer;   // BRUSHOBJ* in/out
  pboOpaque: Pointer;   // BRUSHOBJ* in/out
  pptlOrg: Pointer;   // POINTL* in/out
  mix: DWORD   // DWORD
): BOOL; stdcall;
  external 'GDI32.dll' name 'EngTextOut';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "EngTextOut"
  c_EngTextOut :: Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Word32 -> IO CInt
-- pso : SURFOBJ* in/out -> Ptr ()
-- pstro : STROBJ* in/out -> Ptr ()
-- pfo : FONTOBJ* in/out -> Ptr ()
-- pco : CLIPOBJ* in/out -> Ptr ()
-- prclExtra : RECTL* in/out -> Ptr ()
-- prclOpaque : RECTL* in/out -> Ptr ()
-- pboFore : BRUSHOBJ* in/out -> Ptr ()
-- pboOpaque : BRUSHOBJ* in/out -> Ptr ()
-- pptlOrg : POINTL* in/out -> Ptr ()
-- mix : DWORD -> Word32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let engtextout =
  foreign "EngTextOut"
    ((ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> uint32_t @-> returning int32_t)
(* pso : SURFOBJ* in/out -> (ptr void) *)
(* pstro : STROBJ* in/out -> (ptr void) *)
(* pfo : FONTOBJ* in/out -> (ptr void) *)
(* pco : CLIPOBJ* in/out -> (ptr void) *)
(* prclExtra : RECTL* in/out -> (ptr void) *)
(* prclOpaque : RECTL* in/out -> (ptr void) *)
(* pboFore : BRUSHOBJ* in/out -> (ptr void) *)
(* pboOpaque : BRUSHOBJ* in/out -> (ptr void) *)
(* pptlOrg : POINTL* in/out -> (ptr void) *)
(* mix : DWORD -> uint32_t *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library gdi32 (t "GDI32.dll"))
(cffi:use-foreign-library gdi32)

(cffi:defcfun ("EngTextOut" eng-text-out :convention :stdcall) :int32
  (pso :pointer)   ; SURFOBJ* in/out
  (pstro :pointer)   ; STROBJ* in/out
  (pfo :pointer)   ; FONTOBJ* in/out
  (pco :pointer)   ; CLIPOBJ* in/out
  (prcl-extra :pointer)   ; RECTL* in/out
  (prcl-opaque :pointer)   ; RECTL* in/out
  (pbo-fore :pointer)   ; BRUSHOBJ* in/out
  (pbo-opaque :pointer)   ; BRUSHOBJ* in/out
  (pptl-org :pointer)   ; POINTL* in/out
  (mix :uint32))   ; DWORD
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $EngTextOut = Win32::API::More->new('GDI32',
    'BOOL EngTextOut(LPVOID pso, LPVOID pstro, LPVOID pfo, LPVOID pco, LPVOID prclExtra, LPVOID prclOpaque, LPVOID pboFore, LPVOID pboOpaque, LPVOID pptlOrg, DWORD mix)');
# my $ret = $EngTextOut->Call($pso, $pstro, $pfo, $pco, $prclExtra, $prclOpaque, $pboFore, $pboOpaque, $pptlOrg, $mix);
# pso : SURFOBJ* in/out -> LPVOID
# pstro : STROBJ* in/out -> LPVOID
# pfo : FONTOBJ* in/out -> LPVOID
# pco : CLIPOBJ* in/out -> LPVOID
# prclExtra : RECTL* in/out -> LPVOID
# prclOpaque : RECTL* in/out -> LPVOID
# pboFore : BRUSHOBJ* in/out -> LPVOID
# pboOpaque : BRUSHOBJ* in/out -> LPVOID
# pptlOrg : POINTL* in/out -> LPVOID
# mix : DWORD -> DWORD
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

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