DsQuoteRdnValueA

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

DWORD DsQuoteRdnValueA(
    DWORD cUnquotedRdnValueLength,
    LPCSTR psUnquotedRdnValue,
    DWORD* pcQuotedRdnValueLength,
    LPSTR psQuotedRdnValue
);

<DllImport("DSPARSE.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function DsQuoteRdnValueA(
    cUnquotedRdnValueLength As UInteger,   ' DWORD
    <MarshalAs(UnmanagedType.LPStr)> psUnquotedRdnValue As String,   ' LPCSTR
    ByRef pcQuotedRdnValueLength As UInteger,   ' DWORD* in/out
    <MarshalAs(UnmanagedType.LPStr)> psQuotedRdnValue As System.Text.StringBuilder   ' LPSTR out
) As UInteger
End Function

' cUnquotedRdnValueLength : DWORD
' psUnquotedRdnValue : LPCSTR
' pcQuotedRdnValueLength : DWORD* in/out
' psQuotedRdnValue : LPSTR out
Declare PtrSafe Function DsQuoteRdnValueA Lib "dsparse" ( _
    ByVal cUnquotedRdnValueLength As Long, _
    ByVal psUnquotedRdnValue As String, _
    ByRef pcQuotedRdnValueLength As Long, _
    ByVal psQuotedRdnValue As String) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

DsQuoteRdnValueA = ctypes.windll.dsparse.DsQuoteRdnValueA
DsQuoteRdnValueA.restype = wintypes.DWORD
DsQuoteRdnValueA.argtypes = [
    wintypes.DWORD,  # cUnquotedRdnValueLength : DWORD
    wintypes.LPCSTR,  # psUnquotedRdnValue : LPCSTR
    ctypes.POINTER(wintypes.DWORD),  # pcQuotedRdnValueLength : DWORD* in/out
    wintypes.LPSTR,  # psQuotedRdnValue : LPSTR out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('DSPARSE.dll')
DsQuoteRdnValueA = Fiddle::Function.new(
  lib['DsQuoteRdnValueA'],
  [
    -Fiddle::TYPE_INT,  # cUnquotedRdnValueLength : DWORD
    Fiddle::TYPE_VOIDP,  # psUnquotedRdnValue : LPCSTR
    Fiddle::TYPE_VOIDP,  # pcQuotedRdnValueLength : DWORD* in/out
    Fiddle::TYPE_VOIDP,  # psQuotedRdnValue : LPSTR out
  ],
  -Fiddle::TYPE_INT)

#[link(name = "dsparse")]
extern "system" {
    fn DsQuoteRdnValueA(
        cUnquotedRdnValueLength: u32,  // DWORD
        psUnquotedRdnValue: *const u8,  // LPCSTR
        pcQuotedRdnValueLength: *mut u32,  // DWORD* in/out
        psQuotedRdnValue: *mut u8  // LPSTR out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("DSPARSE.dll", CharSet = CharSet.Ansi)]
public static extern uint DsQuoteRdnValueA(uint cUnquotedRdnValueLength, [MarshalAs(UnmanagedType.LPStr)] string psUnquotedRdnValue, ref uint pcQuotedRdnValueLength, [MarshalAs(UnmanagedType.LPStr)] System.Text.StringBuilder psQuotedRdnValue);
"@
$api = Add-Type -MemberDefinition $sig -Name 'DSPARSE_DsQuoteRdnValueA' -Namespace Win32 -PassThru
# $api::DsQuoteRdnValueA(cUnquotedRdnValueLength, psUnquotedRdnValue, pcQuotedRdnValueLength, psQuotedRdnValue)

#uselib "DSPARSE.dll"
#func global DsQuoteRdnValueA "DsQuoteRdnValueA" sptr, sptr, sptr, sptr
; DsQuoteRdnValueA cUnquotedRdnValueLength, psUnquotedRdnValue, varptr(pcQuotedRdnValueLength), varptr(psQuotedRdnValue)   ; 戻り値は stat
; cUnquotedRdnValueLength : DWORD -> "sptr"
; psUnquotedRdnValue : LPCSTR -> "sptr"
; pcQuotedRdnValueLength : DWORD* in/out -> "sptr"
; psQuotedRdnValue : LPSTR out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	dsparse = windows.NewLazySystemDLL("DSPARSE.dll")
	procDsQuoteRdnValueA = dsparse.NewProc("DsQuoteRdnValueA")
)

// cUnquotedRdnValueLength (DWORD), psUnquotedRdnValue (LPCSTR), pcQuotedRdnValueLength (DWORD* in/out), psQuotedRdnValue (LPSTR out)
r1, _, err := procDsQuoteRdnValueA.Call(
	uintptr(cUnquotedRdnValueLength),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(psUnquotedRdnValue))),
	uintptr(pcQuotedRdnValueLength),
	uintptr(psQuotedRdnValue),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD

function DsQuoteRdnValueA(
  cUnquotedRdnValueLength: DWORD;   // DWORD
  psUnquotedRdnValue: PAnsiChar;   // LPCSTR
  pcQuotedRdnValueLength: Pointer;   // DWORD* in/out
  psQuotedRdnValue: PAnsiChar   // LPSTR out
): DWORD; stdcall;
  external 'DSPARSE.dll' name 'DsQuoteRdnValueA';

result := DllCall("DSPARSE\DsQuoteRdnValueA"
    , "UInt", cUnquotedRdnValueLength   ; DWORD
    , "AStr", psUnquotedRdnValue   ; LPCSTR
    , "Ptr", pcQuotedRdnValueLength   ; DWORD* in/out
    , "Ptr", psQuotedRdnValue   ; LPSTR out
    , "UInt")   ; return: DWORD

●DsQuoteRdnValueA(cUnquotedRdnValueLength, psUnquotedRdnValue, pcQuotedRdnValueLength, psQuotedRdnValue) = DLL("DSPARSE.dll", "dword DsQuoteRdnValueA(dword, char*, void*, char*)")
# 呼び出し: DsQuoteRdnValueA(cUnquotedRdnValueLength, psUnquotedRdnValue, pcQuotedRdnValueLength, psQuotedRdnValue)
# cUnquotedRdnValueLength : DWORD -> "dword"
# psUnquotedRdnValue : LPCSTR -> "char*"
# pcQuotedRdnValueLength : DWORD* in/out -> "void*"
# psQuotedRdnValue : LPSTR out -> "char*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。

const std = @import("std");

extern "dsparse" fn DsQuoteRdnValueA(
    cUnquotedRdnValueLength: u32, // DWORD
    psUnquotedRdnValue: [*c]const u8, // LPCSTR
    pcQuotedRdnValueLength: [*c]u32, // DWORD* in/out
    psQuotedRdnValue: [*c]u8 // LPSTR out
) callconv(std.os.windows.WINAPI) u32;

proc DsQuoteRdnValueA(
    cUnquotedRdnValueLength: uint32,  # DWORD
    psUnquotedRdnValue: cstring,  # LPCSTR
    pcQuotedRdnValueLength: ptr uint32,  # DWORD* in/out
    psQuotedRdnValue: ptr char  # LPSTR out
): uint32 {.importc: "DsQuoteRdnValueA", stdcall, dynlib: "DSPARSE.dll".}

pragma(lib, "dsparse");
extern(Windows)
uint DsQuoteRdnValueA(
    uint cUnquotedRdnValueLength,   // DWORD
    const(char)* psUnquotedRdnValue,   // LPCSTR
    uint* pcQuotedRdnValueLength,   // DWORD* in/out
    char* psQuotedRdnValue   // LPSTR out
);

ccall((:DsQuoteRdnValueA, "DSPARSE.dll"), stdcall, UInt32,
      (UInt32, Cstring, Ptr{UInt32}, Ptr{UInt8}),
      cUnquotedRdnValueLength, psUnquotedRdnValue, pcQuotedRdnValueLength, psQuotedRdnValue)
# cUnquotedRdnValueLength : DWORD -> UInt32
# psUnquotedRdnValue : LPCSTR -> Cstring
# pcQuotedRdnValueLength : DWORD* in/out -> Ptr{UInt32}
# psQuotedRdnValue : LPSTR out -> Ptr{UInt8}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。

local ffi = require("ffi")
ffi.cdef[[
uint32_t DsQuoteRdnValueA(
    uint32_t cUnquotedRdnValueLength,
    const char* psUnquotedRdnValue,
    uint32_t* pcQuotedRdnValueLength,
    char* psQuotedRdnValue);
]]
local dsparse = ffi.load("dsparse")
-- dsparse.DsQuoteRdnValueA(cUnquotedRdnValueLength, psUnquotedRdnValue, pcQuotedRdnValueLength, psQuotedRdnValue)
-- cUnquotedRdnValueLength : DWORD
-- psUnquotedRdnValue : LPCSTR
-- pcQuotedRdnValueLength : DWORD* in/out
-- psQuotedRdnValue : LPSTR out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。

const koffi = require('koffi');
const lib = koffi.load('DSPARSE.dll');
const DsQuoteRdnValueA = lib.func('__stdcall', 'DsQuoteRdnValueA', 'uint32_t', ['uint32_t', 'str', 'uint32_t *', 'char *']);
// DsQuoteRdnValueA(cUnquotedRdnValueLength, psUnquotedRdnValue, pcQuotedRdnValueLength, psQuotedRdnValue)
// cUnquotedRdnValueLength : DWORD -> 'uint32_t'
// psUnquotedRdnValue : LPCSTR -> 'str'
// pcQuotedRdnValueLength : DWORD* in/out -> 'uint32_t *'
// psQuotedRdnValue : LPSTR out -> 'char *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。

const lib = Deno.dlopen("DSPARSE.dll", {
  DsQuoteRdnValueA: { parameters: ["u32", "buffer", "pointer", "buffer"], result: "u32" },
});
// lib.symbols.DsQuoteRdnValueA(cUnquotedRdnValueLength, psUnquotedRdnValue, pcQuotedRdnValueLength, psQuotedRdnValue)
// cUnquotedRdnValueLength : DWORD -> "u32"
// psUnquotedRdnValue : LPCSTR -> "buffer"
// pcQuotedRdnValueLength : DWORD* in/out -> "pointer"
// psQuotedRdnValue : LPSTR out -> "buffer"
// 文字列は "buffer"。ANSI(-A) は new TextEncoder() で UTF-8/ANSI バイト列(末尾に \x00)を渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。

<?php
$ffi = FFI::cdef(<<<C
uint32_t DsQuoteRdnValueA(
    uint32_t cUnquotedRdnValueLength,
    const char* psUnquotedRdnValue,
    uint32_t* pcQuotedRdnValueLength,
    char* psQuotedRdnValue);
C, "DSPARSE.dll");
// $ffi->DsQuoteRdnValueA(cUnquotedRdnValueLength, psUnquotedRdnValue, pcQuotedRdnValueLength, psQuotedRdnValue);
// cUnquotedRdnValueLength : DWORD
// psUnquotedRdnValue : LPCSTR
// pcQuotedRdnValueLength : DWORD* in/out
// psQuotedRdnValue : LPSTR out
// 構造体/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 Dsparse extends StdCallLibrary {
    Dsparse INSTANCE = Native.load("dsparse", Dsparse.class, W32APIOptions.ASCII_OPTIONS);
    int DsQuoteRdnValueA(
        int cUnquotedRdnValueLength,   // DWORD
        String psUnquotedRdnValue,   // LPCSTR
        IntByReference pcQuotedRdnValueLength,   // DWORD* in/out
        byte[] psQuotedRdnValue   // LPSTR out
    );
}

@[Link("dsparse")]
lib LibDSPARSE
  fun DsQuoteRdnValueA = DsQuoteRdnValueA(
    cUnquotedRdnValueLength : UInt32,   # DWORD
    psUnquotedRdnValue : UInt8*,   # LPCSTR
    pcQuotedRdnValueLength : UInt32*,   # DWORD* in/out
    psQuotedRdnValue : UInt8*   # LPSTR out
  ) : UInt32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。

import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef DsQuoteRdnValueANative = Uint32 Function(Uint32, Pointer<Utf8>, Pointer<Uint32>, Pointer<Utf8>);
typedef DsQuoteRdnValueADart = int Function(int, Pointer<Utf8>, Pointer<Uint32>, Pointer<Utf8>);
final DsQuoteRdnValueA = DynamicLibrary.open('DSPARSE.dll')
    .lookupFunction<DsQuoteRdnValueANative, DsQuoteRdnValueADart>('DsQuoteRdnValueA');
// cUnquotedRdnValueLength : DWORD -> Uint32
// psUnquotedRdnValue : LPCSTR -> Pointer<Utf8>
// pcQuotedRdnValueLength : DWORD* in/out -> Pointer<Uint32>
// psQuotedRdnValue : LPSTR out -> Pointer<Utf8>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。

{$mode objfpc}{$H+}
function DsQuoteRdnValueA(
  cUnquotedRdnValueLength: DWORD;   // DWORD
  psUnquotedRdnValue: PAnsiChar;   // LPCSTR
  pcQuotedRdnValueLength: Pointer;   // DWORD* in/out
  psQuotedRdnValue: PAnsiChar   // LPSTR out
): DWORD; stdcall;
  external 'DSPARSE.dll' name 'DsQuoteRdnValueA';

import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "DsQuoteRdnValueA"
  c_DsQuoteRdnValueA :: Word32 -> CString -> Ptr Word32 -> CString -> IO Word32
-- cUnquotedRdnValueLength : DWORD -> Word32
-- psUnquotedRdnValue : LPCSTR -> CString
-- pcQuotedRdnValueLength : DWORD* in/out -> Ptr Word32
-- psQuotedRdnValue : LPSTR out -> CString
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。

open Ctypes
open Foreign

let dsquoterdnvaluea =
  foreign "DsQuoteRdnValueA"
    (uint32_t @-> string @-> (ptr uint32_t) @-> string @-> returning uint32_t)
(* cUnquotedRdnValueLength : DWORD -> uint32_t *)
(* psUnquotedRdnValue : LPCSTR -> string *)
(* pcQuotedRdnValueLength : DWORD* in/out -> (ptr uint32_t) *)
(* psQuotedRdnValue : LPSTR out -> string *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)

(cffi:define-foreign-library dsparse (t "DSPARSE.dll"))
(cffi:use-foreign-library dsparse)

(cffi:defcfun ("DsQuoteRdnValueA" ds-quote-rdn-value-a :convention :stdcall) :uint32
  (c-unquoted-rdn-value-length :uint32)   ; DWORD
  (ps-unquoted-rdn-value :string)   ; LPCSTR
  (pc-quoted-rdn-value-length :pointer)   ; DWORD* in/out
  (ps-quoted-rdn-value :pointer))   ; LPSTR out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。

use Win32::API;
my $DsQuoteRdnValueA = Win32::API::More->new('DSPARSE',
    'DWORD DsQuoteRdnValueA(DWORD cUnquotedRdnValueLength, LPCSTR psUnquotedRdnValue, LPVOID pcQuotedRdnValueLength, LPSTR psQuotedRdnValue)');
# my $ret = $DsQuoteRdnValueA->Call($cUnquotedRdnValueLength, $psUnquotedRdnValue, $pcQuotedRdnValueLength, $psQuotedRdnValue);
# cUnquotedRdnValueLength : DWORD -> DWORD
# psUnquotedRdnValue : LPCSTR -> LPCSTR
# pcQuotedRdnValueLength : DWORD* in/out -> LPVOID
# psQuotedRdnValue : LPSTR out -> LPSTR
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。