Win32 API 日本語リファレンス
ホーム › System.ApplicationInstallationAndServicing › CreateDeltaA

CreateDeltaA

関数
ソースとターゲットのファイルから差分デルタを作成する(ANSI版)。
DLLmsdelta.dll文字セットANSI (-A)呼出規約winapi

シグネチャ

// msdelta.dll  (ANSI / -A)
#include <windows.h>

BOOL CreateDeltaA(
    LONGLONG FileTypeSet,
    LONGLONG SetFlags,
    LONGLONG ResetFlags,
    LPCSTR lpSourceName,
    LPCSTR lpTargetName,
    LPCSTR lpSourceOptionsName,   // optional
    LPCSTR lpTargetOptionsName,   // optional
    DELTA_INPUT GlobalOptions,
    const FILETIME* lpTargetFileTime,   // optional
    ALG_ID HashAlgId,
    LPCSTR lpDeltaName
);

パラメーター

名前型方向説明
FileTypeSetLONGLONGin差分対象とするファイルタイプの集合。DELTA_FILE_TYPE_SET_* を指定する。
SetFlagsLONGLONGin有効化するデルタ生成オプションフラグ。DELTA_FLAG_* を指定する。
ResetFlagsLONGLONGin無効化するデルタ生成オプションフラグ。既定動作を打ち消すために指定する。
lpSourceNameLPCSTRin差分の基準となるソースファイルのパス。ANSI 文字列で指定する。
lpTargetNameLPCSTRin差分の目標となるターゲットファイルのパス。ANSI 文字列で指定する。
lpSourceOptionsNameLPCSTRinoptionalソース用オプションファイルのパス。ANSI 文字列。不要なら NULL。
lpTargetOptionsNameLPCSTRinoptionalターゲット用オプションファイルのパス。ANSI 文字列。不要なら NULL。
GlobalOptionsDELTA_INPUTin全体に適用するグローバルオプションを保持する DELTA_INPUT 構造体。空可。
lpTargetFileTimeFILETIME*inoptional生成デルタに記録するターゲットのタイムスタンプ。NULL 可。
HashAlgIdALG_IDin署名計算に用いるハッシュアルゴリズム ID(ALG_ID)。CALG_MD5 等を指定する。
lpDeltaNameLPCSTRin生成したデルタを書き込む出力ファイルのパス。ANSI 文字列で指定する。

戻り値の型: BOOL

各言語での呼び出し定義

// msdelta.dll  (ANSI / -A)
#include <windows.h>

BOOL CreateDeltaA(
    LONGLONG FileTypeSet,
    LONGLONG SetFlags,
    LONGLONG ResetFlags,
    LPCSTR lpSourceName,
    LPCSTR lpTargetName,
    LPCSTR lpSourceOptionsName,   // optional
    LPCSTR lpTargetOptionsName,   // optional
    DELTA_INPUT GlobalOptions,
    const FILETIME* lpTargetFileTime,   // optional
    ALG_ID HashAlgId,
    LPCSTR lpDeltaName
);
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("msdelta.dll", CharSet = CharSet.Ansi, ExactSpelling = true)]
static extern bool CreateDeltaA(
    long FileTypeSet,   // LONGLONG
    long SetFlags,   // LONGLONG
    long ResetFlags,   // LONGLONG
    [MarshalAs(UnmanagedType.LPStr)] string lpSourceName,   // LPCSTR
    [MarshalAs(UnmanagedType.LPStr)] string lpTargetName,   // LPCSTR
    [MarshalAs(UnmanagedType.LPStr)] string lpSourceOptionsName,   // LPCSTR optional
    [MarshalAs(UnmanagedType.LPStr)] string lpTargetOptionsName,   // LPCSTR optional
    DELTA_INPUT GlobalOptions,   // DELTA_INPUT
    IntPtr lpTargetFileTime,   // FILETIME* optional
    uint HashAlgId,   // ALG_ID
    [MarshalAs(UnmanagedType.LPStr)] string lpDeltaName   // LPCSTR
);
<DllImport("msdelta.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function CreateDeltaA(
    FileTypeSet As Long,   ' LONGLONG
    SetFlags As Long,   ' LONGLONG
    ResetFlags As Long,   ' LONGLONG
    <MarshalAs(UnmanagedType.LPStr)> lpSourceName As String,   ' LPCSTR
    <MarshalAs(UnmanagedType.LPStr)> lpTargetName As String,   ' LPCSTR
    <MarshalAs(UnmanagedType.LPStr)> lpSourceOptionsName As String,   ' LPCSTR optional
    <MarshalAs(UnmanagedType.LPStr)> lpTargetOptionsName As String,   ' LPCSTR optional
    GlobalOptions As DELTA_INPUT,   ' DELTA_INPUT
    lpTargetFileTime As IntPtr,   ' FILETIME* optional
    HashAlgId As UInteger,   ' ALG_ID
    <MarshalAs(UnmanagedType.LPStr)> lpDeltaName As String   ' LPCSTR
) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
' FileTypeSet : LONGLONG
' SetFlags : LONGLONG
' ResetFlags : LONGLONG
' lpSourceName : LPCSTR
' lpTargetName : LPCSTR
' lpSourceOptionsName : LPCSTR optional
' lpTargetOptionsName : LPCSTR optional
' GlobalOptions : DELTA_INPUT
' lpTargetFileTime : FILETIME* optional
' HashAlgId : ALG_ID
' lpDeltaName : LPCSTR
Declare PtrSafe Function CreateDeltaA Lib "msdelta" ( _
    ByVal FileTypeSet As LongLong, _
    ByVal SetFlags As LongLong, _
    ByVal ResetFlags As LongLong, _
    ByVal lpSourceName As String, _
    ByVal lpTargetName As String, _
    ByVal lpSourceOptionsName As String, _
    ByVal lpTargetOptionsName As String, _
    ByVal GlobalOptions As LongPtr, _
    ByVal lpTargetFileTime As LongPtr, _
    ByVal HashAlgId As Long, _
    ByVal lpDeltaName As String) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

CreateDeltaA = ctypes.windll.msdelta.CreateDeltaA
CreateDeltaA.restype = wintypes.BOOL
CreateDeltaA.argtypes = [
    ctypes.c_longlong,  # FileTypeSet : LONGLONG
    ctypes.c_longlong,  # SetFlags : LONGLONG
    ctypes.c_longlong,  # ResetFlags : LONGLONG
    wintypes.LPCSTR,  # lpSourceName : LPCSTR
    wintypes.LPCSTR,  # lpTargetName : LPCSTR
    wintypes.LPCSTR,  # lpSourceOptionsName : LPCSTR optional
    wintypes.LPCSTR,  # lpTargetOptionsName : LPCSTR optional
    DELTA_INPUT,  # GlobalOptions : DELTA_INPUT
    ctypes.c_void_p,  # lpTargetFileTime : FILETIME* optional
    wintypes.DWORD,  # HashAlgId : ALG_ID
    wintypes.LPCSTR,  # lpDeltaName : LPCSTR
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('msdelta.dll')
CreateDeltaA = Fiddle::Function.new(
  lib['CreateDeltaA'],
  [
    Fiddle::TYPE_LONG_LONG,  # FileTypeSet : LONGLONG
    Fiddle::TYPE_LONG_LONG,  # SetFlags : LONGLONG
    Fiddle::TYPE_LONG_LONG,  # ResetFlags : LONGLONG
    Fiddle::TYPE_VOIDP,  # lpSourceName : LPCSTR
    Fiddle::TYPE_VOIDP,  # lpTargetName : LPCSTR
    Fiddle::TYPE_VOIDP,  # lpSourceOptionsName : LPCSTR optional
    Fiddle::TYPE_VOIDP,  # lpTargetOptionsName : LPCSTR optional
    Fiddle::TYPE_VOIDP,  # GlobalOptions : DELTA_INPUT
    Fiddle::TYPE_VOIDP,  # lpTargetFileTime : FILETIME* optional
    -Fiddle::TYPE_INT,  # HashAlgId : ALG_ID
    Fiddle::TYPE_VOIDP,  # lpDeltaName : LPCSTR
  ],
  Fiddle::TYPE_INT)
#[link(name = "msdelta")]
extern "system" {
    fn CreateDeltaA(
        FileTypeSet: i64,  // LONGLONG
        SetFlags: i64,  // LONGLONG
        ResetFlags: i64,  // LONGLONG
        lpSourceName: *const u8,  // LPCSTR
        lpTargetName: *const u8,  // LPCSTR
        lpSourceOptionsName: *const u8,  // LPCSTR optional
        lpTargetOptionsName: *const u8,  // LPCSTR optional
        GlobalOptions: DELTA_INPUT,  // DELTA_INPUT
        lpTargetFileTime: *const FILETIME,  // FILETIME* optional
        HashAlgId: u32,  // ALG_ID
        lpDeltaName: *const u8  // LPCSTR
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("msdelta.dll", CharSet = CharSet.Ansi)]
public static extern bool CreateDeltaA(long FileTypeSet, long SetFlags, long ResetFlags, [MarshalAs(UnmanagedType.LPStr)] string lpSourceName, [MarshalAs(UnmanagedType.LPStr)] string lpTargetName, [MarshalAs(UnmanagedType.LPStr)] string lpSourceOptionsName, [MarshalAs(UnmanagedType.LPStr)] string lpTargetOptionsName, DELTA_INPUT GlobalOptions, IntPtr lpTargetFileTime, uint HashAlgId, [MarshalAs(UnmanagedType.LPStr)] string lpDeltaName);
"@
$api = Add-Type -MemberDefinition $sig -Name 'msdelta_CreateDeltaA' -Namespace Win32 -PassThru
# $api::CreateDeltaA(FileTypeSet, SetFlags, ResetFlags, lpSourceName, lpTargetName, lpSourceOptionsName, lpTargetOptionsName, GlobalOptions, lpTargetFileTime, HashAlgId, lpDeltaName)
#uselib "msdelta.dll"
#func global CreateDeltaA "CreateDeltaA" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; CreateDeltaA FileTypeSet, SetFlags, ResetFlags, lpSourceName, lpTargetName, lpSourceOptionsName, lpTargetOptionsName, GlobalOptions, varptr(lpTargetFileTime), HashAlgId, lpDeltaName   ; 戻り値は stat
; FileTypeSet : LONGLONG -> "sptr"
; SetFlags : LONGLONG -> "sptr"
; ResetFlags : LONGLONG -> "sptr"
; lpSourceName : LPCSTR -> "sptr"
; lpTargetName : LPCSTR -> "sptr"
; lpSourceOptionsName : LPCSTR optional -> "sptr"
; lpTargetOptionsName : LPCSTR optional -> "sptr"
; GlobalOptions : DELTA_INPUT -> "sptr"
; lpTargetFileTime : FILETIME* optional -> "sptr"
; HashAlgId : ALG_ID -> "sptr"
; lpDeltaName : LPCSTR -> "sptr"
; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。
; ※HSP3.7は int64 引数(64bit値渡し)に非対応です。
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数: 
#uselib "msdelta.dll"
#cfunc global CreateDeltaA "CreateDeltaA" int64, int64, int64, str, str, str, str, int, var, int, str
; res = CreateDeltaA(FileTypeSet, SetFlags, ResetFlags, lpSourceName, lpTargetName, lpSourceOptionsName, lpTargetOptionsName, GlobalOptions, lpTargetFileTime, HashAlgId, lpDeltaName)
; FileTypeSet : LONGLONG -> "int64"
; SetFlags : LONGLONG -> "int64"
; ResetFlags : LONGLONG -> "int64"
; lpSourceName : LPCSTR -> "str"
; lpTargetName : LPCSTR -> "str"
; lpSourceOptionsName : LPCSTR optional -> "str"
; lpTargetOptionsName : LPCSTR optional -> "str"
; GlobalOptions : DELTA_INPUT -> "int"
; lpTargetFileTime : FILETIME* optional -> "var"
; HashAlgId : ALG_ID -> "int"
; lpDeltaName : LPCSTR -> "str"
; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
; ※int64 引数の DLL 値渡しは x64 ランタイム(hsp3_64)のみ対応(x86 は未対応)。
出力引数: 
; BOOL CreateDeltaA(LONGLONG FileTypeSet, LONGLONG SetFlags, LONGLONG ResetFlags, LPCSTR lpSourceName, LPCSTR lpTargetName, LPCSTR lpSourceOptionsName, LPCSTR lpTargetOptionsName, DELTA_INPUT GlobalOptions, FILETIME* lpTargetFileTime, ALG_ID HashAlgId, LPCSTR lpDeltaName)
#uselib "msdelta.dll"
#cfunc global CreateDeltaA "CreateDeltaA" int64, int64, int64, str, str, str, str, int, var, int, str
; res = CreateDeltaA(FileTypeSet, SetFlags, ResetFlags, lpSourceName, lpTargetName, lpSourceOptionsName, lpTargetOptionsName, GlobalOptions, lpTargetFileTime, HashAlgId, lpDeltaName)
; FileTypeSet : LONGLONG -> "int64"
; SetFlags : LONGLONG -> "int64"
; ResetFlags : LONGLONG -> "int64"
; lpSourceName : LPCSTR -> "str"
; lpTargetName : LPCSTR -> "str"
; lpSourceOptionsName : LPCSTR optional -> "str"
; lpTargetOptionsName : LPCSTR optional -> "str"
; GlobalOptions : DELTA_INPUT -> "int"
; lpTargetFileTime : FILETIME* optional -> "var"
; HashAlgId : ALG_ID -> "int"
; lpDeltaName : LPCSTR -> "str"
; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	msdelta = windows.NewLazySystemDLL("msdelta.dll")
	procCreateDeltaA = msdelta.NewProc("CreateDeltaA")
)

// FileTypeSet (LONGLONG), SetFlags (LONGLONG), ResetFlags (LONGLONG), lpSourceName (LPCSTR), lpTargetName (LPCSTR), lpSourceOptionsName (LPCSTR optional), lpTargetOptionsName (LPCSTR optional), GlobalOptions (DELTA_INPUT), lpTargetFileTime (FILETIME* optional), HashAlgId (ALG_ID), lpDeltaName (LPCSTR)
r1, _, err := procCreateDeltaA.Call(
	uintptr(FileTypeSet),
	uintptr(SetFlags),
	uintptr(ResetFlags),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(lpSourceName))),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(lpTargetName))),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(lpSourceOptionsName))),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(lpTargetOptionsName))),
	uintptr(GlobalOptions),
	uintptr(lpTargetFileTime),
	uintptr(HashAlgId),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(lpDeltaName))),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // BOOL
function CreateDeltaA(
  FileTypeSet: Int64;   // LONGLONG
  SetFlags: Int64;   // LONGLONG
  ResetFlags: Int64;   // LONGLONG
  lpSourceName: PAnsiChar;   // LPCSTR
  lpTargetName: PAnsiChar;   // LPCSTR
  lpSourceOptionsName: PAnsiChar;   // LPCSTR optional
  lpTargetOptionsName: PAnsiChar;   // LPCSTR optional
  GlobalOptions: DELTA_INPUT;   // DELTA_INPUT
  lpTargetFileTime: Pointer;   // FILETIME* optional
  HashAlgId: DWORD;   // ALG_ID
  lpDeltaName: PAnsiChar   // LPCSTR
): BOOL; stdcall;
  external 'msdelta.dll' name 'CreateDeltaA';
result := DllCall("msdelta\CreateDeltaA"
    , "Int64", FileTypeSet   ; LONGLONG
    , "Int64", SetFlags   ; LONGLONG
    , "Int64", ResetFlags   ; LONGLONG
    , "AStr", lpSourceName   ; LPCSTR
    , "AStr", lpTargetName   ; LPCSTR
    , "AStr", lpSourceOptionsName   ; LPCSTR optional
    , "AStr", lpTargetOptionsName   ; LPCSTR optional
    , "Ptr", GlobalOptions   ; DELTA_INPUT
    , "Ptr", lpTargetFileTime   ; FILETIME* optional
    , "UInt", HashAlgId   ; ALG_ID
    , "AStr", lpDeltaName   ; LPCSTR
    , "Int")   ; return: BOOL
●CreateDeltaA(FileTypeSet, SetFlags, ResetFlags, lpSourceName, lpTargetName, lpSourceOptionsName, lpTargetOptionsName, GlobalOptions, lpTargetFileTime, HashAlgId, lpDeltaName) = DLL("msdelta.dll", "bool CreateDeltaA(int64, int64, int64, char*, char*, char*, char*, void*, void*, dword, char*)")
# 呼び出し: CreateDeltaA(FileTypeSet, SetFlags, ResetFlags, lpSourceName, lpTargetName, lpSourceOptionsName, lpTargetOptionsName, GlobalOptions, lpTargetFileTime, HashAlgId, lpDeltaName)
# FileTypeSet : LONGLONG -> "int64"
# SetFlags : LONGLONG -> "int64"
# ResetFlags : LONGLONG -> "int64"
# lpSourceName : LPCSTR -> "char*"
# lpTargetName : LPCSTR -> "char*"
# lpSourceOptionsName : LPCSTR optional -> "char*"
# lpTargetOptionsName : LPCSTR optional -> "char*"
# GlobalOptions : DELTA_INPUT -> "void*"
# lpTargetFileTime : FILETIME* optional -> "void*"
# HashAlgId : ALG_ID -> "dword"
# lpDeltaName : LPCSTR -> "char*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "msdelta" fn CreateDeltaA(
    FileTypeSet: i64, // LONGLONG
    SetFlags: i64, // LONGLONG
    ResetFlags: i64, // LONGLONG
    lpSourceName: [*c]const u8, // LPCSTR
    lpTargetName: [*c]const u8, // LPCSTR
    lpSourceOptionsName: [*c]const u8, // LPCSTR optional
    lpTargetOptionsName: [*c]const u8, // LPCSTR optional
    GlobalOptions: DELTA_INPUT, // DELTA_INPUT
    lpTargetFileTime: [*c]FILETIME, // FILETIME* optional
    HashAlgId: u32, // ALG_ID
    lpDeltaName: [*c]const u8 // LPCSTR
) callconv(std.os.windows.WINAPI) i32;
proc CreateDeltaA(
    FileTypeSet: int64,  # LONGLONG
    SetFlags: int64,  # LONGLONG
    ResetFlags: int64,  # LONGLONG
    lpSourceName: cstring,  # LPCSTR
    lpTargetName: cstring,  # LPCSTR
    lpSourceOptionsName: cstring,  # LPCSTR optional
    lpTargetOptionsName: cstring,  # LPCSTR optional
    GlobalOptions: DELTA_INPUT,  # DELTA_INPUT
    lpTargetFileTime: ptr FILETIME,  # FILETIME* optional
    HashAlgId: uint32,  # ALG_ID
    lpDeltaName: cstring  # LPCSTR
): int32 {.importc: "CreateDeltaA", stdcall, dynlib: "msdelta.dll".}
pragma(lib, "msdelta");
extern(Windows)
int CreateDeltaA(
    long FileTypeSet,   // LONGLONG
    long SetFlags,   // LONGLONG
    long ResetFlags,   // LONGLONG
    const(char)* lpSourceName,   // LPCSTR
    const(char)* lpTargetName,   // LPCSTR
    const(char)* lpSourceOptionsName,   // LPCSTR optional
    const(char)* lpTargetOptionsName,   // LPCSTR optional
    DELTA_INPUT GlobalOptions,   // DELTA_INPUT
    FILETIME* lpTargetFileTime,   // FILETIME* optional
    uint HashAlgId,   // ALG_ID
    const(char)* lpDeltaName   // LPCSTR
);
ccall((:CreateDeltaA, "msdelta.dll"), stdcall, Int32,
      (Int64, Int64, Int64, Cstring, Cstring, Cstring, Cstring, DELTA_INPUT, Ptr{FILETIME}, UInt32, Cstring),
      FileTypeSet, SetFlags, ResetFlags, lpSourceName, lpTargetName, lpSourceOptionsName, lpTargetOptionsName, GlobalOptions, lpTargetFileTime, HashAlgId, lpDeltaName)
# FileTypeSet : LONGLONG -> Int64
# SetFlags : LONGLONG -> Int64
# ResetFlags : LONGLONG -> Int64
# lpSourceName : LPCSTR -> Cstring
# lpTargetName : LPCSTR -> Cstring
# lpSourceOptionsName : LPCSTR optional -> Cstring
# lpTargetOptionsName : LPCSTR optional -> Cstring
# GlobalOptions : DELTA_INPUT -> DELTA_INPUT
# lpTargetFileTime : FILETIME* optional -> Ptr{FILETIME}
# HashAlgId : ALG_ID -> UInt32
# lpDeltaName : LPCSTR -> Cstring
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
int32_t CreateDeltaA(
    int64_t FileTypeSet,
    int64_t SetFlags,
    int64_t ResetFlags,
    const char* lpSourceName,
    const char* lpTargetName,
    const char* lpSourceOptionsName,
    const char* lpTargetOptionsName,
    DELTA_INPUT GlobalOptions,
    void* lpTargetFileTime,
    uint32_t HashAlgId,
    const char* lpDeltaName);
]]
local msdelta = ffi.load("msdelta")
-- msdelta.CreateDeltaA(FileTypeSet, SetFlags, ResetFlags, lpSourceName, lpTargetName, lpSourceOptionsName, lpTargetOptionsName, GlobalOptions, lpTargetFileTime, HashAlgId, lpDeltaName)
-- FileTypeSet : LONGLONG
-- SetFlags : LONGLONG
-- ResetFlags : LONGLONG
-- lpSourceName : LPCSTR
-- lpTargetName : LPCSTR
-- lpSourceOptionsName : LPCSTR optional
-- lpTargetOptionsName : LPCSTR optional
-- GlobalOptions : DELTA_INPUT
-- lpTargetFileTime : FILETIME* optional
-- HashAlgId : ALG_ID
-- lpDeltaName : LPCSTR
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('msdelta.dll');
const CreateDeltaA = lib.func('__stdcall', 'CreateDeltaA', 'int32_t', ['int64_t', 'int64_t', 'int64_t', 'str', 'str', 'str', 'str', 'DELTA_INPUT', 'void *', 'uint32_t', 'str']);
// CreateDeltaA(FileTypeSet, SetFlags, ResetFlags, lpSourceName, lpTargetName, lpSourceOptionsName, lpTargetOptionsName, GlobalOptions, lpTargetFileTime, HashAlgId, lpDeltaName)
// FileTypeSet : LONGLONG -> 'int64_t'
// SetFlags : LONGLONG -> 'int64_t'
// ResetFlags : LONGLONG -> 'int64_t'
// lpSourceName : LPCSTR -> 'str'
// lpTargetName : LPCSTR -> 'str'
// lpSourceOptionsName : LPCSTR optional -> 'str'
// lpTargetOptionsName : LPCSTR optional -> 'str'
// GlobalOptions : DELTA_INPUT -> 'DELTA_INPUT'
// lpTargetFileTime : FILETIME* optional -> 'void *'
// HashAlgId : ALG_ID -> 'uint32_t'
// lpDeltaName : LPCSTR -> 'str'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("msdelta.dll", {
  CreateDeltaA: { parameters: ["i64", "i64", "i64", "buffer", "buffer", "buffer", "buffer", "buffer", "pointer", "u32", "buffer"], result: "i32" },
});
// lib.symbols.CreateDeltaA(FileTypeSet, SetFlags, ResetFlags, lpSourceName, lpTargetName, lpSourceOptionsName, lpTargetOptionsName, GlobalOptions, lpTargetFileTime, HashAlgId, lpDeltaName)
// FileTypeSet : LONGLONG -> "i64"
// SetFlags : LONGLONG -> "i64"
// ResetFlags : LONGLONG -> "i64"
// lpSourceName : LPCSTR -> "buffer"
// lpTargetName : LPCSTR -> "buffer"
// lpSourceOptionsName : LPCSTR optional -> "buffer"
// lpTargetOptionsName : LPCSTR optional -> "buffer"
// GlobalOptions : DELTA_INPUT -> "buffer"
// lpTargetFileTime : FILETIME* optional -> "pointer"
// HashAlgId : ALG_ID -> "u32"
// lpDeltaName : LPCSTR -> "buffer"
// 文字列は "buffer"。ANSI(-A) は new TextEncoder() で UTF-8/ANSI バイト列(末尾に \x00)を渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
int32_t CreateDeltaA(
    int64_t FileTypeSet,
    int64_t SetFlags,
    int64_t ResetFlags,
    const char* lpSourceName,
    const char* lpTargetName,
    const char* lpSourceOptionsName,
    const char* lpTargetOptionsName,
    DELTA_INPUT GlobalOptions,
    void* lpTargetFileTime,
    uint32_t HashAlgId,
    const char* lpDeltaName);
C, "msdelta.dll");
// $ffi->CreateDeltaA(FileTypeSet, SetFlags, ResetFlags, lpSourceName, lpTargetName, lpSourceOptionsName, lpTargetOptionsName, GlobalOptions, lpTargetFileTime, HashAlgId, lpDeltaName);
// FileTypeSet : LONGLONG
// SetFlags : LONGLONG
// ResetFlags : LONGLONG
// lpSourceName : LPCSTR
// lpTargetName : LPCSTR
// lpSourceOptionsName : LPCSTR optional
// lpTargetOptionsName : LPCSTR optional
// GlobalOptions : DELTA_INPUT
// lpTargetFileTime : FILETIME* optional
// HashAlgId : ALG_ID
// lpDeltaName : LPCSTR
// 構造体/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 Msdelta extends StdCallLibrary {
    Msdelta INSTANCE = Native.load("msdelta", Msdelta.class, W32APIOptions.ASCII_OPTIONS);
    boolean CreateDeltaA(
        long FileTypeSet,   // LONGLONG
        long SetFlags,   // LONGLONG
        long ResetFlags,   // LONGLONG
        String lpSourceName,   // LPCSTR
        String lpTargetName,   // LPCSTR
        String lpSourceOptionsName,   // LPCSTR optional
        String lpTargetOptionsName,   // LPCSTR optional
        DELTA_INPUT /* extends Structure (by value) */ GlobalOptions,   // DELTA_INPUT
        Pointer lpTargetFileTime,   // FILETIME* optional
        int HashAlgId,   // ALG_ID
        String lpDeltaName   // LPCSTR
    );
}
@[Link("msdelta")]
lib Libmsdelta
  fun CreateDeltaA = CreateDeltaA(
    FileTypeSet : Int64,   # LONGLONG
    SetFlags : Int64,   # LONGLONG
    ResetFlags : Int64,   # LONGLONG
    lpSourceName : UInt8*,   # LPCSTR
    lpTargetName : UInt8*,   # LPCSTR
    lpSourceOptionsName : UInt8*,   # LPCSTR optional
    lpTargetOptionsName : UInt8*,   # LPCSTR optional
    GlobalOptions : DELTA_INPUT,   # DELTA_INPUT
    lpTargetFileTime : FILETIME*,   # FILETIME* optional
    HashAlgId : UInt32,   # ALG_ID
    lpDeltaName : UInt8*   # LPCSTR
  ) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。
import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef CreateDeltaANative = Int32 Function(Int64, Int64, Int64, Pointer<Utf8>, Pointer<Utf8>, Pointer<Utf8>, Pointer<Utf8>, DELTA_INPUT, Pointer<Void>, Uint32, Pointer<Utf8>);
typedef CreateDeltaADart = int Function(int, int, int, Pointer<Utf8>, Pointer<Utf8>, Pointer<Utf8>, Pointer<Utf8>, int, Pointer<Void>, int, Pointer<Utf8>);
final CreateDeltaA = DynamicLibrary.open('msdelta.dll')
    .lookupFunction<CreateDeltaANative, CreateDeltaADart>('CreateDeltaA');
// FileTypeSet : LONGLONG -> Int64
// SetFlags : LONGLONG -> Int64
// ResetFlags : LONGLONG -> Int64
// lpSourceName : LPCSTR -> Pointer<Utf8>
// lpTargetName : LPCSTR -> Pointer<Utf8>
// lpSourceOptionsName : LPCSTR optional -> Pointer<Utf8>
// lpTargetOptionsName : LPCSTR optional -> Pointer<Utf8>
// GlobalOptions : DELTA_INPUT -> DELTA_INPUT
// lpTargetFileTime : FILETIME* optional -> Pointer<Void>
// HashAlgId : ALG_ID -> Uint32
// lpDeltaName : LPCSTR -> Pointer<Utf8>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function CreateDeltaA(
  FileTypeSet: Int64;   // LONGLONG
  SetFlags: Int64;   // LONGLONG
  ResetFlags: Int64;   // LONGLONG
  lpSourceName: PAnsiChar;   // LPCSTR
  lpTargetName: PAnsiChar;   // LPCSTR
  lpSourceOptionsName: PAnsiChar;   // LPCSTR optional
  lpTargetOptionsName: PAnsiChar;   // LPCSTR optional
  GlobalOptions: DELTA_INPUT;   // DELTA_INPUT
  lpTargetFileTime: Pointer;   // FILETIME* optional
  HashAlgId: DWORD;   // ALG_ID
  lpDeltaName: PAnsiChar   // LPCSTR
): BOOL; stdcall;
  external 'msdelta.dll' name 'CreateDeltaA';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "CreateDeltaA"
  c_CreateDeltaA :: Int64 -> Int64 -> Int64 -> CString -> CString -> CString -> CString -> DELTA_INPUT -> Ptr () -> Word32 -> CString -> IO CInt
-- FileTypeSet : LONGLONG -> Int64
-- SetFlags : LONGLONG -> Int64
-- ResetFlags : LONGLONG -> Int64
-- lpSourceName : LPCSTR -> CString
-- lpTargetName : LPCSTR -> CString
-- lpSourceOptionsName : LPCSTR optional -> CString
-- lpTargetOptionsName : LPCSTR optional -> CString
-- GlobalOptions : DELTA_INPUT -> DELTA_INPUT
-- lpTargetFileTime : FILETIME* optional -> Ptr ()
-- HashAlgId : ALG_ID -> Word32
-- lpDeltaName : LPCSTR -> CString
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
-- ※値渡し構造体は GHC FFI で直接渡せません。Ptr で渡すラッパ(C側)経由にしてください。
open Ctypes
open Foreign

let createdeltaa =
  foreign "CreateDeltaA"
    (int64_t @-> int64_t @-> int64_t @-> string @-> string @-> string @-> string @-> DELTA_INPUT @-> (ptr void) @-> uint32_t @-> string @-> returning int32_t)
(* FileTypeSet : LONGLONG -> int64_t *)
(* SetFlags : LONGLONG -> int64_t *)
(* ResetFlags : LONGLONG -> int64_t *)
(* lpSourceName : LPCSTR -> string *)
(* lpTargetName : LPCSTR -> string *)
(* lpSourceOptionsName : LPCSTR optional -> string *)
(* lpTargetOptionsName : LPCSTR optional -> string *)
(* GlobalOptions : DELTA_INPUT -> DELTA_INPUT *)
(* lpTargetFileTime : FILETIME* optional -> (ptr void) *)
(* HashAlgId : ALG_ID -> uint32_t *)
(* lpDeltaName : LPCSTR -> string *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library msdelta (t "msdelta.dll"))
(cffi:use-foreign-library msdelta)

(cffi:defcfun ("CreateDeltaA" create-delta-a :convention :stdcall) :int32
  (file-type-set :int64)   ; LONGLONG
  (set-flags :int64)   ; LONGLONG
  (reset-flags :int64)   ; LONGLONG
  (lp-source-name :string)   ; LPCSTR
  (lp-target-name :string)   ; LPCSTR
  (lp-source-options-name :string)   ; LPCSTR optional
  (lp-target-options-name :string)   ; LPCSTR optional
  (global-options (:struct delta-input))   ; DELTA_INPUT
  (lp-target-file-time :pointer)   ; FILETIME* optional
  (hash-alg-id :uint32)   ; ALG_ID
  (lp-delta-name :string))   ; LPCSTR
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $CreateDeltaA = Win32::API::More->new('msdelta',
    'BOOL CreateDeltaA(INT64 FileTypeSet, INT64 SetFlags, INT64 ResetFlags, LPCSTR lpSourceName, LPCSTR lpTargetName, LPCSTR lpSourceOptionsName, LPCSTR lpTargetOptionsName, LPVOID GlobalOptions, LPVOID lpTargetFileTime, DWORD HashAlgId, LPCSTR lpDeltaName)');
# my $ret = $CreateDeltaA->Call($FileTypeSet, $SetFlags, $ResetFlags, $lpSourceName, $lpTargetName, $lpSourceOptionsName, $lpTargetOptionsName, $GlobalOptions, $lpTargetFileTime, $HashAlgId, $lpDeltaName);
# FileTypeSet : LONGLONG -> INT64
# SetFlags : LONGLONG -> INT64
# ResetFlags : LONGLONG -> INT64
# lpSourceName : LPCSTR -> LPCSTR
# lpTargetName : LPCSTR -> LPCSTR
# lpSourceOptionsName : LPCSTR optional -> LPCSTR
# lpTargetOptionsName : LPCSTR optional -> LPCSTR
# GlobalOptions : DELTA_INPUT -> LPVOID
# lpTargetFileTime : FILETIME* optional -> LPVOID
# HashAlgId : ALG_ID -> DWORD
# lpDeltaName : LPCSTR -> LPCSTR
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

文字セット違い
使用する型