EngBitBlt
関数シグネチャ
// GDI32.dll
#include <windows.h>
BOOL EngBitBlt(
SURFOBJ* psoTrg,
SURFOBJ* psoSrc,
SURFOBJ* psoMask,
CLIPOBJ* pco,
XLATEOBJ* pxlo,
RECTL* prclTrg,
POINTL* pptlSrc,
POINTL* pptlMask,
BRUSHOBJ* pbo,
POINTL* pptlBrush,
DWORD rop4
);パラメーター
| 名前 | 型 | 方向 | 説明 |
|---|---|---|---|
| psoTrg | SURFOBJ* | in | 描画先のサーフェスを識別する SURFOBJ 構造体へのポインターです。 |
| psoSrc | SURFOBJ* | in | rop4 が必要とする場合、ビットブロック転送操作の転送元を定義する SURFOBJ 構造体へのポインターです。 |
| psoMask | SURFOBJ* | in | マスクとして使用するサーフェスを定義する SURFOBJ 構造体へのポインターです。マスクは 1 ピクセルあたり 1 ビットのビットマップとして定義されます。通常、マスクは描画先サーフェスで変更される領域を制限します。マスクは値 0xAACC の rop4 によって選択されます。マスクが 0 の場合、描画先サーフェスは影響を受けません。 マスクは描画先の矩形を覆うのに十分な大きさを持ちます。 このパラメーターの値が NULL で、rop4 がマスクを必要とする場合は、ブラシ内の暗黙のマスクが使用されます。マスクが必要な場合、psoMask はブラシ内の暗黙のマスクをオーバーライドします。 |
| pco | CLIPOBJ* | in | CLIPOBJ 構造体へのポインターです。CLIPOBJ_Xxx サービス ルーチンは、クリップ領域を矩形の集合として列挙するために用意されています。この列挙によって、変更される描画先の領域が制限されます。可能な限り、GDI は関与するクリッピングを単純化します。たとえば、この関数が単一のクリッピング矩形で呼び出されることはありません。GDI はこの関数を呼び出す前に描画先の矩形をクリップするため、追加のクリッピングは不要です。 |
| pxlo | XLATEOBJ* | in | 転送元サーフェスと転送先サーフェスの間でカラー インデックスをどのように変換すべきかを示す XLATEOBJ 構造体へのポインターです。 |
| prclTrg | RECTL* | in | 変更する領域を定義する、描画先サーフェスの座標系における RECTL 構造体へのポインターです。矩形は左上と右下の 2 点で定義されます。この矩形の下端および右端はビットブロック転送に含まれません。つまり矩形は右下が排他的です。 EngBitBlt が空の描画先矩形で呼び出されることはありません。矩形を定義する 2 点は常に正しく順序付けられています。 |
| pptlSrc | POINTL* | in | 転送元が存在する場合に、転送元矩形の左上隅を定義する POINTL 構造体へのポインターです。転送元がない場合、ドライバーはこのパラメーターを無視してください。 |
| pptlMask | POINTL* | in | 描画先矩形の左上隅に対応するマスク内のピクセルを定義する POINTL 構造体へのポインターです。psoMask でマスクが指定されていない場合、ドライバーはこのパラメーターを無視してください。 |
| pbo | BRUSHOBJ* | in | ビットブロック転送のパターンを定義するために使用する BRUSHOBJ 構造体へのポインターです。GDI の BRUSHOBJ_pvGetRbrush サービス ルーチンは、デバイスにおけるブラシの実体を取得します。rop4 パラメーターがパターンを必要としない場合、ドライバーはこのパラメーターを無視できます。 |
| pptlBrush | POINTL* | in | 描画先サーフェスにおけるブラシの原点を定義する POINTL 構造体へのポインターです。ブラシの左上ピクセルがこの点に揃えられ、ブラシはその寸法に従って繰り返されます。rop4 パラメーターがパターンを必要としない場合、このパラメーターは無視してください。 |
| rop4 | DWORD | in | マスク、パターン、転送元、転送先のピクセルをどのように組み合わせて描画先サーフェスへ出力ピクセルを書き込むかを定義するラスター操作を表します。 これは 4 項ラスター操作であり、通常の 3 項 Rop3 操作を自然に拡張したものです。Rop4 には関連する 16 ビットがあり、これは Rop3 を定義する 8 ビットに相当します(Rop3 のその他の冗長なビットは無視されます)。Rop4 を実装する最も簡単な方法は、その 2 バイトを別々に扱うことです。下位バイトは、マスクが 1 である箇所で計算すべき Rop3 を指定します。上位バイトは、マスクが 0 である箇所で計算および適用できる Rop3 を指定します。 |
戻り値の型: BOOL
公式ドキュメント
EngBitBlt 関数は、デバイス管理サーフェス間、またはデバイス管理サーフェスと GDI 管理の標準フォーマット ビットマップとの間で、汎用的なビットブロック転送機能を提供します。
戻り値
関数が成功した場合、戻り値は TRUE です。それ以外の場合は FALSE となり、エラー コードがログに記録されます。
解説(Remarks)
デバイスのサーフェスが標準フォーマットのビットマップとして構成されている場合、ドライバーは EngBitBlt を呼び出すことで GDI にビットブロック転送を実行するよう要求できます。ドライバーがこれを行うのは、単純な転送を高速に処理する専用ハードウェアを備えているが、複雑な転送を伴う呼び出しは自分で処理したくない場合などです。
ラスター操作の詳細については、Microsoft Windows SDK のドキュメントを参照してください。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)
各言語での呼び出し定義
// GDI32.dll
#include <windows.h>
BOOL EngBitBlt(
SURFOBJ* psoTrg,
SURFOBJ* psoSrc,
SURFOBJ* psoMask,
CLIPOBJ* pco,
XLATEOBJ* pxlo,
RECTL* prclTrg,
POINTL* pptlSrc,
POINTL* pptlMask,
BRUSHOBJ* pbo,
POINTL* pptlBrush,
DWORD rop4
);[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("GDI32.dll", ExactSpelling = true)]
static extern bool EngBitBlt(
IntPtr psoTrg, // SURFOBJ*
IntPtr psoSrc, // SURFOBJ*
IntPtr psoMask, // SURFOBJ*
IntPtr pco, // CLIPOBJ*
IntPtr pxlo, // XLATEOBJ*
IntPtr prclTrg, // RECTL*
IntPtr pptlSrc, // POINTL*
IntPtr pptlMask, // POINTL*
IntPtr pbo, // BRUSHOBJ*
IntPtr pptlBrush, // POINTL*
uint rop4 // DWORD
);<DllImport("GDI32.dll", ExactSpelling:=True)>
Public Shared Function EngBitBlt(
psoTrg As IntPtr, ' SURFOBJ*
psoSrc As IntPtr, ' SURFOBJ*
psoMask As IntPtr, ' SURFOBJ*
pco As IntPtr, ' CLIPOBJ*
pxlo As IntPtr, ' XLATEOBJ*
prclTrg As IntPtr, ' RECTL*
pptlSrc As IntPtr, ' POINTL*
pptlMask As IntPtr, ' POINTL*
pbo As IntPtr, ' BRUSHOBJ*
pptlBrush As IntPtr, ' POINTL*
rop4 As UInteger ' DWORD
) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function' psoTrg : SURFOBJ*
' psoSrc : SURFOBJ*
' psoMask : SURFOBJ*
' pco : CLIPOBJ*
' pxlo : XLATEOBJ*
' prclTrg : RECTL*
' pptlSrc : POINTL*
' pptlMask : POINTL*
' pbo : BRUSHOBJ*
' pptlBrush : POINTL*
' rop4 : DWORD
Declare PtrSafe Function EngBitBlt Lib "gdi32" ( _
ByVal psoTrg As LongPtr, _
ByVal psoSrc As LongPtr, _
ByVal psoMask As LongPtr, _
ByVal pco As LongPtr, _
ByVal pxlo As LongPtr, _
ByVal prclTrg As LongPtr, _
ByVal pptlSrc As LongPtr, _
ByVal pptlMask As LongPtr, _
ByVal pbo As LongPtr, _
ByVal pptlBrush As LongPtr, _
ByVal rop4 As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。import ctypes
from ctypes import wintypes
EngBitBlt = ctypes.windll.gdi32.EngBitBlt
EngBitBlt.restype = wintypes.BOOL
EngBitBlt.argtypes = [
ctypes.c_void_p, # psoTrg : SURFOBJ*
ctypes.c_void_p, # psoSrc : SURFOBJ*
ctypes.c_void_p, # psoMask : SURFOBJ*
ctypes.c_void_p, # pco : CLIPOBJ*
ctypes.c_void_p, # pxlo : XLATEOBJ*
ctypes.c_void_p, # prclTrg : RECTL*
ctypes.c_void_p, # pptlSrc : POINTL*
ctypes.c_void_p, # pptlMask : POINTL*
ctypes.c_void_p, # pbo : BRUSHOBJ*
ctypes.c_void_p, # pptlBrush : POINTL*
wintypes.DWORD, # rop4 : DWORD
]require 'fiddle'
require 'fiddle/import'
lib = Fiddle.dlopen('GDI32.dll')
EngBitBlt = Fiddle::Function.new(
lib['EngBitBlt'],
[
Fiddle::TYPE_VOIDP, # psoTrg : SURFOBJ*
Fiddle::TYPE_VOIDP, # psoSrc : SURFOBJ*
Fiddle::TYPE_VOIDP, # psoMask : SURFOBJ*
Fiddle::TYPE_VOIDP, # pco : CLIPOBJ*
Fiddle::TYPE_VOIDP, # pxlo : XLATEOBJ*
Fiddle::TYPE_VOIDP, # prclTrg : RECTL*
Fiddle::TYPE_VOIDP, # pptlSrc : POINTL*
Fiddle::TYPE_VOIDP, # pptlMask : POINTL*
Fiddle::TYPE_VOIDP, # pbo : BRUSHOBJ*
Fiddle::TYPE_VOIDP, # pptlBrush : POINTL*
-Fiddle::TYPE_INT, # rop4 : DWORD
],
Fiddle::TYPE_INT)#[link(name = "gdi32")]
extern "system" {
fn EngBitBlt(
psoTrg: *mut SURFOBJ, // SURFOBJ*
psoSrc: *mut SURFOBJ, // SURFOBJ*
psoMask: *mut SURFOBJ, // SURFOBJ*
pco: *mut CLIPOBJ, // CLIPOBJ*
pxlo: *mut XLATEOBJ, // XLATEOBJ*
prclTrg: *mut RECTL, // RECTL*
pptlSrc: *mut POINTL, // POINTL*
pptlMask: *mut POINTL, // POINTL*
pbo: *mut BRUSHOBJ, // BRUSHOBJ*
pptlBrush: *mut POINTL, // POINTL*
rop4: 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 EngBitBlt(IntPtr psoTrg, IntPtr psoSrc, IntPtr psoMask, IntPtr pco, IntPtr pxlo, IntPtr prclTrg, IntPtr pptlSrc, IntPtr pptlMask, IntPtr pbo, IntPtr pptlBrush, uint rop4);
"@
$api = Add-Type -MemberDefinition $sig -Name 'GDI32_EngBitBlt' -Namespace Win32 -PassThru
# $api::EngBitBlt(psoTrg, psoSrc, psoMask, pco, pxlo, prclTrg, pptlSrc, pptlMask, pbo, pptlBrush, rop4)#uselib "GDI32.dll"
#func global EngBitBlt "EngBitBlt" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; EngBitBlt varptr(psoTrg), varptr(psoSrc), varptr(psoMask), varptr(pco), varptr(pxlo), varptr(prclTrg), varptr(pptlSrc), varptr(pptlMask), varptr(pbo), varptr(pptlBrush), rop4 ; 戻り値は stat
; psoTrg : SURFOBJ* -> "sptr"
; psoSrc : SURFOBJ* -> "sptr"
; psoMask : SURFOBJ* -> "sptr"
; pco : CLIPOBJ* -> "sptr"
; pxlo : XLATEOBJ* -> "sptr"
; prclTrg : RECTL* -> "sptr"
; pptlSrc : POINTL* -> "sptr"
; pptlMask : POINTL* -> "sptr"
; pbo : BRUSHOBJ* -> "sptr"
; pptlBrush : POINTL* -> "sptr"
; rop4 : DWORD -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。#uselib "GDI32.dll" #cfunc global EngBitBlt "EngBitBlt" var, var, var, var, var, var, var, var, var, var, int ; res = EngBitBlt(psoTrg, psoSrc, psoMask, pco, pxlo, prclTrg, pptlSrc, pptlMask, pbo, pptlBrush, rop4) ; psoTrg : SURFOBJ* -> "var" ; psoSrc : SURFOBJ* -> "var" ; psoMask : SURFOBJ* -> "var" ; pco : CLIPOBJ* -> "var" ; pxlo : XLATEOBJ* -> "var" ; prclTrg : RECTL* -> "var" ; pptlSrc : POINTL* -> "var" ; pptlMask : POINTL* -> "var" ; pbo : BRUSHOBJ* -> "var" ; pptlBrush : POINTL* -> "var" ; rop4 : DWORD -> "int" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "GDI32.dll" #cfunc global EngBitBlt "EngBitBlt" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, int ; res = EngBitBlt(varptr(psoTrg), varptr(psoSrc), varptr(psoMask), varptr(pco), varptr(pxlo), varptr(prclTrg), varptr(pptlSrc), varptr(pptlMask), varptr(pbo), varptr(pptlBrush), rop4) ; psoTrg : SURFOBJ* -> "sptr" ; psoSrc : SURFOBJ* -> "sptr" ; psoMask : SURFOBJ* -> "sptr" ; pco : CLIPOBJ* -> "sptr" ; pxlo : XLATEOBJ* -> "sptr" ; prclTrg : RECTL* -> "sptr" ; pptlSrc : POINTL* -> "sptr" ; pptlMask : POINTL* -> "sptr" ; pbo : BRUSHOBJ* -> "sptr" ; pptlBrush : POINTL* -> "sptr" ; rop4 : DWORD -> "int" ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
; BOOL EngBitBlt(SURFOBJ* psoTrg, SURFOBJ* psoSrc, SURFOBJ* psoMask, CLIPOBJ* pco, XLATEOBJ* pxlo, RECTL* prclTrg, POINTL* pptlSrc, POINTL* pptlMask, BRUSHOBJ* pbo, POINTL* pptlBrush, DWORD rop4) #uselib "GDI32.dll" #cfunc global EngBitBlt "EngBitBlt" var, var, var, var, var, var, var, var, var, var, int ; res = EngBitBlt(psoTrg, psoSrc, psoMask, pco, pxlo, prclTrg, pptlSrc, pptlMask, pbo, pptlBrush, rop4) ; psoTrg : SURFOBJ* -> "var" ; psoSrc : SURFOBJ* -> "var" ; psoMask : SURFOBJ* -> "var" ; pco : CLIPOBJ* -> "var" ; pxlo : XLATEOBJ* -> "var" ; prclTrg : RECTL* -> "var" ; pptlSrc : POINTL* -> "var" ; pptlMask : POINTL* -> "var" ; pbo : BRUSHOBJ* -> "var" ; pptlBrush : POINTL* -> "var" ; rop4 : DWORD -> "int" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; BOOL EngBitBlt(SURFOBJ* psoTrg, SURFOBJ* psoSrc, SURFOBJ* psoMask, CLIPOBJ* pco, XLATEOBJ* pxlo, RECTL* prclTrg, POINTL* pptlSrc, POINTL* pptlMask, BRUSHOBJ* pbo, POINTL* pptlBrush, DWORD rop4) #uselib "GDI32.dll" #cfunc global EngBitBlt "EngBitBlt" intptr, intptr, intptr, intptr, intptr, intptr, intptr, intptr, intptr, intptr, int ; res = EngBitBlt(varptr(psoTrg), varptr(psoSrc), varptr(psoMask), varptr(pco), varptr(pxlo), varptr(prclTrg), varptr(pptlSrc), varptr(pptlMask), varptr(pbo), varptr(pptlBrush), rop4) ; psoTrg : SURFOBJ* -> "intptr" ; psoSrc : SURFOBJ* -> "intptr" ; psoMask : SURFOBJ* -> "intptr" ; pco : CLIPOBJ* -> "intptr" ; pxlo : XLATEOBJ* -> "intptr" ; prclTrg : RECTL* -> "intptr" ; pptlSrc : POINTL* -> "intptr" ; pptlMask : POINTL* -> "intptr" ; pbo : BRUSHOBJ* -> "intptr" ; pptlBrush : POINTL* -> "intptr" ; rop4 : DWORD -> "int" ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。
import (
"golang.org/x/sys/windows"
"unsafe"
)
var (
gdi32 = windows.NewLazySystemDLL("GDI32.dll")
procEngBitBlt = gdi32.NewProc("EngBitBlt")
)
// psoTrg (SURFOBJ*), psoSrc (SURFOBJ*), psoMask (SURFOBJ*), pco (CLIPOBJ*), pxlo (XLATEOBJ*), prclTrg (RECTL*), pptlSrc (POINTL*), pptlMask (POINTL*), pbo (BRUSHOBJ*), pptlBrush (POINTL*), rop4 (DWORD)
r1, _, err := procEngBitBlt.Call(
uintptr(psoTrg),
uintptr(psoSrc),
uintptr(psoMask),
uintptr(pco),
uintptr(pxlo),
uintptr(prclTrg),
uintptr(pptlSrc),
uintptr(pptlMask),
uintptr(pbo),
uintptr(pptlBrush),
uintptr(rop4),
)
_ = err // syscall.Errno (valid when the call sets last-error)
_ = r1 // BOOLfunction EngBitBlt(
psoTrg: Pointer; // SURFOBJ*
psoSrc: Pointer; // SURFOBJ*
psoMask: Pointer; // SURFOBJ*
pco: Pointer; // CLIPOBJ*
pxlo: Pointer; // XLATEOBJ*
prclTrg: Pointer; // RECTL*
pptlSrc: Pointer; // POINTL*
pptlMask: Pointer; // POINTL*
pbo: Pointer; // BRUSHOBJ*
pptlBrush: Pointer; // POINTL*
rop4: DWORD // DWORD
): BOOL; stdcall;
external 'GDI32.dll' name 'EngBitBlt';result := DllCall("GDI32\EngBitBlt"
, "Ptr", psoTrg ; SURFOBJ*
, "Ptr", psoSrc ; SURFOBJ*
, "Ptr", psoMask ; SURFOBJ*
, "Ptr", pco ; CLIPOBJ*
, "Ptr", pxlo ; XLATEOBJ*
, "Ptr", prclTrg ; RECTL*
, "Ptr", pptlSrc ; POINTL*
, "Ptr", pptlMask ; POINTL*
, "Ptr", pbo ; BRUSHOBJ*
, "Ptr", pptlBrush ; POINTL*
, "UInt", rop4 ; DWORD
, "Int") ; return: BOOL●EngBitBlt(psoTrg, psoSrc, psoMask, pco, pxlo, prclTrg, pptlSrc, pptlMask, pbo, pptlBrush, rop4) = DLL("GDI32.dll", "bool EngBitBlt(void*, void*, void*, void*, void*, void*, void*, void*, void*, void*, dword)")
# 呼び出し: EngBitBlt(psoTrg, psoSrc, psoMask, pco, pxlo, prclTrg, pptlSrc, pptlMask, pbo, pptlBrush, rop4)
# psoTrg : SURFOBJ* -> "void*"
# psoSrc : SURFOBJ* -> "void*"
# psoMask : SURFOBJ* -> "void*"
# pco : CLIPOBJ* -> "void*"
# pxlo : XLATEOBJ* -> "void*"
# prclTrg : RECTL* -> "void*"
# pptlSrc : POINTL* -> "void*"
# pptlMask : POINTL* -> "void*"
# pbo : BRUSHOBJ* -> "void*"
# pptlBrush : POINTL* -> "void*"
# rop4 : DWORD -> "dword"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。const std = @import("std");
extern "gdi32" fn EngBitBlt(
psoTrg: [*c]SURFOBJ, // SURFOBJ*
psoSrc: [*c]SURFOBJ, // SURFOBJ*
psoMask: [*c]SURFOBJ, // SURFOBJ*
pco: [*c]CLIPOBJ, // CLIPOBJ*
pxlo: [*c]XLATEOBJ, // XLATEOBJ*
prclTrg: [*c]RECTL, // RECTL*
pptlSrc: [*c]POINTL, // POINTL*
pptlMask: [*c]POINTL, // POINTL*
pbo: [*c]BRUSHOBJ, // BRUSHOBJ*
pptlBrush: [*c]POINTL, // POINTL*
rop4: u32 // DWORD
) callconv(std.os.windows.WINAPI) i32;proc EngBitBlt(
psoTrg: ptr SURFOBJ, # SURFOBJ*
psoSrc: ptr SURFOBJ, # SURFOBJ*
psoMask: ptr SURFOBJ, # SURFOBJ*
pco: ptr CLIPOBJ, # CLIPOBJ*
pxlo: ptr XLATEOBJ, # XLATEOBJ*
prclTrg: ptr RECTL, # RECTL*
pptlSrc: ptr POINTL, # POINTL*
pptlMask: ptr POINTL, # POINTL*
pbo: ptr BRUSHOBJ, # BRUSHOBJ*
pptlBrush: ptr POINTL, # POINTL*
rop4: uint32 # DWORD
): int32 {.importc: "EngBitBlt", stdcall, dynlib: "GDI32.dll".}pragma(lib, "gdi32");
extern(Windows)
int EngBitBlt(
SURFOBJ* psoTrg, // SURFOBJ*
SURFOBJ* psoSrc, // SURFOBJ*
SURFOBJ* psoMask, // SURFOBJ*
CLIPOBJ* pco, // CLIPOBJ*
XLATEOBJ* pxlo, // XLATEOBJ*
RECTL* prclTrg, // RECTL*
POINTL* pptlSrc, // POINTL*
POINTL* pptlMask, // POINTL*
BRUSHOBJ* pbo, // BRUSHOBJ*
POINTL* pptlBrush, // POINTL*
uint rop4 // DWORD
);ccall((:EngBitBlt, "GDI32.dll"), stdcall, Int32,
(Ptr{SURFOBJ}, Ptr{SURFOBJ}, Ptr{SURFOBJ}, Ptr{CLIPOBJ}, Ptr{XLATEOBJ}, Ptr{RECTL}, Ptr{POINTL}, Ptr{POINTL}, Ptr{BRUSHOBJ}, Ptr{POINTL}, UInt32),
psoTrg, psoSrc, psoMask, pco, pxlo, prclTrg, pptlSrc, pptlMask, pbo, pptlBrush, rop4)
# psoTrg : SURFOBJ* -> Ptr{SURFOBJ}
# psoSrc : SURFOBJ* -> Ptr{SURFOBJ}
# psoMask : SURFOBJ* -> Ptr{SURFOBJ}
# pco : CLIPOBJ* -> Ptr{CLIPOBJ}
# pxlo : XLATEOBJ* -> Ptr{XLATEOBJ}
# prclTrg : RECTL* -> Ptr{RECTL}
# pptlSrc : POINTL* -> Ptr{POINTL}
# pptlMask : POINTL* -> Ptr{POINTL}
# pbo : BRUSHOBJ* -> Ptr{BRUSHOBJ}
# pptlBrush : POINTL* -> Ptr{POINTL}
# rop4 : DWORD -> UInt32
# stdcall は 32bit のみ意味を持つ(x64 では無視)。local ffi = require("ffi")
ffi.cdef[[
int32_t EngBitBlt(
void* psoTrg,
void* psoSrc,
void* psoMask,
void* pco,
void* pxlo,
void* prclTrg,
void* pptlSrc,
void* pptlMask,
void* pbo,
void* pptlBrush,
uint32_t rop4);
]]
local gdi32 = ffi.load("gdi32")
-- gdi32.EngBitBlt(psoTrg, psoSrc, psoMask, pco, pxlo, prclTrg, pptlSrc, pptlMask, pbo, pptlBrush, rop4)
-- psoTrg : SURFOBJ*
-- psoSrc : SURFOBJ*
-- psoMask : SURFOBJ*
-- pco : CLIPOBJ*
-- pxlo : XLATEOBJ*
-- prclTrg : RECTL*
-- pptlSrc : POINTL*
-- pptlMask : POINTL*
-- pbo : BRUSHOBJ*
-- pptlBrush : POINTL*
-- rop4 : DWORD
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。const koffi = require('koffi');
const lib = koffi.load('GDI32.dll');
const EngBitBlt = lib.func('__stdcall', 'EngBitBlt', 'int32_t', ['void *', 'void *', 'void *', 'void *', 'void *', 'void *', 'void *', 'void *', 'void *', 'void *', 'uint32_t']);
// EngBitBlt(psoTrg, psoSrc, psoMask, pco, pxlo, prclTrg, pptlSrc, pptlMask, pbo, pptlBrush, rop4)
// psoTrg : SURFOBJ* -> 'void *'
// psoSrc : SURFOBJ* -> 'void *'
// psoMask : SURFOBJ* -> 'void *'
// pco : CLIPOBJ* -> 'void *'
// pxlo : XLATEOBJ* -> 'void *'
// prclTrg : RECTL* -> 'void *'
// pptlSrc : POINTL* -> 'void *'
// pptlMask : POINTL* -> 'void *'
// pbo : BRUSHOBJ* -> 'void *'
// pptlBrush : POINTL* -> 'void *'
// rop4 : DWORD -> 'uint32_t'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。const lib = Deno.dlopen("GDI32.dll", {
EngBitBlt: { parameters: ["pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "u32"], result: "i32" },
});
// lib.symbols.EngBitBlt(psoTrg, psoSrc, psoMask, pco, pxlo, prclTrg, pptlSrc, pptlMask, pbo, pptlBrush, rop4)
// psoTrg : SURFOBJ* -> "pointer"
// psoSrc : SURFOBJ* -> "pointer"
// psoMask : SURFOBJ* -> "pointer"
// pco : CLIPOBJ* -> "pointer"
// pxlo : XLATEOBJ* -> "pointer"
// prclTrg : RECTL* -> "pointer"
// pptlSrc : POINTL* -> "pointer"
// pptlMask : POINTL* -> "pointer"
// pbo : BRUSHOBJ* -> "pointer"
// pptlBrush : POINTL* -> "pointer"
// rop4 : DWORD -> "u32"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。<?php
$ffi = FFI::cdef(<<<C
int32_t EngBitBlt(
void* psoTrg,
void* psoSrc,
void* psoMask,
void* pco,
void* pxlo,
void* prclTrg,
void* pptlSrc,
void* pptlMask,
void* pbo,
void* pptlBrush,
uint32_t rop4);
C, "GDI32.dll");
// $ffi->EngBitBlt(psoTrg, psoSrc, psoMask, pco, pxlo, prclTrg, pptlSrc, pptlMask, pbo, pptlBrush, rop4);
// psoTrg : SURFOBJ*
// psoSrc : SURFOBJ*
// psoMask : SURFOBJ*
// pco : CLIPOBJ*
// pxlo : XLATEOBJ*
// prclTrg : RECTL*
// pptlSrc : POINTL*
// pptlMask : POINTL*
// pbo : BRUSHOBJ*
// pptlBrush : POINTL*
// rop4 : 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 EngBitBlt(
Pointer psoTrg, // SURFOBJ*
Pointer psoSrc, // SURFOBJ*
Pointer psoMask, // SURFOBJ*
Pointer pco, // CLIPOBJ*
Pointer pxlo, // XLATEOBJ*
Pointer prclTrg, // RECTL*
Pointer pptlSrc, // POINTL*
Pointer pptlMask, // POINTL*
Pointer pbo, // BRUSHOBJ*
Pointer pptlBrush, // POINTL*
int rop4 // DWORD
);
}@[Link("gdi32")]
lib LibGDI32
fun EngBitBlt = EngBitBlt(
psoTrg : SURFOBJ*, # SURFOBJ*
psoSrc : SURFOBJ*, # SURFOBJ*
psoMask : SURFOBJ*, # SURFOBJ*
pco : CLIPOBJ*, # CLIPOBJ*
pxlo : XLATEOBJ*, # XLATEOBJ*
prclTrg : RECTL*, # RECTL*
pptlSrc : POINTL*, # POINTL*
pptlMask : POINTL*, # POINTL*
pbo : BRUSHOBJ*, # BRUSHOBJ*
pptlBrush : POINTL*, # POINTL*
rop4 : 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 EngBitBltNative = Int32 Function(Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Uint32);
typedef EngBitBltDart = int Function(Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, int);
final EngBitBlt = DynamicLibrary.open('GDI32.dll')
.lookupFunction<EngBitBltNative, EngBitBltDart>('EngBitBlt');
// psoTrg : SURFOBJ* -> Pointer<Void>
// psoSrc : SURFOBJ* -> Pointer<Void>
// psoMask : SURFOBJ* -> Pointer<Void>
// pco : CLIPOBJ* -> Pointer<Void>
// pxlo : XLATEOBJ* -> Pointer<Void>
// prclTrg : RECTL* -> Pointer<Void>
// pptlSrc : POINTL* -> Pointer<Void>
// pptlMask : POINTL* -> Pointer<Void>
// pbo : BRUSHOBJ* -> Pointer<Void>
// pptlBrush : POINTL* -> Pointer<Void>
// rop4 : DWORD -> Uint32
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。{$mode objfpc}{$H+}
function EngBitBlt(
psoTrg: Pointer; // SURFOBJ*
psoSrc: Pointer; // SURFOBJ*
psoMask: Pointer; // SURFOBJ*
pco: Pointer; // CLIPOBJ*
pxlo: Pointer; // XLATEOBJ*
prclTrg: Pointer; // RECTL*
pptlSrc: Pointer; // POINTL*
pptlMask: Pointer; // POINTL*
pbo: Pointer; // BRUSHOBJ*
pptlBrush: Pointer; // POINTL*
rop4: DWORD // DWORD
): BOOL; stdcall;
external 'GDI32.dll' name 'EngBitBlt';import Foreign
import Foreign.C.Types
import Foreign.C.String
foreign import stdcall safe "EngBitBlt"
c_EngBitBlt :: Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Word32 -> IO CInt
-- psoTrg : SURFOBJ* -> Ptr ()
-- psoSrc : SURFOBJ* -> Ptr ()
-- psoMask : SURFOBJ* -> Ptr ()
-- pco : CLIPOBJ* -> Ptr ()
-- pxlo : XLATEOBJ* -> Ptr ()
-- prclTrg : RECTL* -> Ptr ()
-- pptlSrc : POINTL* -> Ptr ()
-- pptlMask : POINTL* -> Ptr ()
-- pbo : BRUSHOBJ* -> Ptr ()
-- pptlBrush : POINTL* -> Ptr ()
-- rop4 : DWORD -> Word32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。open Ctypes
open Foreign
let engbitblt =
foreign "EngBitBlt"
((ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> uint32_t @-> returning int32_t)
(* psoTrg : SURFOBJ* -> (ptr void) *)
(* psoSrc : SURFOBJ* -> (ptr void) *)
(* psoMask : SURFOBJ* -> (ptr void) *)
(* pco : CLIPOBJ* -> (ptr void) *)
(* pxlo : XLATEOBJ* -> (ptr void) *)
(* prclTrg : RECTL* -> (ptr void) *)
(* pptlSrc : POINTL* -> (ptr void) *)
(* pptlMask : POINTL* -> (ptr void) *)
(* pbo : BRUSHOBJ* -> (ptr void) *)
(* pptlBrush : POINTL* -> (ptr void) *)
(* rop4 : 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 ("EngBitBlt" eng-bit-blt :convention :stdcall) :int32
(pso-trg :pointer) ; SURFOBJ*
(pso-src :pointer) ; SURFOBJ*
(pso-mask :pointer) ; SURFOBJ*
(pco :pointer) ; CLIPOBJ*
(pxlo :pointer) ; XLATEOBJ*
(prcl-trg :pointer) ; RECTL*
(pptl-src :pointer) ; POINTL*
(pptl-mask :pointer) ; POINTL*
(pbo :pointer) ; BRUSHOBJ*
(pptl-brush :pointer) ; POINTL*
(rop4 :uint32)) ; DWORD
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。use Win32::API;
my $EngBitBlt = Win32::API::More->new('GDI32',
'BOOL EngBitBlt(LPVOID psoTrg, LPVOID psoSrc, LPVOID psoMask, LPVOID pco, LPVOID pxlo, LPVOID prclTrg, LPVOID pptlSrc, LPVOID pptlMask, LPVOID pbo, LPVOID pptlBrush, DWORD rop4)');
# my $ret = $EngBitBlt->Call($psoTrg, $psoSrc, $psoMask, $pco, $pxlo, $prclTrg, $pptlSrc, $pptlMask, $pbo, $pptlBrush, $rop4);
# psoTrg : SURFOBJ* -> LPVOID
# psoSrc : SURFOBJ* -> LPVOID
# psoMask : SURFOBJ* -> LPVOID
# pco : CLIPOBJ* -> LPVOID
# pxlo : XLATEOBJ* -> LPVOID
# prclTrg : RECTL* -> LPVOID
# pptlSrc : POINTL* -> LPVOID
# pptlMask : POINTL* -> LPVOID
# pbo : BRUSHOBJ* -> LPVOID
# pptlBrush : POINTL* -> LPVOID
# rop4 : DWORD -> DWORD
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。関連項目
- f BRUSHOBJ_pvGetRbrush — ブラシオブジェクトの実現済みブラシへのポインタを取得する。
- f EngAssociateSurface — サーフェスを論理デバイスに関連付ける。