CryptGetObjectUrl
関数シグネチャ
// CRYPTNET.dll
#include <windows.h>
BOOL CryptGetObjectUrl(
LPCSTR pszUrlOid,
void* pvPara,
CRYPT_GET_URL_FLAGS dwFlags,
CRYPT_URL_ARRAY* pUrlArray, // optional
DWORD* pcbUrlArray,
CRYPT_URL_INFO* pUrlInfo, // optional
DWORD* pcbUrlInfo, // optional
void* pvReserved // optional
);パラメーター
| 名前 | 型 | 方向 | 説明 | ||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| pszUrlOid | LPCSTR | in | 要求する URL を識別するオブジェクト識別子 (OID) へのポインター。pszUrlOid パラメーターの HIWORD が 0 の場合、LOWORD は指定された構造体の種類の整数識別子を表します。 このパラメーターには、次のいずれかの値を指定できます。これらの値が pvPara パラメーターにどのように影響するかについては、意味列の見出し「pvPara パラメーターの場合」を参照してください。
| ||||||||||||||||||||||||||||
| pvPara | void* | in | pszUrlOid の値によって決まる構造体。詳細については、pszUrlOid パラメーターの説明を参照してください。 | ||||||||||||||||||||||||||||
| dwFlags | CRYPT_GET_URL_FLAGS | in | オブジェクトの URL ロケーターを取得するために使用するフラグのセット。0、または次の値の 1 つ以上の組み合わせを指定できます。
| ||||||||||||||||||||||||||||
| pUrlArray | CRYPT_URL_ARRAY* | outoptional | 値エントリのデータを受け取るバッファーへのポインター。データを保持するために必要なバッファーの長さを取得するには、このパラメーターを NULL にできます。 詳細については、 長さが不明なデータの取得を参照してください。 | ||||||||||||||||||||||||||||
| pcbUrlArray | DWORD* | inout | pUrlArray パラメーターが指すバッファーのサイズ (バイト単位) を指定する DWORD へのポインター。関数が戻ると、この DWORD にはバッファーに格納されたバイト数が入ります。このパラメーターは、pUrlArray が NULL の場合に限り NULL にできます。 | ||||||||||||||||||||||||||||
| pUrlInfo | CRYPT_URL_INFO* | outoptional | 値エントリのデータを受け取る CRYPT_URL_INFO 構造体への任意のポインター。 | ||||||||||||||||||||||||||||
| pcbUrlInfo | DWORD* | inoutoptional | pUrlArray パラメーターが指すバッファーのサイズ (バイト単位) を指定する DWORD へのポインター。関数が戻ると、この DWORD にはバッファーに格納されたバイト数が入ります。 注意 バッファーで返されるデータを処理する際、アプリケーションは返されたデータの実際のサイズを使用する必要があります。実際のサイズは、入力時に指定したバッファーのサイズよりわずかに小さくなることがあります。入力時には、可能な限り大きな出力データがバッファーに収まるように、通常は十分に大きなバッファーサイズを指定します。出力時には、このパラメーターが指す変数が、バッファーにコピーされたデータの実際のサイズを反映するように更新されます。
| ||||||||||||||||||||||||||||
| pvReserved | void* | optional | 将来の使用のために予約されており、NULL である必要があります。 |
戻り値の型: BOOL
公式ドキュメント
証明書、証明書信頼リスト (CTL)、または証明書失効リスト (CRL) からリモートオブジェクトの URL を取得します。
戻り値
関数が成功した場合は、0 以外の値 (TRUE) を返します。
関数が失敗した場合は、0 (FALSE) を返します。拡張エラー情報を取得するには、 GetLastError を呼び出します。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)
各言語での呼び出し定義
// CRYPTNET.dll
#include <windows.h>
BOOL CryptGetObjectUrl(
LPCSTR pszUrlOid,
void* pvPara,
CRYPT_GET_URL_FLAGS dwFlags,
CRYPT_URL_ARRAY* pUrlArray, // optional
DWORD* pcbUrlArray,
CRYPT_URL_INFO* pUrlInfo, // optional
DWORD* pcbUrlInfo, // optional
void* pvReserved // optional
);[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("CRYPTNET.dll", SetLastError = true, ExactSpelling = true)]
static extern bool CryptGetObjectUrl(
[MarshalAs(UnmanagedType.LPStr)] string pszUrlOid, // LPCSTR
IntPtr pvPara, // void*
uint dwFlags, // CRYPT_GET_URL_FLAGS
IntPtr pUrlArray, // CRYPT_URL_ARRAY* optional, out
ref uint pcbUrlArray, // DWORD* in/out
IntPtr pUrlInfo, // CRYPT_URL_INFO* optional, out
IntPtr pcbUrlInfo, // DWORD* optional, in/out
IntPtr pvReserved // void* optional
);<DllImport("CRYPTNET.dll", SetLastError:=True, ExactSpelling:=True)>
Public Shared Function CryptGetObjectUrl(
<MarshalAs(UnmanagedType.LPStr)> pszUrlOid As String, ' LPCSTR
pvPara As IntPtr, ' void*
dwFlags As UInteger, ' CRYPT_GET_URL_FLAGS
pUrlArray As IntPtr, ' CRYPT_URL_ARRAY* optional, out
ByRef pcbUrlArray As UInteger, ' DWORD* in/out
pUrlInfo As IntPtr, ' CRYPT_URL_INFO* optional, out
pcbUrlInfo As IntPtr, ' DWORD* optional, in/out
pvReserved As IntPtr ' void* optional
) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function' pszUrlOid : LPCSTR
' pvPara : void*
' dwFlags : CRYPT_GET_URL_FLAGS
' pUrlArray : CRYPT_URL_ARRAY* optional, out
' pcbUrlArray : DWORD* in/out
' pUrlInfo : CRYPT_URL_INFO* optional, out
' pcbUrlInfo : DWORD* optional, in/out
' pvReserved : void* optional
Declare PtrSafe Function CryptGetObjectUrl Lib "cryptnet" ( _
ByVal pszUrlOid As String, _
ByVal pvPara As LongPtr, _
ByVal dwFlags As Long, _
ByVal pUrlArray As LongPtr, _
ByRef pcbUrlArray As Long, _
ByVal pUrlInfo As LongPtr, _
ByVal pcbUrlInfo As LongPtr, _
ByVal pvReserved As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。import ctypes
from ctypes import wintypes
CryptGetObjectUrl = ctypes.windll.cryptnet.CryptGetObjectUrl
CryptGetObjectUrl.restype = wintypes.BOOL
CryptGetObjectUrl.argtypes = [
wintypes.LPCSTR, # pszUrlOid : LPCSTR
ctypes.POINTER(None), # pvPara : void*
wintypes.DWORD, # dwFlags : CRYPT_GET_URL_FLAGS
ctypes.c_void_p, # pUrlArray : CRYPT_URL_ARRAY* optional, out
ctypes.POINTER(wintypes.DWORD), # pcbUrlArray : DWORD* in/out
ctypes.c_void_p, # pUrlInfo : CRYPT_URL_INFO* optional, out
ctypes.POINTER(wintypes.DWORD), # pcbUrlInfo : DWORD* optional, in/out
ctypes.POINTER(None), # pvReserved : void* optional
]
# GetLastError: use ctypes.GetLastError() (or ctypes.WinDLL(use_last_error=True))require 'fiddle'
require 'fiddle/import'
lib = Fiddle.dlopen('CRYPTNET.dll')
CryptGetObjectUrl = Fiddle::Function.new(
lib['CryptGetObjectUrl'],
[
Fiddle::TYPE_VOIDP, # pszUrlOid : LPCSTR
Fiddle::TYPE_VOIDP, # pvPara : void*
-Fiddle::TYPE_INT, # dwFlags : CRYPT_GET_URL_FLAGS
Fiddle::TYPE_VOIDP, # pUrlArray : CRYPT_URL_ARRAY* optional, out
Fiddle::TYPE_VOIDP, # pcbUrlArray : DWORD* in/out
Fiddle::TYPE_VOIDP, # pUrlInfo : CRYPT_URL_INFO* optional, out
Fiddle::TYPE_VOIDP, # pcbUrlInfo : DWORD* optional, in/out
Fiddle::TYPE_VOIDP, # pvReserved : void* optional
],
Fiddle::TYPE_INT)#[link(name = "cryptnet")]
extern "system" {
fn CryptGetObjectUrl(
pszUrlOid: *const u8, // LPCSTR
pvPara: *mut (), // void*
dwFlags: u32, // CRYPT_GET_URL_FLAGS
pUrlArray: *mut CRYPT_URL_ARRAY, // CRYPT_URL_ARRAY* optional, out
pcbUrlArray: *mut u32, // DWORD* in/out
pUrlInfo: *mut CRYPT_URL_INFO, // CRYPT_URL_INFO* optional, out
pcbUrlInfo: *mut u32, // DWORD* optional, in/out
pvReserved: *mut () // void* optional
) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("CRYPTNET.dll", SetLastError = true)]
public static extern bool CryptGetObjectUrl([MarshalAs(UnmanagedType.LPStr)] string pszUrlOid, IntPtr pvPara, uint dwFlags, IntPtr pUrlArray, ref uint pcbUrlArray, IntPtr pUrlInfo, IntPtr pcbUrlInfo, IntPtr pvReserved);
"@
$api = Add-Type -MemberDefinition $sig -Name 'CRYPTNET_CryptGetObjectUrl' -Namespace Win32 -PassThru
# $api::CryptGetObjectUrl(pszUrlOid, pvPara, dwFlags, pUrlArray, pcbUrlArray, pUrlInfo, pcbUrlInfo, pvReserved)#uselib "CRYPTNET.dll"
#func global CryptGetObjectUrl "CryptGetObjectUrl" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; CryptGetObjectUrl pszUrlOid, pvPara, dwFlags, varptr(pUrlArray), varptr(pcbUrlArray), varptr(pUrlInfo), varptr(pcbUrlInfo), pvReserved ; 戻り値は stat
; pszUrlOid : LPCSTR -> "sptr"
; pvPara : void* -> "sptr"
; dwFlags : CRYPT_GET_URL_FLAGS -> "sptr"
; pUrlArray : CRYPT_URL_ARRAY* optional, out -> "sptr"
; pcbUrlArray : DWORD* in/out -> "sptr"
; pUrlInfo : CRYPT_URL_INFO* optional, out -> "sptr"
; pcbUrlInfo : DWORD* optional, in/out -> "sptr"
; pvReserved : void* optional -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。#uselib "CRYPTNET.dll" #cfunc global CryptGetObjectUrl "CryptGetObjectUrl" str, sptr, int, var, var, var, var, sptr ; res = CryptGetObjectUrl(pszUrlOid, pvPara, dwFlags, pUrlArray, pcbUrlArray, pUrlInfo, pcbUrlInfo, pvReserved) ; pszUrlOid : LPCSTR -> "str" ; pvPara : void* -> "sptr" ; dwFlags : CRYPT_GET_URL_FLAGS -> "int" ; pUrlArray : CRYPT_URL_ARRAY* optional, out -> "var" ; pcbUrlArray : DWORD* in/out -> "var" ; pUrlInfo : CRYPT_URL_INFO* optional, out -> "var" ; pcbUrlInfo : DWORD* optional, in/out -> "var" ; pvReserved : void* optional -> "sptr" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "CRYPTNET.dll" #cfunc global CryptGetObjectUrl "CryptGetObjectUrl" str, sptr, int, sptr, sptr, sptr, sptr, sptr ; res = CryptGetObjectUrl(pszUrlOid, pvPara, dwFlags, varptr(pUrlArray), varptr(pcbUrlArray), varptr(pUrlInfo), varptr(pcbUrlInfo), pvReserved) ; pszUrlOid : LPCSTR -> "str" ; pvPara : void* -> "sptr" ; dwFlags : CRYPT_GET_URL_FLAGS -> "int" ; pUrlArray : CRYPT_URL_ARRAY* optional, out -> "sptr" ; pcbUrlArray : DWORD* in/out -> "sptr" ; pUrlInfo : CRYPT_URL_INFO* optional, out -> "sptr" ; pcbUrlInfo : DWORD* optional, in/out -> "sptr" ; pvReserved : void* optional -> "sptr" ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
; BOOL CryptGetObjectUrl(LPCSTR pszUrlOid, void* pvPara, CRYPT_GET_URL_FLAGS dwFlags, CRYPT_URL_ARRAY* pUrlArray, DWORD* pcbUrlArray, CRYPT_URL_INFO* pUrlInfo, DWORD* pcbUrlInfo, void* pvReserved) #uselib "CRYPTNET.dll" #cfunc global CryptGetObjectUrl "CryptGetObjectUrl" str, intptr, int, var, var, var, var, intptr ; res = CryptGetObjectUrl(pszUrlOid, pvPara, dwFlags, pUrlArray, pcbUrlArray, pUrlInfo, pcbUrlInfo, pvReserved) ; pszUrlOid : LPCSTR -> "str" ; pvPara : void* -> "intptr" ; dwFlags : CRYPT_GET_URL_FLAGS -> "int" ; pUrlArray : CRYPT_URL_ARRAY* optional, out -> "var" ; pcbUrlArray : DWORD* in/out -> "var" ; pUrlInfo : CRYPT_URL_INFO* optional, out -> "var" ; pcbUrlInfo : DWORD* optional, in/out -> "var" ; pvReserved : void* optional -> "intptr" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; BOOL CryptGetObjectUrl(LPCSTR pszUrlOid, void* pvPara, CRYPT_GET_URL_FLAGS dwFlags, CRYPT_URL_ARRAY* pUrlArray, DWORD* pcbUrlArray, CRYPT_URL_INFO* pUrlInfo, DWORD* pcbUrlInfo, void* pvReserved) #uselib "CRYPTNET.dll" #cfunc global CryptGetObjectUrl "CryptGetObjectUrl" str, intptr, int, intptr, intptr, intptr, intptr, intptr ; res = CryptGetObjectUrl(pszUrlOid, pvPara, dwFlags, varptr(pUrlArray), varptr(pcbUrlArray), varptr(pUrlInfo), varptr(pcbUrlInfo), pvReserved) ; pszUrlOid : LPCSTR -> "str" ; pvPara : void* -> "intptr" ; dwFlags : CRYPT_GET_URL_FLAGS -> "int" ; pUrlArray : CRYPT_URL_ARRAY* optional, out -> "intptr" ; pcbUrlArray : DWORD* in/out -> "intptr" ; pUrlInfo : CRYPT_URL_INFO* optional, out -> "intptr" ; pcbUrlInfo : DWORD* optional, in/out -> "intptr" ; pvReserved : void* optional -> "intptr" ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。
import (
"golang.org/x/sys/windows"
"unsafe"
)
var (
cryptnet = windows.NewLazySystemDLL("CRYPTNET.dll")
procCryptGetObjectUrl = cryptnet.NewProc("CryptGetObjectUrl")
)
// pszUrlOid (LPCSTR), pvPara (void*), dwFlags (CRYPT_GET_URL_FLAGS), pUrlArray (CRYPT_URL_ARRAY* optional, out), pcbUrlArray (DWORD* in/out), pUrlInfo (CRYPT_URL_INFO* optional, out), pcbUrlInfo (DWORD* optional, in/out), pvReserved (void* optional)
r1, _, err := procCryptGetObjectUrl.Call(
uintptr(unsafe.Pointer(windows.BytePtrFromString(pszUrlOid))),
uintptr(pvPara),
uintptr(dwFlags),
uintptr(pUrlArray),
uintptr(pcbUrlArray),
uintptr(pUrlInfo),
uintptr(pcbUrlInfo),
uintptr(pvReserved),
)
_ = err // syscall.Errno (valid when the call sets last-error)
_ = r1 // BOOLfunction CryptGetObjectUrl(
pszUrlOid: PAnsiChar; // LPCSTR
pvPara: Pointer; // void*
dwFlags: DWORD; // CRYPT_GET_URL_FLAGS
pUrlArray: Pointer; // CRYPT_URL_ARRAY* optional, out
pcbUrlArray: Pointer; // DWORD* in/out
pUrlInfo: Pointer; // CRYPT_URL_INFO* optional, out
pcbUrlInfo: Pointer; // DWORD* optional, in/out
pvReserved: Pointer // void* optional
): BOOL; stdcall;
external 'CRYPTNET.dll' name 'CryptGetObjectUrl';result := DllCall("CRYPTNET\CryptGetObjectUrl"
, "AStr", pszUrlOid ; LPCSTR
, "Ptr", pvPara ; void*
, "UInt", dwFlags ; CRYPT_GET_URL_FLAGS
, "Ptr", pUrlArray ; CRYPT_URL_ARRAY* optional, out
, "Ptr", pcbUrlArray ; DWORD* in/out
, "Ptr", pUrlInfo ; CRYPT_URL_INFO* optional, out
, "Ptr", pcbUrlInfo ; DWORD* optional, in/out
, "Ptr", pvReserved ; void* optional
, "Int") ; return: BOOL●CryptGetObjectUrl(pszUrlOid, pvPara, dwFlags, pUrlArray, pcbUrlArray, pUrlInfo, pcbUrlInfo, pvReserved) = DLL("CRYPTNET.dll", "bool CryptGetObjectUrl(char*, void*, dword, void*, void*, void*, void*, void*)")
# 呼び出し: CryptGetObjectUrl(pszUrlOid, pvPara, dwFlags, pUrlArray, pcbUrlArray, pUrlInfo, pcbUrlInfo, pvReserved)
# pszUrlOid : LPCSTR -> "char*"
# pvPara : void* -> "void*"
# dwFlags : CRYPT_GET_URL_FLAGS -> "dword"
# pUrlArray : CRYPT_URL_ARRAY* optional, out -> "void*"
# pcbUrlArray : DWORD* in/out -> "void*"
# pUrlInfo : CRYPT_URL_INFO* optional, out -> "void*"
# pcbUrlInfo : DWORD* optional, in/out -> "void*"
# pvReserved : void* optional -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。const std = @import("std");
extern "cryptnet" fn CryptGetObjectUrl(
pszUrlOid: [*c]const u8, // LPCSTR
pvPara: ?*anyopaque, // void*
dwFlags: u32, // CRYPT_GET_URL_FLAGS
pUrlArray: [*c]CRYPT_URL_ARRAY, // CRYPT_URL_ARRAY* optional, out
pcbUrlArray: [*c]u32, // DWORD* in/out
pUrlInfo: [*c]CRYPT_URL_INFO, // CRYPT_URL_INFO* optional, out
pcbUrlInfo: [*c]u32, // DWORD* optional, in/out
pvReserved: ?*anyopaque // void* optional
) callconv(std.os.windows.WINAPI) i32;proc CryptGetObjectUrl(
pszUrlOid: cstring, # LPCSTR
pvPara: pointer, # void*
dwFlags: uint32, # CRYPT_GET_URL_FLAGS
pUrlArray: ptr CRYPT_URL_ARRAY, # CRYPT_URL_ARRAY* optional, out
pcbUrlArray: ptr uint32, # DWORD* in/out
pUrlInfo: ptr CRYPT_URL_INFO, # CRYPT_URL_INFO* optional, out
pcbUrlInfo: ptr uint32, # DWORD* optional, in/out
pvReserved: pointer # void* optional
): int32 {.importc: "CryptGetObjectUrl", stdcall, dynlib: "CRYPTNET.dll".}pragma(lib, "cryptnet");
extern(Windows)
int CryptGetObjectUrl(
const(char)* pszUrlOid, // LPCSTR
void* pvPara, // void*
uint dwFlags, // CRYPT_GET_URL_FLAGS
CRYPT_URL_ARRAY* pUrlArray, // CRYPT_URL_ARRAY* optional, out
uint* pcbUrlArray, // DWORD* in/out
CRYPT_URL_INFO* pUrlInfo, // CRYPT_URL_INFO* optional, out
uint* pcbUrlInfo, // DWORD* optional, in/out
void* pvReserved // void* optional
);ccall((:CryptGetObjectUrl, "CRYPTNET.dll"), stdcall, Int32,
(Cstring, Ptr{Cvoid}, UInt32, Ptr{CRYPT_URL_ARRAY}, Ptr{UInt32}, Ptr{CRYPT_URL_INFO}, Ptr{UInt32}, Ptr{Cvoid}),
pszUrlOid, pvPara, dwFlags, pUrlArray, pcbUrlArray, pUrlInfo, pcbUrlInfo, pvReserved)
# pszUrlOid : LPCSTR -> Cstring
# pvPara : void* -> Ptr{Cvoid}
# dwFlags : CRYPT_GET_URL_FLAGS -> UInt32
# pUrlArray : CRYPT_URL_ARRAY* optional, out -> Ptr{CRYPT_URL_ARRAY}
# pcbUrlArray : DWORD* in/out -> Ptr{UInt32}
# pUrlInfo : CRYPT_URL_INFO* optional, out -> Ptr{CRYPT_URL_INFO}
# pcbUrlInfo : DWORD* optional, in/out -> Ptr{UInt32}
# pvReserved : void* optional -> Ptr{Cvoid}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。local ffi = require("ffi")
ffi.cdef[[
int32_t CryptGetObjectUrl(
const char* pszUrlOid,
void* pvPara,
uint32_t dwFlags,
void* pUrlArray,
uint32_t* pcbUrlArray,
void* pUrlInfo,
uint32_t* pcbUrlInfo,
void* pvReserved);
]]
local cryptnet = ffi.load("cryptnet")
-- cryptnet.CryptGetObjectUrl(pszUrlOid, pvPara, dwFlags, pUrlArray, pcbUrlArray, pUrlInfo, pcbUrlInfo, pvReserved)
-- pszUrlOid : LPCSTR
-- pvPara : void*
-- dwFlags : CRYPT_GET_URL_FLAGS
-- pUrlArray : CRYPT_URL_ARRAY* optional, out
-- pcbUrlArray : DWORD* in/out
-- pUrlInfo : CRYPT_URL_INFO* optional, out
-- pcbUrlInfo : DWORD* optional, in/out
-- pvReserved : void* optional
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。const koffi = require('koffi');
const lib = koffi.load('CRYPTNET.dll');
const CryptGetObjectUrl = lib.func('__stdcall', 'CryptGetObjectUrl', 'int32_t', ['str', 'void *', 'uint32_t', 'void *', 'uint32_t *', 'void *', 'uint32_t *', 'void *']);
// CryptGetObjectUrl(pszUrlOid, pvPara, dwFlags, pUrlArray, pcbUrlArray, pUrlInfo, pcbUrlInfo, pvReserved)
// pszUrlOid : LPCSTR -> 'str'
// pvPara : void* -> 'void *'
// dwFlags : CRYPT_GET_URL_FLAGS -> 'uint32_t'
// pUrlArray : CRYPT_URL_ARRAY* optional, out -> 'void *'
// pcbUrlArray : DWORD* in/out -> 'uint32_t *'
// pUrlInfo : CRYPT_URL_INFO* optional, out -> 'void *'
// pcbUrlInfo : DWORD* optional, in/out -> 'uint32_t *'
// pvReserved : void* optional -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。const lib = Deno.dlopen("CRYPTNET.dll", {
CryptGetObjectUrl: { parameters: ["buffer", "pointer", "u32", "pointer", "pointer", "pointer", "pointer", "pointer"], result: "i32" },
});
// lib.symbols.CryptGetObjectUrl(pszUrlOid, pvPara, dwFlags, pUrlArray, pcbUrlArray, pUrlInfo, pcbUrlInfo, pvReserved)
// pszUrlOid : LPCSTR -> "buffer"
// pvPara : void* -> "pointer"
// dwFlags : CRYPT_GET_URL_FLAGS -> "u32"
// pUrlArray : CRYPT_URL_ARRAY* optional, out -> "pointer"
// pcbUrlArray : DWORD* in/out -> "pointer"
// pUrlInfo : CRYPT_URL_INFO* optional, out -> "pointer"
// pcbUrlInfo : DWORD* optional, in/out -> "pointer"
// pvReserved : void* optional -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。<?php
$ffi = FFI::cdef(<<<C
int32_t CryptGetObjectUrl(
const char* pszUrlOid,
void* pvPara,
uint32_t dwFlags,
void* pUrlArray,
uint32_t* pcbUrlArray,
void* pUrlInfo,
uint32_t* pcbUrlInfo,
void* pvReserved);
C, "CRYPTNET.dll");
// $ffi->CryptGetObjectUrl(pszUrlOid, pvPara, dwFlags, pUrlArray, pcbUrlArray, pUrlInfo, pcbUrlInfo, pvReserved);
// pszUrlOid : LPCSTR
// pvPara : void*
// dwFlags : CRYPT_GET_URL_FLAGS
// pUrlArray : CRYPT_URL_ARRAY* optional, out
// pcbUrlArray : DWORD* in/out
// pUrlInfo : CRYPT_URL_INFO* optional, out
// pcbUrlInfo : DWORD* optional, in/out
// pvReserved : void* optional
// 構造体/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 Cryptnet extends StdCallLibrary {
Cryptnet INSTANCE = Native.load("cryptnet", Cryptnet.class);
boolean CryptGetObjectUrl(
String pszUrlOid, // LPCSTR
Pointer pvPara, // void*
int dwFlags, // CRYPT_GET_URL_FLAGS
Pointer pUrlArray, // CRYPT_URL_ARRAY* optional, out
IntByReference pcbUrlArray, // DWORD* in/out
Pointer pUrlInfo, // CRYPT_URL_INFO* optional, out
IntByReference pcbUrlInfo, // DWORD* optional, in/out
Pointer pvReserved // void* optional
);
}@[Link("cryptnet")]
lib LibCRYPTNET
fun CryptGetObjectUrl = CryptGetObjectUrl(
pszUrlOid : UInt8*, # LPCSTR
pvPara : Void*, # void*
dwFlags : UInt32, # CRYPT_GET_URL_FLAGS
pUrlArray : CRYPT_URL_ARRAY*, # CRYPT_URL_ARRAY* optional, out
pcbUrlArray : UInt32*, # DWORD* in/out
pUrlInfo : CRYPT_URL_INFO*, # CRYPT_URL_INFO* optional, out
pcbUrlInfo : UInt32*, # DWORD* optional, in/out
pvReserved : Void* # void* optional
) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。import 'dart:ffi';
import 'package:ffi/ffi.dart';
typedef CryptGetObjectUrlNative = Int32 Function(Pointer<Utf8>, Pointer<Void>, Uint32, Pointer<Void>, Pointer<Uint32>, Pointer<Void>, Pointer<Uint32>, Pointer<Void>);
typedef CryptGetObjectUrlDart = int Function(Pointer<Utf8>, Pointer<Void>, int, Pointer<Void>, Pointer<Uint32>, Pointer<Void>, Pointer<Uint32>, Pointer<Void>);
final CryptGetObjectUrl = DynamicLibrary.open('CRYPTNET.dll')
.lookupFunction<CryptGetObjectUrlNative, CryptGetObjectUrlDart>('CryptGetObjectUrl');
// pszUrlOid : LPCSTR -> Pointer<Utf8>
// pvPara : void* -> Pointer<Void>
// dwFlags : CRYPT_GET_URL_FLAGS -> Uint32
// pUrlArray : CRYPT_URL_ARRAY* optional, out -> Pointer<Void>
// pcbUrlArray : DWORD* in/out -> Pointer<Uint32>
// pUrlInfo : CRYPT_URL_INFO* optional, out -> Pointer<Void>
// pcbUrlInfo : DWORD* optional, in/out -> Pointer<Uint32>
// pvReserved : void* optional -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。{$mode objfpc}{$H+}
function CryptGetObjectUrl(
pszUrlOid: PAnsiChar; // LPCSTR
pvPara: Pointer; // void*
dwFlags: DWORD; // CRYPT_GET_URL_FLAGS
pUrlArray: Pointer; // CRYPT_URL_ARRAY* optional, out
pcbUrlArray: Pointer; // DWORD* in/out
pUrlInfo: Pointer; // CRYPT_URL_INFO* optional, out
pcbUrlInfo: Pointer; // DWORD* optional, in/out
pvReserved: Pointer // void* optional
): BOOL; stdcall;
external 'CRYPTNET.dll' name 'CryptGetObjectUrl';import Foreign
import Foreign.C.Types
import Foreign.C.String
foreign import stdcall safe "CryptGetObjectUrl"
c_CryptGetObjectUrl :: CString -> Ptr () -> Word32 -> Ptr () -> Ptr Word32 -> Ptr () -> Ptr Word32 -> Ptr () -> IO CInt
-- pszUrlOid : LPCSTR -> CString
-- pvPara : void* -> Ptr ()
-- dwFlags : CRYPT_GET_URL_FLAGS -> Word32
-- pUrlArray : CRYPT_URL_ARRAY* optional, out -> Ptr ()
-- pcbUrlArray : DWORD* in/out -> Ptr Word32
-- pUrlInfo : CRYPT_URL_INFO* optional, out -> Ptr ()
-- pcbUrlInfo : DWORD* optional, in/out -> Ptr Word32
-- pvReserved : void* optional -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。open Ctypes
open Foreign
let cryptgetobjecturl =
foreign "CryptGetObjectUrl"
(string @-> (ptr void) @-> uint32_t @-> (ptr void) @-> (ptr uint32_t) @-> (ptr void) @-> (ptr uint32_t) @-> (ptr void) @-> returning int32_t)
(* pszUrlOid : LPCSTR -> string *)
(* pvPara : void* -> (ptr void) *)
(* dwFlags : CRYPT_GET_URL_FLAGS -> uint32_t *)
(* pUrlArray : CRYPT_URL_ARRAY* optional, out -> (ptr void) *)
(* pcbUrlArray : DWORD* in/out -> (ptr uint32_t) *)
(* pUrlInfo : CRYPT_URL_INFO* optional, out -> (ptr void) *)
(* pcbUrlInfo : DWORD* optional, in/out -> (ptr uint32_t) *)
(* pvReserved : void* optional -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)(cffi:define-foreign-library cryptnet (t "CRYPTNET.dll"))
(cffi:use-foreign-library cryptnet)
(cffi:defcfun ("CryptGetObjectUrl" crypt-get-object-url :convention :stdcall) :int32
(psz-url-oid :string) ; LPCSTR
(pv-para :pointer) ; void*
(dw-flags :uint32) ; CRYPT_GET_URL_FLAGS
(p-url-array :pointer) ; CRYPT_URL_ARRAY* optional, out
(pcb-url-array :pointer) ; DWORD* in/out
(p-url-info :pointer) ; CRYPT_URL_INFO* optional, out
(pcb-url-info :pointer) ; DWORD* optional, in/out
(pv-reserved :pointer)) ; void* optional
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。use Win32::API;
my $CryptGetObjectUrl = Win32::API::More->new('CRYPTNET',
'BOOL CryptGetObjectUrl(LPCSTR pszUrlOid, LPVOID pvPara, DWORD dwFlags, LPVOID pUrlArray, LPVOID pcbUrlArray, LPVOID pUrlInfo, LPVOID pcbUrlInfo, LPVOID pvReserved)');
# my $ret = $CryptGetObjectUrl->Call($pszUrlOid, $pvPara, $dwFlags, $pUrlArray, $pcbUrlArray, $pUrlInfo, $pcbUrlInfo, $pvReserved);
# pszUrlOid : LPCSTR -> LPCSTR
# pvPara : void* -> LPVOID
# dwFlags : CRYPT_GET_URL_FLAGS -> DWORD
# pUrlArray : CRYPT_URL_ARRAY* optional, out -> LPVOID
# pcbUrlArray : DWORD* in/out -> LPVOID
# pUrlInfo : CRYPT_URL_INFO* optional, out -> LPVOID
# pcbUrlInfo : DWORD* optional, in/out -> LPVOID
# pvReserved : void* optional -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。