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

EngTransparentBlt

関数
指定色を透過させてサーフェスを転送する。
DLLGDI32.dll呼出規約winapi対応OSWindows 2000 以降

シグネチャ

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

BOOL EngTransparentBlt(
    SURFOBJ* psoDst,
    SURFOBJ* psoSrc,
    CLIPOBJ* pco,   // optional
    XLATEOBJ* pxlo,   // optional
    RECTL* prclDst,
    RECTL* prclSrc,
    DWORD TransColor,
    DWORD bCalledFromBitBlt
);

パラメーター

名前方向説明
psoDstSURFOBJ*in描画先の対象サーフェスを識別する SURFOBJ 構造体へのポインターです。
psoSrcSURFOBJ*inビットブロック転送の転送元サーフェスを識別する SURFOBJ 構造体へのポインターです。
pcoCLIPOBJ*inoptionalCLIPOBJ 構造体へのポインターです。CLIPOBJ_Xxx サービスルーチンは、クリップ領域を矩形の集合として列挙するために提供されています。この列挙により、変更される描画先の領域が制限されます。可能な場合は常に、GDI がクリッピング処理を簡略化します。
pxloXLATEOBJ*inoptional転送元のカラーインデックスを対象サーフェスへ書き込むためにどのように変換すべきかを示す XLATEOBJ 構造体へのポインターです。
prclDstRECTL*in

変更対象となる矩形領域を定義する RECTL 構造体へのポインターです。この矩形は描画先サーフェスの座標系で指定され、左上と右下の 2 点で定義されます。矩形は右下を含みません。つまり、下端と右端はビットブロック転送の対象に含まれません。矩形を定義する 2 点は常に正しく順序付けられています。

ドライバーは、空の描画先矩形を指定して EngTransparentBlt を呼び出してはなりません。

prclSrcRECTL*in

コピー対象となる矩形領域を定義する RECTL 構造体へのポインターです。この矩形は転送元サーフェスの座標系で指定され、左上と右下の 2 点で定義されます。矩形を定義する 2 点は常に正しく順序付けられています。

転送元矩形が転送元サーフェスの範囲を超えることはなく、したがって転送元サーフェスからはみ出すこともありません。

この矩形は、prclDst で定義される描画先矩形にマッピングされます。ドライバーは、空の転送元矩形を指定して EngTransparentBlt を呼び出してはなりません。

TransColorDWORDin転送元サーフェスの形式での物理的な透過色を指定します。これは転送元サーフェスのパレットに変換されたカラーインデックス値です。詳細については Remarks セクションを参照してください。
bCalledFromBitBltDWORDin予約済みです。このパラメーターはゼロに設定する必要があります。

戻り値の型: BOOL

公式ドキュメント

EngTransparentBlt 関数は、透過機能を備えたビットブロック転送 (bit-block transfer) を提供します。

戻り値

EngTransparentBlt は成功すると TRUE を返します。それ以外の場合は FALSE を返します。

解説(Remarks)

ドライバーは、DrvTransparentBlt をフックしており、サポートしていない処理を要求された場合に EngTransparentBlt を呼び出す必要があります。

透過を伴うビットブロック転送は、2 つのデバイス管理サーフェス間、またはデバイス管理サーフェスと GDI 管理の標準形式ビットマップとの間でサポートされます。現在、GDI は BMF_4BPP および BMF_8BPP の転送元サーフェスのみをサポートしています。

転送元サーフェス上で、iTransparentColor によって指定された透過色に一致するピクセルはコピーされません。透過 blt の詳細な説明については、Copying Bitmaps を参照してください。

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

各言語での呼び出し定義

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

BOOL EngTransparentBlt(
    SURFOBJ* psoDst,
    SURFOBJ* psoSrc,
    CLIPOBJ* pco,   // optional
    XLATEOBJ* pxlo,   // optional
    RECTL* prclDst,
    RECTL* prclSrc,
    DWORD TransColor,
    DWORD bCalledFromBitBlt
);
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("GDI32.dll", ExactSpelling = true)]
static extern bool EngTransparentBlt(
    IntPtr psoDst,   // SURFOBJ*
    IntPtr psoSrc,   // SURFOBJ*
    IntPtr pco,   // CLIPOBJ* optional
    IntPtr pxlo,   // XLATEOBJ* optional
    IntPtr prclDst,   // RECTL*
    IntPtr prclSrc,   // RECTL*
    uint TransColor,   // DWORD
    uint bCalledFromBitBlt   // DWORD
);
<DllImport("GDI32.dll", ExactSpelling:=True)>
Public Shared Function EngTransparentBlt(
    psoDst As IntPtr,   ' SURFOBJ*
    psoSrc As IntPtr,   ' SURFOBJ*
    pco As IntPtr,   ' CLIPOBJ* optional
    pxlo As IntPtr,   ' XLATEOBJ* optional
    prclDst As IntPtr,   ' RECTL*
    prclSrc As IntPtr,   ' RECTL*
    TransColor As UInteger,   ' DWORD
    bCalledFromBitBlt As UInteger   ' DWORD
) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
' psoDst : SURFOBJ*
' psoSrc : SURFOBJ*
' pco : CLIPOBJ* optional
' pxlo : XLATEOBJ* optional
' prclDst : RECTL*
' prclSrc : RECTL*
' TransColor : DWORD
' bCalledFromBitBlt : DWORD
Declare PtrSafe Function EngTransparentBlt Lib "gdi32" ( _
    ByVal psoDst As LongPtr, _
    ByVal psoSrc As LongPtr, _
    ByVal pco As LongPtr, _
    ByVal pxlo As LongPtr, _
    ByVal prclDst As LongPtr, _
    ByVal prclSrc As LongPtr, _
    ByVal TransColor As Long, _
    ByVal bCalledFromBitBlt As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

EngTransparentBlt = ctypes.windll.gdi32.EngTransparentBlt
EngTransparentBlt.restype = wintypes.BOOL
EngTransparentBlt.argtypes = [
    ctypes.c_void_p,  # psoDst : SURFOBJ*
    ctypes.c_void_p,  # psoSrc : SURFOBJ*
    ctypes.c_void_p,  # pco : CLIPOBJ* optional
    ctypes.c_void_p,  # pxlo : XLATEOBJ* optional
    ctypes.c_void_p,  # prclDst : RECTL*
    ctypes.c_void_p,  # prclSrc : RECTL*
    wintypes.DWORD,  # TransColor : DWORD
    wintypes.DWORD,  # bCalledFromBitBlt : DWORD
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('GDI32.dll')
EngTransparentBlt = Fiddle::Function.new(
  lib['EngTransparentBlt'],
  [
    Fiddle::TYPE_VOIDP,  # psoDst : SURFOBJ*
    Fiddle::TYPE_VOIDP,  # psoSrc : SURFOBJ*
    Fiddle::TYPE_VOIDP,  # pco : CLIPOBJ* optional
    Fiddle::TYPE_VOIDP,  # pxlo : XLATEOBJ* optional
    Fiddle::TYPE_VOIDP,  # prclDst : RECTL*
    Fiddle::TYPE_VOIDP,  # prclSrc : RECTL*
    -Fiddle::TYPE_INT,  # TransColor : DWORD
    -Fiddle::TYPE_INT,  # bCalledFromBitBlt : DWORD
  ],
  Fiddle::TYPE_INT)
#[link(name = "gdi32")]
extern "system" {
    fn EngTransparentBlt(
        psoDst: *mut SURFOBJ,  // SURFOBJ*
        psoSrc: *mut SURFOBJ,  // SURFOBJ*
        pco: *mut CLIPOBJ,  // CLIPOBJ* optional
        pxlo: *mut XLATEOBJ,  // XLATEOBJ* optional
        prclDst: *mut RECTL,  // RECTL*
        prclSrc: *mut RECTL,  // RECTL*
        TransColor: u32,  // DWORD
        bCalledFromBitBlt: 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 EngTransparentBlt(IntPtr psoDst, IntPtr psoSrc, IntPtr pco, IntPtr pxlo, IntPtr prclDst, IntPtr prclSrc, uint TransColor, uint bCalledFromBitBlt);
"@
$api = Add-Type -MemberDefinition $sig -Name 'GDI32_EngTransparentBlt' -Namespace Win32 -PassThru
# $api::EngTransparentBlt(psoDst, psoSrc, pco, pxlo, prclDst, prclSrc, TransColor, bCalledFromBitBlt)
#uselib "GDI32.dll"
#func global EngTransparentBlt "EngTransparentBlt" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; EngTransparentBlt varptr(psoDst), varptr(psoSrc), varptr(pco), varptr(pxlo), varptr(prclDst), varptr(prclSrc), TransColor, bCalledFromBitBlt   ; 戻り値は stat
; psoDst : SURFOBJ* -> "sptr"
; psoSrc : SURFOBJ* -> "sptr"
; pco : CLIPOBJ* optional -> "sptr"
; pxlo : XLATEOBJ* optional -> "sptr"
; prclDst : RECTL* -> "sptr"
; prclSrc : RECTL* -> "sptr"
; TransColor : DWORD -> "sptr"
; bCalledFromBitBlt : DWORD -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "GDI32.dll"
#cfunc global EngTransparentBlt "EngTransparentBlt" var, var, var, var, var, var, int, int
; res = EngTransparentBlt(psoDst, psoSrc, pco, pxlo, prclDst, prclSrc, TransColor, bCalledFromBitBlt)
; psoDst : SURFOBJ* -> "var"
; psoSrc : SURFOBJ* -> "var"
; pco : CLIPOBJ* optional -> "var"
; pxlo : XLATEOBJ* optional -> "var"
; prclDst : RECTL* -> "var"
; prclSrc : RECTL* -> "var"
; TransColor : DWORD -> "int"
; bCalledFromBitBlt : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; BOOL EngTransparentBlt(SURFOBJ* psoDst, SURFOBJ* psoSrc, CLIPOBJ* pco, XLATEOBJ* pxlo, RECTL* prclDst, RECTL* prclSrc, DWORD TransColor, DWORD bCalledFromBitBlt)
#uselib "GDI32.dll"
#cfunc global EngTransparentBlt "EngTransparentBlt" var, var, var, var, var, var, int, int
; res = EngTransparentBlt(psoDst, psoSrc, pco, pxlo, prclDst, prclSrc, TransColor, bCalledFromBitBlt)
; psoDst : SURFOBJ* -> "var"
; psoSrc : SURFOBJ* -> "var"
; pco : CLIPOBJ* optional -> "var"
; pxlo : XLATEOBJ* optional -> "var"
; prclDst : RECTL* -> "var"
; prclSrc : RECTL* -> "var"
; TransColor : DWORD -> "int"
; bCalledFromBitBlt : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	gdi32 = windows.NewLazySystemDLL("GDI32.dll")
	procEngTransparentBlt = gdi32.NewProc("EngTransparentBlt")
)

// psoDst (SURFOBJ*), psoSrc (SURFOBJ*), pco (CLIPOBJ* optional), pxlo (XLATEOBJ* optional), prclDst (RECTL*), prclSrc (RECTL*), TransColor (DWORD), bCalledFromBitBlt (DWORD)
r1, _, err := procEngTransparentBlt.Call(
	uintptr(psoDst),
	uintptr(psoSrc),
	uintptr(pco),
	uintptr(pxlo),
	uintptr(prclDst),
	uintptr(prclSrc),
	uintptr(TransColor),
	uintptr(bCalledFromBitBlt),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // BOOL
function EngTransparentBlt(
  psoDst: Pointer;   // SURFOBJ*
  psoSrc: Pointer;   // SURFOBJ*
  pco: Pointer;   // CLIPOBJ* optional
  pxlo: Pointer;   // XLATEOBJ* optional
  prclDst: Pointer;   // RECTL*
  prclSrc: Pointer;   // RECTL*
  TransColor: DWORD;   // DWORD
  bCalledFromBitBlt: DWORD   // DWORD
): BOOL; stdcall;
  external 'GDI32.dll' name 'EngTransparentBlt';
result := DllCall("GDI32\EngTransparentBlt"
    , "Ptr", psoDst   ; SURFOBJ*
    , "Ptr", psoSrc   ; SURFOBJ*
    , "Ptr", pco   ; CLIPOBJ* optional
    , "Ptr", pxlo   ; XLATEOBJ* optional
    , "Ptr", prclDst   ; RECTL*
    , "Ptr", prclSrc   ; RECTL*
    , "UInt", TransColor   ; DWORD
    , "UInt", bCalledFromBitBlt   ; DWORD
    , "Int")   ; return: BOOL
●EngTransparentBlt(psoDst, psoSrc, pco, pxlo, prclDst, prclSrc, TransColor, bCalledFromBitBlt) = DLL("GDI32.dll", "bool EngTransparentBlt(void*, void*, void*, void*, void*, void*, dword, dword)")
# 呼び出し: EngTransparentBlt(psoDst, psoSrc, pco, pxlo, prclDst, prclSrc, TransColor, bCalledFromBitBlt)
# psoDst : SURFOBJ* -> "void*"
# psoSrc : SURFOBJ* -> "void*"
# pco : CLIPOBJ* optional -> "void*"
# pxlo : XLATEOBJ* optional -> "void*"
# prclDst : RECTL* -> "void*"
# prclSrc : RECTL* -> "void*"
# TransColor : DWORD -> "dword"
# bCalledFromBitBlt : DWORD -> "dword"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

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

foreign import stdcall safe "EngTransparentBlt"
  c_EngTransparentBlt :: Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Word32 -> Word32 -> IO CInt
-- psoDst : SURFOBJ* -> Ptr ()
-- psoSrc : SURFOBJ* -> Ptr ()
-- pco : CLIPOBJ* optional -> Ptr ()
-- pxlo : XLATEOBJ* optional -> Ptr ()
-- prclDst : RECTL* -> Ptr ()
-- prclSrc : RECTL* -> Ptr ()
-- TransColor : DWORD -> Word32
-- bCalledFromBitBlt : DWORD -> Word32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let engtransparentblt =
  foreign "EngTransparentBlt"
    ((ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> uint32_t @-> uint32_t @-> returning int32_t)
(* psoDst : SURFOBJ* -> (ptr void) *)
(* psoSrc : SURFOBJ* -> (ptr void) *)
(* pco : CLIPOBJ* optional -> (ptr void) *)
(* pxlo : XLATEOBJ* optional -> (ptr void) *)
(* prclDst : RECTL* -> (ptr void) *)
(* prclSrc : RECTL* -> (ptr void) *)
(* TransColor : DWORD -> uint32_t *)
(* bCalledFromBitBlt : 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 ("EngTransparentBlt" eng-transparent-blt :convention :stdcall) :int32
  (pso-dst :pointer)   ; SURFOBJ*
  (pso-src :pointer)   ; SURFOBJ*
  (pco :pointer)   ; CLIPOBJ* optional
  (pxlo :pointer)   ; XLATEOBJ* optional
  (prcl-dst :pointer)   ; RECTL*
  (prcl-src :pointer)   ; RECTL*
  (trans-color :uint32)   ; DWORD
  (b-called-from-bit-blt :uint32))   ; DWORD
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $EngTransparentBlt = Win32::API::More->new('GDI32',
    'BOOL EngTransparentBlt(LPVOID psoDst, LPVOID psoSrc, LPVOID pco, LPVOID pxlo, LPVOID prclDst, LPVOID prclSrc, DWORD TransColor, DWORD bCalledFromBitBlt)');
# my $ret = $EngTransparentBlt->Call($psoDst, $psoSrc, $pco, $pxlo, $prclDst, $prclSrc, $TransColor, $bCalledFromBitBlt);
# psoDst : SURFOBJ* -> LPVOID
# psoSrc : SURFOBJ* -> LPVOID
# pco : CLIPOBJ* optional -> LPVOID
# pxlo : XLATEOBJ* optional -> LPVOID
# prclDst : RECTL* -> LPVOID
# prclSrc : RECTL* -> LPVOID
# TransColor : DWORD -> DWORD
# bCalledFromBitBlt : DWORD -> DWORD
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

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