ホーム › Networking.ActiveDirectory › DsReplicaModifyA
DsReplicaModifyA
関数レプリケーションリンクの設定を変更する(ANSI版)。
シグネチャ
// NTDSAPI.dll (ANSI / -A)
#include <windows.h>
DWORD DsReplicaModifyA(
HANDLE hDS,
LPCSTR NameContext,
const GUID* pUuidSourceDsa, // optional
LPCSTR TransportDn, // optional
LPCSTR SourceDsaAddress,
const SCHEDULE* pSchedule, // optional
DWORD ReplicaFlags, // optional
DWORD ModifyFields,
DWORD Options
);パラメーター
| 名前 | 型 | 方向 | 説明 |
|---|---|---|---|
| hDS | HANDLE | in | 操作に用いるディレクトリサービスバインドハンドル。 |
| NameContext | LPCSTR | in | 変更対象の名前付けコンテキストのDN(ANSI)。 |
| pUuidSourceDsa | GUID* | inoptional | 変更対象の複製元DSAのオブジェクトGUIDへのポインタ。 |
| TransportDn | LPCSTR | optional | サイト間トランスポートのDN。NULL可。 |
| SourceDsaAddress | LPCSTR | in | 複製元DSAのネットワークアドレス。 |
| pSchedule | SCHEDULE* | inoptional | 新しい複製スケジュールのSCHEDULE構造体へのポインタ。NULL可。 |
| ReplicaFlags | DWORD | optional | 設定する複製リンクのフラグ値。 |
| ModifyFields | DWORD | in | どのフィールドを変更するかを示すDS_REPMOD_*マスク。 |
| Options | DWORD | in | 変更動作を制御するフラグ。 |
戻り値の型: DWORD
各言語での呼び出し定義
// NTDSAPI.dll (ANSI / -A)
#include <windows.h>
DWORD DsReplicaModifyA(
HANDLE hDS,
LPCSTR NameContext,
const GUID* pUuidSourceDsa, // optional
LPCSTR TransportDn, // optional
LPCSTR SourceDsaAddress,
const SCHEDULE* pSchedule, // optional
DWORD ReplicaFlags, // optional
DWORD ModifyFields,
DWORD Options
);[DllImport("NTDSAPI.dll", CharSet = CharSet.Ansi, ExactSpelling = true)]
static extern uint DsReplicaModifyA(
IntPtr hDS, // HANDLE
[MarshalAs(UnmanagedType.LPStr)] string NameContext, // LPCSTR
IntPtr pUuidSourceDsa, // GUID* optional
[MarshalAs(UnmanagedType.LPStr)] string TransportDn, // LPCSTR optional
[MarshalAs(UnmanagedType.LPStr)] string SourceDsaAddress, // LPCSTR
IntPtr pSchedule, // SCHEDULE* optional
uint ReplicaFlags, // DWORD optional
uint ModifyFields, // DWORD
uint Options // DWORD
);<DllImport("NTDSAPI.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function DsReplicaModifyA(
hDS As IntPtr, ' HANDLE
<MarshalAs(UnmanagedType.LPStr)> NameContext As String, ' LPCSTR
pUuidSourceDsa As IntPtr, ' GUID* optional
<MarshalAs(UnmanagedType.LPStr)> TransportDn As String, ' LPCSTR optional
<MarshalAs(UnmanagedType.LPStr)> SourceDsaAddress As String, ' LPCSTR
pSchedule As IntPtr, ' SCHEDULE* optional
ReplicaFlags As UInteger, ' DWORD optional
ModifyFields As UInteger, ' DWORD
Options As UInteger ' DWORD
) As UInteger
End Function' hDS : HANDLE
' NameContext : LPCSTR
' pUuidSourceDsa : GUID* optional
' TransportDn : LPCSTR optional
' SourceDsaAddress : LPCSTR
' pSchedule : SCHEDULE* optional
' ReplicaFlags : DWORD optional
' ModifyFields : DWORD
' Options : DWORD
Declare PtrSafe Function DsReplicaModifyA Lib "ntdsapi" ( _
ByVal hDS As LongPtr, _
ByVal NameContext As String, _
ByVal pUuidSourceDsa As LongPtr, _
ByVal TransportDn As String, _
ByVal SourceDsaAddress As String, _
ByVal pSchedule As LongPtr, _
ByVal ReplicaFlags As Long, _
ByVal ModifyFields As Long, _
ByVal Options As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。import ctypes
from ctypes import wintypes
DsReplicaModifyA = ctypes.windll.ntdsapi.DsReplicaModifyA
DsReplicaModifyA.restype = wintypes.DWORD
DsReplicaModifyA.argtypes = [
wintypes.HANDLE, # hDS : HANDLE
wintypes.LPCSTR, # NameContext : LPCSTR
ctypes.c_void_p, # pUuidSourceDsa : GUID* optional
wintypes.LPCSTR, # TransportDn : LPCSTR optional
wintypes.LPCSTR, # SourceDsaAddress : LPCSTR
ctypes.c_void_p, # pSchedule : SCHEDULE* optional
wintypes.DWORD, # ReplicaFlags : DWORD optional
wintypes.DWORD, # ModifyFields : DWORD
wintypes.DWORD, # Options : DWORD
]require 'fiddle'
require 'fiddle/import'
lib = Fiddle.dlopen('NTDSAPI.dll')
DsReplicaModifyA = Fiddle::Function.new(
lib['DsReplicaModifyA'],
[
Fiddle::TYPE_VOIDP, # hDS : HANDLE
Fiddle::TYPE_VOIDP, # NameContext : LPCSTR
Fiddle::TYPE_VOIDP, # pUuidSourceDsa : GUID* optional
Fiddle::TYPE_VOIDP, # TransportDn : LPCSTR optional
Fiddle::TYPE_VOIDP, # SourceDsaAddress : LPCSTR
Fiddle::TYPE_VOIDP, # pSchedule : SCHEDULE* optional
-Fiddle::TYPE_INT, # ReplicaFlags : DWORD optional
-Fiddle::TYPE_INT, # ModifyFields : DWORD
-Fiddle::TYPE_INT, # Options : DWORD
],
-Fiddle::TYPE_INT)#[link(name = "ntdsapi")]
extern "system" {
fn DsReplicaModifyA(
hDS: *mut core::ffi::c_void, // HANDLE
NameContext: *const u8, // LPCSTR
pUuidSourceDsa: *const GUID, // GUID* optional
TransportDn: *const u8, // LPCSTR optional
SourceDsaAddress: *const u8, // LPCSTR
pSchedule: *const SCHEDULE, // SCHEDULE* optional
ReplicaFlags: u32, // DWORD optional
ModifyFields: u32, // DWORD
Options: u32 // DWORD
) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.$sig = @"
[DllImport("NTDSAPI.dll", CharSet = CharSet.Ansi)]
public static extern uint DsReplicaModifyA(IntPtr hDS, [MarshalAs(UnmanagedType.LPStr)] string NameContext, IntPtr pUuidSourceDsa, [MarshalAs(UnmanagedType.LPStr)] string TransportDn, [MarshalAs(UnmanagedType.LPStr)] string SourceDsaAddress, IntPtr pSchedule, uint ReplicaFlags, uint ModifyFields, uint Options);
"@
$api = Add-Type -MemberDefinition $sig -Name 'NTDSAPI_DsReplicaModifyA' -Namespace Win32 -PassThru
# $api::DsReplicaModifyA(hDS, NameContext, pUuidSourceDsa, TransportDn, SourceDsaAddress, pSchedule, ReplicaFlags, ModifyFields, Options)#uselib "NTDSAPI.dll"
#func global DsReplicaModifyA "DsReplicaModifyA" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; DsReplicaModifyA hDS, NameContext, varptr(pUuidSourceDsa), TransportDn, SourceDsaAddress, varptr(pSchedule), ReplicaFlags, ModifyFields, Options ; 戻り値は stat
; hDS : HANDLE -> "sptr"
; NameContext : LPCSTR -> "sptr"
; pUuidSourceDsa : GUID* optional -> "sptr"
; TransportDn : LPCSTR optional -> "sptr"
; SourceDsaAddress : LPCSTR -> "sptr"
; pSchedule : SCHEDULE* optional -> "sptr"
; ReplicaFlags : DWORD optional -> "sptr"
; ModifyFields : DWORD -> "sptr"
; Options : DWORD -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。出力引数:
#uselib "NTDSAPI.dll" #cfunc global DsReplicaModifyA "DsReplicaModifyA" sptr, str, var, str, str, var, int, int, int ; res = DsReplicaModifyA(hDS, NameContext, pUuidSourceDsa, TransportDn, SourceDsaAddress, pSchedule, ReplicaFlags, ModifyFields, Options) ; hDS : HANDLE -> "sptr" ; NameContext : LPCSTR -> "str" ; pUuidSourceDsa : GUID* optional -> "var" ; TransportDn : LPCSTR optional -> "str" ; SourceDsaAddress : LPCSTR -> "str" ; pSchedule : SCHEDULE* optional -> "var" ; ReplicaFlags : DWORD optional -> "int" ; ModifyFields : DWORD -> "int" ; Options : DWORD -> "int" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "NTDSAPI.dll" #cfunc global DsReplicaModifyA "DsReplicaModifyA" sptr, str, sptr, str, str, sptr, int, int, int ; res = DsReplicaModifyA(hDS, NameContext, varptr(pUuidSourceDsa), TransportDn, SourceDsaAddress, varptr(pSchedule), ReplicaFlags, ModifyFields, Options) ; hDS : HANDLE -> "sptr" ; NameContext : LPCSTR -> "str" ; pUuidSourceDsa : GUID* optional -> "sptr" ; TransportDn : LPCSTR optional -> "str" ; SourceDsaAddress : LPCSTR -> "str" ; pSchedule : SCHEDULE* optional -> "sptr" ; ReplicaFlags : DWORD optional -> "int" ; ModifyFields : DWORD -> "int" ; Options : DWORD -> "int" ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
出力引数:
; DWORD DsReplicaModifyA(HANDLE hDS, LPCSTR NameContext, GUID* pUuidSourceDsa, LPCSTR TransportDn, LPCSTR SourceDsaAddress, SCHEDULE* pSchedule, DWORD ReplicaFlags, DWORD ModifyFields, DWORD Options) #uselib "NTDSAPI.dll" #cfunc global DsReplicaModifyA "DsReplicaModifyA" intptr, str, var, str, str, var, int, int, int ; res = DsReplicaModifyA(hDS, NameContext, pUuidSourceDsa, TransportDn, SourceDsaAddress, pSchedule, ReplicaFlags, ModifyFields, Options) ; hDS : HANDLE -> "intptr" ; NameContext : LPCSTR -> "str" ; pUuidSourceDsa : GUID* optional -> "var" ; TransportDn : LPCSTR optional -> "str" ; SourceDsaAddress : LPCSTR -> "str" ; pSchedule : SCHEDULE* optional -> "var" ; ReplicaFlags : DWORD optional -> "int" ; ModifyFields : DWORD -> "int" ; Options : DWORD -> "int" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; DWORD DsReplicaModifyA(HANDLE hDS, LPCSTR NameContext, GUID* pUuidSourceDsa, LPCSTR TransportDn, LPCSTR SourceDsaAddress, SCHEDULE* pSchedule, DWORD ReplicaFlags, DWORD ModifyFields, DWORD Options) #uselib "NTDSAPI.dll" #cfunc global DsReplicaModifyA "DsReplicaModifyA" intptr, str, intptr, str, str, intptr, int, int, int ; res = DsReplicaModifyA(hDS, NameContext, varptr(pUuidSourceDsa), TransportDn, SourceDsaAddress, varptr(pSchedule), ReplicaFlags, ModifyFields, Options) ; hDS : HANDLE -> "intptr" ; NameContext : LPCSTR -> "str" ; pUuidSourceDsa : GUID* optional -> "intptr" ; TransportDn : LPCSTR optional -> "str" ; SourceDsaAddress : LPCSTR -> "str" ; pSchedule : SCHEDULE* optional -> "intptr" ; ReplicaFlags : DWORD optional -> "int" ; ModifyFields : DWORD -> "int" ; Options : DWORD -> "int" ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。
import (
"golang.org/x/sys/windows"
"unsafe"
)
var (
ntdsapi = windows.NewLazySystemDLL("NTDSAPI.dll")
procDsReplicaModifyA = ntdsapi.NewProc("DsReplicaModifyA")
)
// hDS (HANDLE), NameContext (LPCSTR), pUuidSourceDsa (GUID* optional), TransportDn (LPCSTR optional), SourceDsaAddress (LPCSTR), pSchedule (SCHEDULE* optional), ReplicaFlags (DWORD optional), ModifyFields (DWORD), Options (DWORD)
r1, _, err := procDsReplicaModifyA.Call(
uintptr(hDS),
uintptr(unsafe.Pointer(windows.BytePtrFromString(NameContext))),
uintptr(pUuidSourceDsa),
uintptr(unsafe.Pointer(windows.BytePtrFromString(TransportDn))),
uintptr(unsafe.Pointer(windows.BytePtrFromString(SourceDsaAddress))),
uintptr(pSchedule),
uintptr(ReplicaFlags),
uintptr(ModifyFields),
uintptr(Options),
)
_ = err // syscall.Errno (valid when the call sets last-error)
_ = r1 // DWORDfunction DsReplicaModifyA(
hDS: THandle; // HANDLE
NameContext: PAnsiChar; // LPCSTR
pUuidSourceDsa: PGUID; // GUID* optional
TransportDn: PAnsiChar; // LPCSTR optional
SourceDsaAddress: PAnsiChar; // LPCSTR
pSchedule: Pointer; // SCHEDULE* optional
ReplicaFlags: DWORD; // DWORD optional
ModifyFields: DWORD; // DWORD
Options: DWORD // DWORD
): DWORD; stdcall;
external 'NTDSAPI.dll' name 'DsReplicaModifyA';result := DllCall("NTDSAPI\DsReplicaModifyA"
, "Ptr", hDS ; HANDLE
, "AStr", NameContext ; LPCSTR
, "Ptr", pUuidSourceDsa ; GUID* optional
, "AStr", TransportDn ; LPCSTR optional
, "AStr", SourceDsaAddress ; LPCSTR
, "Ptr", pSchedule ; SCHEDULE* optional
, "UInt", ReplicaFlags ; DWORD optional
, "UInt", ModifyFields ; DWORD
, "UInt", Options ; DWORD
, "UInt") ; return: DWORD●DsReplicaModifyA(hDS, NameContext, pUuidSourceDsa, TransportDn, SourceDsaAddress, pSchedule, ReplicaFlags, ModifyFields, Options) = DLL("NTDSAPI.dll", "dword DsReplicaModifyA(void*, char*, void*, char*, char*, void*, dword, dword, dword)")
# 呼び出し: DsReplicaModifyA(hDS, NameContext, pUuidSourceDsa, TransportDn, SourceDsaAddress, pSchedule, ReplicaFlags, ModifyFields, Options)
# hDS : HANDLE -> "void*"
# NameContext : LPCSTR -> "char*"
# pUuidSourceDsa : GUID* optional -> "void*"
# TransportDn : LPCSTR optional -> "char*"
# SourceDsaAddress : LPCSTR -> "char*"
# pSchedule : SCHEDULE* optional -> "void*"
# ReplicaFlags : DWORD optional -> "dword"
# ModifyFields : DWORD -> "dword"
# Options : DWORD -> "dword"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。const std = @import("std");
extern "ntdsapi" fn DsReplicaModifyA(
hDS: ?*anyopaque, // HANDLE
NameContext: [*c]const u8, // LPCSTR
pUuidSourceDsa: [*c]GUID, // GUID* optional
TransportDn: [*c]const u8, // LPCSTR optional
SourceDsaAddress: [*c]const u8, // LPCSTR
pSchedule: [*c]SCHEDULE, // SCHEDULE* optional
ReplicaFlags: u32, // DWORD optional
ModifyFields: u32, // DWORD
Options: u32 // DWORD
) callconv(std.os.windows.WINAPI) u32;proc DsReplicaModifyA(
hDS: pointer, # HANDLE
NameContext: cstring, # LPCSTR
pUuidSourceDsa: ptr GUID, # GUID* optional
TransportDn: cstring, # LPCSTR optional
SourceDsaAddress: cstring, # LPCSTR
pSchedule: ptr SCHEDULE, # SCHEDULE* optional
ReplicaFlags: uint32, # DWORD optional
ModifyFields: uint32, # DWORD
Options: uint32 # DWORD
): uint32 {.importc: "DsReplicaModifyA", stdcall, dynlib: "NTDSAPI.dll".}pragma(lib, "ntdsapi");
extern(Windows)
uint DsReplicaModifyA(
void* hDS, // HANDLE
const(char)* NameContext, // LPCSTR
GUID* pUuidSourceDsa, // GUID* optional
const(char)* TransportDn, // LPCSTR optional
const(char)* SourceDsaAddress, // LPCSTR
SCHEDULE* pSchedule, // SCHEDULE* optional
uint ReplicaFlags, // DWORD optional
uint ModifyFields, // DWORD
uint Options // DWORD
);ccall((:DsReplicaModifyA, "NTDSAPI.dll"), stdcall, UInt32,
(Ptr{Cvoid}, Cstring, Ptr{GUID}, Cstring, Cstring, Ptr{SCHEDULE}, UInt32, UInt32, UInt32),
hDS, NameContext, pUuidSourceDsa, TransportDn, SourceDsaAddress, pSchedule, ReplicaFlags, ModifyFields, Options)
# hDS : HANDLE -> Ptr{Cvoid}
# NameContext : LPCSTR -> Cstring
# pUuidSourceDsa : GUID* optional -> Ptr{GUID}
# TransportDn : LPCSTR optional -> Cstring
# SourceDsaAddress : LPCSTR -> Cstring
# pSchedule : SCHEDULE* optional -> Ptr{SCHEDULE}
# ReplicaFlags : DWORD optional -> UInt32
# ModifyFields : DWORD -> UInt32
# Options : DWORD -> UInt32
# stdcall は 32bit のみ意味を持つ(x64 では無視)。local ffi = require("ffi")
ffi.cdef[[
uint32_t DsReplicaModifyA(
void* hDS,
const char* NameContext,
void* pUuidSourceDsa,
const char* TransportDn,
const char* SourceDsaAddress,
void* pSchedule,
uint32_t ReplicaFlags,
uint32_t ModifyFields,
uint32_t Options);
]]
local ntdsapi = ffi.load("ntdsapi")
-- ntdsapi.DsReplicaModifyA(hDS, NameContext, pUuidSourceDsa, TransportDn, SourceDsaAddress, pSchedule, ReplicaFlags, ModifyFields, Options)
-- hDS : HANDLE
-- NameContext : LPCSTR
-- pUuidSourceDsa : GUID* optional
-- TransportDn : LPCSTR optional
-- SourceDsaAddress : LPCSTR
-- pSchedule : SCHEDULE* optional
-- ReplicaFlags : DWORD optional
-- ModifyFields : DWORD
-- Options : DWORD
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。const koffi = require('koffi');
const lib = koffi.load('NTDSAPI.dll');
const DsReplicaModifyA = lib.func('__stdcall', 'DsReplicaModifyA', 'uint32_t', ['void *', 'str', 'void *', 'str', 'str', 'void *', 'uint32_t', 'uint32_t', 'uint32_t']);
// DsReplicaModifyA(hDS, NameContext, pUuidSourceDsa, TransportDn, SourceDsaAddress, pSchedule, ReplicaFlags, ModifyFields, Options)
// hDS : HANDLE -> 'void *'
// NameContext : LPCSTR -> 'str'
// pUuidSourceDsa : GUID* optional -> 'void *'
// TransportDn : LPCSTR optional -> 'str'
// SourceDsaAddress : LPCSTR -> 'str'
// pSchedule : SCHEDULE* optional -> 'void *'
// ReplicaFlags : DWORD optional -> 'uint32_t'
// ModifyFields : DWORD -> 'uint32_t'
// Options : DWORD -> 'uint32_t'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。const lib = Deno.dlopen("NTDSAPI.dll", {
DsReplicaModifyA: { parameters: ["pointer", "buffer", "pointer", "buffer", "buffer", "pointer", "u32", "u32", "u32"], result: "u32" },
});
// lib.symbols.DsReplicaModifyA(hDS, NameContext, pUuidSourceDsa, TransportDn, SourceDsaAddress, pSchedule, ReplicaFlags, ModifyFields, Options)
// hDS : HANDLE -> "pointer"
// NameContext : LPCSTR -> "buffer"
// pUuidSourceDsa : GUID* optional -> "pointer"
// TransportDn : LPCSTR optional -> "buffer"
// SourceDsaAddress : LPCSTR -> "buffer"
// pSchedule : SCHEDULE* optional -> "pointer"
// ReplicaFlags : DWORD optional -> "u32"
// ModifyFields : DWORD -> "u32"
// Options : DWORD -> "u32"
// 文字列は "buffer"。ANSI(-A) は new TextEncoder() で UTF-8/ANSI バイト列(末尾に \x00)を渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。<?php
$ffi = FFI::cdef(<<<C
uint32_t DsReplicaModifyA(
void* hDS,
const char* NameContext,
void* pUuidSourceDsa,
const char* TransportDn,
const char* SourceDsaAddress,
void* pSchedule,
uint32_t ReplicaFlags,
uint32_t ModifyFields,
uint32_t Options);
C, "NTDSAPI.dll");
// $ffi->DsReplicaModifyA(hDS, NameContext, pUuidSourceDsa, TransportDn, SourceDsaAddress, pSchedule, ReplicaFlags, ModifyFields, Options);
// hDS : HANDLE
// NameContext : LPCSTR
// pUuidSourceDsa : GUID* optional
// TransportDn : LPCSTR optional
// SourceDsaAddress : LPCSTR
// pSchedule : SCHEDULE* optional
// ReplicaFlags : DWORD optional
// ModifyFields : DWORD
// Options : 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 Ntdsapi extends StdCallLibrary {
Ntdsapi INSTANCE = Native.load("ntdsapi", Ntdsapi.class, W32APIOptions.ASCII_OPTIONS);
int DsReplicaModifyA(
Pointer hDS, // HANDLE
String NameContext, // LPCSTR
Pointer pUuidSourceDsa, // GUID* optional
String TransportDn, // LPCSTR optional
String SourceDsaAddress, // LPCSTR
Pointer pSchedule, // SCHEDULE* optional
int ReplicaFlags, // DWORD optional
int ModifyFields, // DWORD
int Options // DWORD
);
}@[Link("ntdsapi")]
lib LibNTDSAPI
fun DsReplicaModifyA = DsReplicaModifyA(
hDS : Void*, # HANDLE
NameContext : UInt8*, # LPCSTR
pUuidSourceDsa : GUID*, # GUID* optional
TransportDn : UInt8*, # LPCSTR optional
SourceDsaAddress : UInt8*, # LPCSTR
pSchedule : SCHEDULE*, # SCHEDULE* optional
ReplicaFlags : UInt32, # DWORD optional
ModifyFields : UInt32, # DWORD
Options : UInt32 # DWORD
) : UInt32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。import 'dart:ffi';
import 'package:ffi/ffi.dart';
typedef DsReplicaModifyANative = Uint32 Function(Pointer<Void>, Pointer<Utf8>, Pointer<Void>, Pointer<Utf8>, Pointer<Utf8>, Pointer<Void>, Uint32, Uint32, Uint32);
typedef DsReplicaModifyADart = int Function(Pointer<Void>, Pointer<Utf8>, Pointer<Void>, Pointer<Utf8>, Pointer<Utf8>, Pointer<Void>, int, int, int);
final DsReplicaModifyA = DynamicLibrary.open('NTDSAPI.dll')
.lookupFunction<DsReplicaModifyANative, DsReplicaModifyADart>('DsReplicaModifyA');
// hDS : HANDLE -> Pointer<Void>
// NameContext : LPCSTR -> Pointer<Utf8>
// pUuidSourceDsa : GUID* optional -> Pointer<Void>
// TransportDn : LPCSTR optional -> Pointer<Utf8>
// SourceDsaAddress : LPCSTR -> Pointer<Utf8>
// pSchedule : SCHEDULE* optional -> Pointer<Void>
// ReplicaFlags : DWORD optional -> Uint32
// ModifyFields : DWORD -> Uint32
// Options : DWORD -> Uint32
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。{$mode objfpc}{$H+}
function DsReplicaModifyA(
hDS: THandle; // HANDLE
NameContext: PAnsiChar; // LPCSTR
pUuidSourceDsa: PGUID; // GUID* optional
TransportDn: PAnsiChar; // LPCSTR optional
SourceDsaAddress: PAnsiChar; // LPCSTR
pSchedule: Pointer; // SCHEDULE* optional
ReplicaFlags: DWORD; // DWORD optional
ModifyFields: DWORD; // DWORD
Options: DWORD // DWORD
): DWORD; stdcall;
external 'NTDSAPI.dll' name 'DsReplicaModifyA';import Foreign
import Foreign.C.Types
import Foreign.C.String
foreign import stdcall safe "DsReplicaModifyA"
c_DsReplicaModifyA :: Ptr () -> CString -> Ptr () -> CString -> CString -> Ptr () -> Word32 -> Word32 -> Word32 -> IO Word32
-- hDS : HANDLE -> Ptr ()
-- NameContext : LPCSTR -> CString
-- pUuidSourceDsa : GUID* optional -> Ptr ()
-- TransportDn : LPCSTR optional -> CString
-- SourceDsaAddress : LPCSTR -> CString
-- pSchedule : SCHEDULE* optional -> Ptr ()
-- ReplicaFlags : DWORD optional -> Word32
-- ModifyFields : DWORD -> Word32
-- Options : DWORD -> Word32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。open Ctypes
open Foreign
let dsreplicamodifya =
foreign "DsReplicaModifyA"
((ptr void) @-> string @-> (ptr void) @-> string @-> string @-> (ptr void) @-> uint32_t @-> uint32_t @-> uint32_t @-> returning uint32_t)
(* hDS : HANDLE -> (ptr void) *)
(* NameContext : LPCSTR -> string *)
(* pUuidSourceDsa : GUID* optional -> (ptr void) *)
(* TransportDn : LPCSTR optional -> string *)
(* SourceDsaAddress : LPCSTR -> string *)
(* pSchedule : SCHEDULE* optional -> (ptr void) *)
(* ReplicaFlags : DWORD optional -> uint32_t *)
(* ModifyFields : DWORD -> uint32_t *)
(* Options : DWORD -> uint32_t *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)(cffi:define-foreign-library ntdsapi (t "NTDSAPI.dll"))
(cffi:use-foreign-library ntdsapi)
(cffi:defcfun ("DsReplicaModifyA" ds-replica-modify-a :convention :stdcall) :uint32
(h-ds :pointer) ; HANDLE
(name-context :string) ; LPCSTR
(p-uuid-source-dsa :pointer) ; GUID* optional
(transport-dn :string) ; LPCSTR optional
(source-dsa-address :string) ; LPCSTR
(p-schedule :pointer) ; SCHEDULE* optional
(replica-flags :uint32) ; DWORD optional
(modify-fields :uint32) ; DWORD
(options :uint32)) ; DWORD
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。use Win32::API;
my $DsReplicaModifyA = Win32::API::More->new('NTDSAPI',
'DWORD DsReplicaModifyA(HANDLE hDS, LPCSTR NameContext, LPVOID pUuidSourceDsa, LPCSTR TransportDn, LPCSTR SourceDsaAddress, LPVOID pSchedule, DWORD ReplicaFlags, DWORD ModifyFields, DWORD Options)');
# my $ret = $DsReplicaModifyA->Call($hDS, $NameContext, $pUuidSourceDsa, $TransportDn, $SourceDsaAddress, $pSchedule, $ReplicaFlags, $ModifyFields, $Options);
# hDS : HANDLE -> HANDLE
# NameContext : LPCSTR -> LPCSTR
# pUuidSourceDsa : GUID* optional -> LPVOID
# TransportDn : LPCSTR optional -> LPCSTR
# SourceDsaAddress : LPCSTR -> LPCSTR
# pSchedule : SCHEDULE* optional -> LPVOID
# ReplicaFlags : DWORD optional -> DWORD
# ModifyFields : DWORD -> DWORD
# Options : DWORD -> DWORD
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。関連項目
文字セット違い
- f DsReplicaModifyW (Unicode版) — レプリケーションリンクの設定を変更する(Unicode版)。
使用する型