HttpOpenRequestA
関数シグネチャ
// WININET.dll (ANSI / -A)
#include <windows.h>
void* HttpOpenRequestA(
void* hConnect,
LPCSTR lpszVerb, // optional
LPCSTR lpszObjectName, // optional
LPCSTR lpszVersion, // optional
LPCSTR lpszReferrer, // optional
LPCSTR* lplpszAcceptTypes, // optional
DWORD dwFlags,
UINT_PTR dwContext // optional
);パラメーター
| 名前 | 型 | 方向 | 説明 | ||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| hConnect | void* | in | InternetConnect が返す HTTP セッションへのハンドルです。 | ||||||||||||||||||||||||||||||||||||
| lpszVerb | LPCSTR | inoptional | リクエストで使用する HTTP 動詞を含む null 終端文字列へのポインターです。このパラメーターが NULL の場合、関数は HTTP 動詞として GET を使用します。 | ||||||||||||||||||||||||||||||||||||
| lpszObjectName | LPCSTR | inoptional | 指定された HTTP 動詞の対象オブジェクトの名前を含む null 終端文字列へのポインターです。通常はファイル名、実行可能モジュール、または検索指定子です。 | ||||||||||||||||||||||||||||||||||||
| lpszVersion | LPCSTR | inoptional | リクエストで使用する HTTP バージョンを含む null 終端文字列へのポインターです。Internet Explorer の設定はこのパラメーターで指定した値を上書きします。 このパラメーターが NULL の場合、関数は Internet Explorer の設定値に応じて HTTP バージョン 1.1 または 1.0 を使用します。
| ||||||||||||||||||||||||||||||||||||
| lpszReferrer | LPCSTR | inoptional | リクエスト内の URL(lpszObjectName)の取得元ドキュメントの URL を指定する null 終端文字列へのポインターです。このパラメーターが NULL の場合、リファラーは指定されません。 | ||||||||||||||||||||||||||||||||||||
| lplpszAcceptTypes | LPCSTR* | inoptional | クライアントが受け入れるメディアタイプを示す null 終端文字列配列へのポインターです。以下に例を示します。
配列を NULL ポインターで正しく終端しないとクラッシュが発生します。 このパラメーターが NULL の場合、クライアントはどのタイプも受け入れません。サーバーは一般に、受け入れタイプが指定されていないことを、クライアントが "text/*" タイプのドキュメント(つまりテキストドキュメントのみで、画像やその他のバイナリファイルは含まない)のみを受け入れることを示すものとして解釈します。!-- For more information and a list of valid media types, see ftp://ftp.isi.edu/in-notes/iana/assignments/media-types/media-types. --> | ||||||||||||||||||||||||||||||||||||
| dwFlags | DWORD | in | インターネットオプションです。このパラメーターには以下のいずれかの値を指定できます。
| ||||||||||||||||||||||||||||||||||||
| dwContext | UINT_PTR | inoptional | この操作を任意のアプリケーションデータに関連付ける、アプリケーション定義の値を含む変数へのポインターです。 |
戻り値の型: void*
公式ドキュメント
HTTP リクエストハンドルを作成します。(ANSI)
戻り値
成功した場合は HTTP リクエストハンドルを返し、それ以外の場合は NULL を返します。拡張エラー情報を取得するには GetLastError を呼び出します。
解説(Remarks)
HttpOpenRequest 関数は、新しい HTTP リクエストハンドルを作成し、指定されたパラメーターをそのハンドルに格納します。HTTP リクエストハンドルは、HTTP サーバーへ送信するリクエストを保持し、リクエストの一部として送信されるすべての RFC822/MIME/HTTP ヘッダーを含みます。
"GET" または "POST" 以外の動詞が指定された場合、HttpOpenRequest はリクエストに対して自動的に INTERNET_FLAG_NO_CACHE_WRITE および INTERNET_FLAG_RELOAD を設定します。
Microsoft Internet Explorer 5 以降では、lpszVerb が "HEAD" に設定されている場合、HTTP/1.1 サーバーからの応答で Content-Length ヘッダーは無視されます。
Windows 7、Windows Server 2008 R2 以降では、lpszVersion パラメーターは Internet Explorer の設定によって上書きされます。EnableHttp1_1 は HKLM\Software\Microsoft\InternetExplorer\AdvacnedOptions\HTTP\GENABLE 下のレジストリ値で、システムの Internet Explorer で設定されるインターネットオプションによって制御されます。EnableHttp1_1 の値は既定で 1 です。EnableHttp1_1 が 1 に設定されている場合、HttpOpenRequest 関数は 1.1 未満の HTTP バージョンを HTTP バージョン 1.1 にアップグレードします。
呼び出し元アプリケーションが HttpOpenRequest から返された HINTERNET ハンドルの使用を終えた後は、InternetCloseHandle 関数を使用してそのハンドルを閉じる必要があります。
注意 リクエストが非同期モードで送信され(InternetOpen の dwFlags パラメーターが INTERNET_FLAG_ASYNC を指定)、かつ dwContext パラメーターがゼロ(INTERNET_NO_CALLBACK)の場合、リクエストハンドルに対して InternetSetStatusCallback で設定したコールバック関数は呼び出されませんが、呼び出し自体は非同期モードで実行されます。
WinINet API のその他すべての要素と同様に、この関数は DllMain やグローバルオブジェクトのコンストラクター/デストラクター内から安全に呼び出すことはできません。
wininet.h ヘッダーは HttpOpenRequest を、UNICODE プリプロセッサ定数の定義に応じてこの関数の ANSI 版または Unicode 版を自動的に選択するエイリアスとして定義します。エンコーディング中立なエイリアスの使用と、エンコーディング中立でないコードを混在させると、不一致が生じてコンパイルエラーや実行時エラーを引き起こす可能性があります。詳細については Conventions for Function Prototypes を参照してください。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)
各言語での呼び出し定義
// WININET.dll (ANSI / -A)
#include <windows.h>
void* HttpOpenRequestA(
void* hConnect,
LPCSTR lpszVerb, // optional
LPCSTR lpszObjectName, // optional
LPCSTR lpszVersion, // optional
LPCSTR lpszReferrer, // optional
LPCSTR* lplpszAcceptTypes, // optional
DWORD dwFlags,
UINT_PTR dwContext // optional
);[DllImport("WININET.dll", CharSet = CharSet.Ansi, SetLastError = true, ExactSpelling = true)]
static extern IntPtr HttpOpenRequestA(
IntPtr hConnect, // void*
[MarshalAs(UnmanagedType.LPStr)] string lpszVerb, // LPCSTR optional
[MarshalAs(UnmanagedType.LPStr)] string lpszObjectName, // LPCSTR optional
[MarshalAs(UnmanagedType.LPStr)] string lpszVersion, // LPCSTR optional
[MarshalAs(UnmanagedType.LPStr)] string lpszReferrer, // LPCSTR optional
IntPtr lplpszAcceptTypes, // LPCSTR* optional
uint dwFlags, // DWORD
UIntPtr dwContext // UINT_PTR optional
);<DllImport("WININET.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
Public Shared Function HttpOpenRequestA(
hConnect As IntPtr, ' void*
<MarshalAs(UnmanagedType.LPStr)> lpszVerb As String, ' LPCSTR optional
<MarshalAs(UnmanagedType.LPStr)> lpszObjectName As String, ' LPCSTR optional
<MarshalAs(UnmanagedType.LPStr)> lpszVersion As String, ' LPCSTR optional
<MarshalAs(UnmanagedType.LPStr)> lpszReferrer As String, ' LPCSTR optional
lplpszAcceptTypes As IntPtr, ' LPCSTR* optional
dwFlags As UInteger, ' DWORD
dwContext As UIntPtr ' UINT_PTR optional
) As IntPtr
End Function' hConnect : void*
' lpszVerb : LPCSTR optional
' lpszObjectName : LPCSTR optional
' lpszVersion : LPCSTR optional
' lpszReferrer : LPCSTR optional
' lplpszAcceptTypes : LPCSTR* optional
' dwFlags : DWORD
' dwContext : UINT_PTR optional
Declare PtrSafe Function HttpOpenRequestA Lib "wininet" ( _
ByVal hConnect As LongPtr, _
ByVal lpszVerb As String, _
ByVal lpszObjectName As String, _
ByVal lpszVersion As String, _
ByVal lpszReferrer As String, _
ByVal lplpszAcceptTypes As LongPtr, _
ByVal dwFlags As Long, _
ByVal dwContext As LongPtr) As LongPtr
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。import ctypes
from ctypes import wintypes
HttpOpenRequestA = ctypes.windll.wininet.HttpOpenRequestA
HttpOpenRequestA.restype = ctypes.c_void_p
HttpOpenRequestA.argtypes = [
ctypes.POINTER(None), # hConnect : void*
wintypes.LPCSTR, # lpszVerb : LPCSTR optional
wintypes.LPCSTR, # lpszObjectName : LPCSTR optional
wintypes.LPCSTR, # lpszVersion : LPCSTR optional
wintypes.LPCSTR, # lpszReferrer : LPCSTR optional
ctypes.c_void_p, # lplpszAcceptTypes : LPCSTR* optional
wintypes.DWORD, # dwFlags : DWORD
ctypes.c_size_t, # dwContext : UINT_PTR optional
]
# GetLastError: use ctypes.GetLastError() (or ctypes.WinDLL(use_last_error=True))require 'fiddle'
require 'fiddle/import'
lib = Fiddle.dlopen('WININET.dll')
HttpOpenRequestA = Fiddle::Function.new(
lib['HttpOpenRequestA'],
[
Fiddle::TYPE_VOIDP, # hConnect : void*
Fiddle::TYPE_VOIDP, # lpszVerb : LPCSTR optional
Fiddle::TYPE_VOIDP, # lpszObjectName : LPCSTR optional
Fiddle::TYPE_VOIDP, # lpszVersion : LPCSTR optional
Fiddle::TYPE_VOIDP, # lpszReferrer : LPCSTR optional
Fiddle::TYPE_VOIDP, # lplpszAcceptTypes : LPCSTR* optional
-Fiddle::TYPE_INT, # dwFlags : DWORD
Fiddle::TYPE_UINTPTR_T, # dwContext : UINT_PTR optional
],
Fiddle::TYPE_VOIDP)#[link(name = "wininet")]
extern "system" {
fn HttpOpenRequestA(
hConnect: *mut (), // void*
lpszVerb: *const u8, // LPCSTR optional
lpszObjectName: *const u8, // LPCSTR optional
lpszVersion: *const u8, // LPCSTR optional
lpszReferrer: *const u8, // LPCSTR optional
lplpszAcceptTypes: *const *const u8, // LPCSTR* optional
dwFlags: u32, // DWORD
dwContext: usize // UINT_PTR optional
) -> *mut ();
}
// crates: windows-sys provides ready-made bindings for this API.$sig = @"
[DllImport("WININET.dll", CharSet = CharSet.Ansi, SetLastError = true)]
public static extern IntPtr HttpOpenRequestA(IntPtr hConnect, [MarshalAs(UnmanagedType.LPStr)] string lpszVerb, [MarshalAs(UnmanagedType.LPStr)] string lpszObjectName, [MarshalAs(UnmanagedType.LPStr)] string lpszVersion, [MarshalAs(UnmanagedType.LPStr)] string lpszReferrer, IntPtr lplpszAcceptTypes, uint dwFlags, UIntPtr dwContext);
"@
$api = Add-Type -MemberDefinition $sig -Name 'WININET_HttpOpenRequestA' -Namespace Win32 -PassThru
# $api::HttpOpenRequestA(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, lplpszAcceptTypes, dwFlags, dwContext)#uselib "WININET.dll"
#func global HttpOpenRequestA "HttpOpenRequestA" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; HttpOpenRequestA hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, varptr(lplpszAcceptTypes), dwFlags, dwContext ; 戻り値は stat
; hConnect : void* -> "sptr"
; lpszVerb : LPCSTR optional -> "sptr"
; lpszObjectName : LPCSTR optional -> "sptr"
; lpszVersion : LPCSTR optional -> "sptr"
; lpszReferrer : LPCSTR optional -> "sptr"
; lplpszAcceptTypes : LPCSTR* optional -> "sptr"
; dwFlags : DWORD -> "sptr"
; dwContext : UINT_PTR optional -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。#uselib "WININET.dll" #cfunc global HttpOpenRequestA "HttpOpenRequestA" sptr, str, str, str, str, var, int, sptr ; res = HttpOpenRequestA(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, lplpszAcceptTypes, dwFlags, dwContext) ; hConnect : void* -> "sptr" ; lpszVerb : LPCSTR optional -> "str" ; lpszObjectName : LPCSTR optional -> "str" ; lpszVersion : LPCSTR optional -> "str" ; lpszReferrer : LPCSTR optional -> "str" ; lplpszAcceptTypes : LPCSTR* optional -> "var" ; dwFlags : DWORD -> "int" ; dwContext : UINT_PTR optional -> "sptr" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "WININET.dll" #cfunc global HttpOpenRequestA "HttpOpenRequestA" sptr, str, str, str, str, sptr, int, sptr ; res = HttpOpenRequestA(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, varptr(lplpszAcceptTypes), dwFlags, dwContext) ; hConnect : void* -> "sptr" ; lpszVerb : LPCSTR optional -> "str" ; lpszObjectName : LPCSTR optional -> "str" ; lpszVersion : LPCSTR optional -> "str" ; lpszReferrer : LPCSTR optional -> "str" ; lplpszAcceptTypes : LPCSTR* optional -> "sptr" ; dwFlags : DWORD -> "int" ; dwContext : UINT_PTR optional -> "sptr" ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
; void* HttpOpenRequestA(void* hConnect, LPCSTR lpszVerb, LPCSTR lpszObjectName, LPCSTR lpszVersion, LPCSTR lpszReferrer, LPCSTR* lplpszAcceptTypes, DWORD dwFlags, UINT_PTR dwContext) #uselib "WININET.dll" #cfunc global HttpOpenRequestA "HttpOpenRequestA" intptr, str, str, str, str, var, int, intptr ; res = HttpOpenRequestA(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, lplpszAcceptTypes, dwFlags, dwContext) ; hConnect : void* -> "intptr" ; lpszVerb : LPCSTR optional -> "str" ; lpszObjectName : LPCSTR optional -> "str" ; lpszVersion : LPCSTR optional -> "str" ; lpszReferrer : LPCSTR optional -> "str" ; lplpszAcceptTypes : LPCSTR* optional -> "var" ; dwFlags : DWORD -> "int" ; dwContext : UINT_PTR optional -> "intptr" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; void* HttpOpenRequestA(void* hConnect, LPCSTR lpszVerb, LPCSTR lpszObjectName, LPCSTR lpszVersion, LPCSTR lpszReferrer, LPCSTR* lplpszAcceptTypes, DWORD dwFlags, UINT_PTR dwContext) #uselib "WININET.dll" #cfunc global HttpOpenRequestA "HttpOpenRequestA" intptr, str, str, str, str, intptr, int, intptr ; res = HttpOpenRequestA(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, varptr(lplpszAcceptTypes), dwFlags, dwContext) ; hConnect : void* -> "intptr" ; lpszVerb : LPCSTR optional -> "str" ; lpszObjectName : LPCSTR optional -> "str" ; lpszVersion : LPCSTR optional -> "str" ; lpszReferrer : LPCSTR optional -> "str" ; lplpszAcceptTypes : LPCSTR* optional -> "intptr" ; dwFlags : DWORD -> "int" ; dwContext : UINT_PTR optional -> "intptr" ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。
import (
"golang.org/x/sys/windows"
"unsafe"
)
var (
wininet = windows.NewLazySystemDLL("WININET.dll")
procHttpOpenRequestA = wininet.NewProc("HttpOpenRequestA")
)
// hConnect (void*), lpszVerb (LPCSTR optional), lpszObjectName (LPCSTR optional), lpszVersion (LPCSTR optional), lpszReferrer (LPCSTR optional), lplpszAcceptTypes (LPCSTR* optional), dwFlags (DWORD), dwContext (UINT_PTR optional)
r1, _, err := procHttpOpenRequestA.Call(
uintptr(hConnect),
uintptr(unsafe.Pointer(windows.BytePtrFromString(lpszVerb))),
uintptr(unsafe.Pointer(windows.BytePtrFromString(lpszObjectName))),
uintptr(unsafe.Pointer(windows.BytePtrFromString(lpszVersion))),
uintptr(unsafe.Pointer(windows.BytePtrFromString(lpszReferrer))),
uintptr(lplpszAcceptTypes),
uintptr(dwFlags),
uintptr(dwContext),
)
_ = err // syscall.Errno (valid when the call sets last-error)
_ = r1 // void*function HttpOpenRequestA(
hConnect: Pointer; // void*
lpszVerb: PAnsiChar; // LPCSTR optional
lpszObjectName: PAnsiChar; // LPCSTR optional
lpszVersion: PAnsiChar; // LPCSTR optional
lpszReferrer: PAnsiChar; // LPCSTR optional
lplpszAcceptTypes: PPAnsiChar; // LPCSTR* optional
dwFlags: DWORD; // DWORD
dwContext: NativeUInt // UINT_PTR optional
): Pointer; stdcall;
external 'WININET.dll' name 'HttpOpenRequestA';result := DllCall("WININET\HttpOpenRequestA"
, "Ptr", hConnect ; void*
, "AStr", lpszVerb ; LPCSTR optional
, "AStr", lpszObjectName ; LPCSTR optional
, "AStr", lpszVersion ; LPCSTR optional
, "AStr", lpszReferrer ; LPCSTR optional
, "Ptr", lplpszAcceptTypes ; LPCSTR* optional
, "UInt", dwFlags ; DWORD
, "UPtr", dwContext ; UINT_PTR optional
, "Ptr") ; return: void*●HttpOpenRequestA(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, lplpszAcceptTypes, dwFlags, dwContext) = DLL("WININET.dll", "void* HttpOpenRequestA(void*, char*, char*, char*, char*, void*, dword, int)")
# 呼び出し: HttpOpenRequestA(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, lplpszAcceptTypes, dwFlags, dwContext)
# hConnect : void* -> "void*"
# lpszVerb : LPCSTR optional -> "char*"
# lpszObjectName : LPCSTR optional -> "char*"
# lpszVersion : LPCSTR optional -> "char*"
# lpszReferrer : LPCSTR optional -> "char*"
# lplpszAcceptTypes : LPCSTR* optional -> "void*"
# dwFlags : DWORD -> "dword"
# dwContext : UINT_PTR optional -> "int"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。const std = @import("std");
extern "wininet" fn HttpOpenRequestA(
hConnect: ?*anyopaque, // void*
lpszVerb: [*c]const u8, // LPCSTR optional
lpszObjectName: [*c]const u8, // LPCSTR optional
lpszVersion: [*c]const u8, // LPCSTR optional
lpszReferrer: [*c]const u8, // LPCSTR optional
lplpszAcceptTypes: [*c][*c]u8, // LPCSTR* optional
dwFlags: u32, // DWORD
dwContext: usize // UINT_PTR optional
) callconv(std.os.windows.WINAPI) ?*anyopaque;proc HttpOpenRequestA(
hConnect: pointer, # void*
lpszVerb: cstring, # LPCSTR optional
lpszObjectName: cstring, # LPCSTR optional
lpszVersion: cstring, # LPCSTR optional
lpszReferrer: cstring, # LPCSTR optional
lplpszAcceptTypes: ptr cstring, # LPCSTR* optional
dwFlags: uint32, # DWORD
dwContext: uint # UINT_PTR optional
): pointer {.importc: "HttpOpenRequestA", stdcall, dynlib: "WININET.dll".}pragma(lib, "wininet");
extern(Windows)
void* HttpOpenRequestA(
void* hConnect, // void*
const(char)* lpszVerb, // LPCSTR optional
const(char)* lpszObjectName, // LPCSTR optional
const(char)* lpszVersion, // LPCSTR optional
const(char)* lpszReferrer, // LPCSTR optional
char** lplpszAcceptTypes, // LPCSTR* optional
uint dwFlags, // DWORD
size_t dwContext // UINT_PTR optional
);ccall((:HttpOpenRequestA, "WININET.dll"), stdcall, Ptr{Cvoid},
(Ptr{Cvoid}, Cstring, Cstring, Cstring, Cstring, Ptr{Ptr{UInt8}}, UInt32, Csize_t),
hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, lplpszAcceptTypes, dwFlags, dwContext)
# hConnect : void* -> Ptr{Cvoid}
# lpszVerb : LPCSTR optional -> Cstring
# lpszObjectName : LPCSTR optional -> Cstring
# lpszVersion : LPCSTR optional -> Cstring
# lpszReferrer : LPCSTR optional -> Cstring
# lplpszAcceptTypes : LPCSTR* optional -> Ptr{Ptr{UInt8}}
# dwFlags : DWORD -> UInt32
# dwContext : UINT_PTR optional -> Csize_t
# stdcall は 32bit のみ意味を持つ(x64 では無視)。local ffi = require("ffi")
ffi.cdef[[
void* HttpOpenRequestA(
void* hConnect,
const char* lpszVerb,
const char* lpszObjectName,
const char* lpszVersion,
const char* lpszReferrer,
char** lplpszAcceptTypes,
uint32_t dwFlags,
uintptr_t dwContext);
]]
local wininet = ffi.load("wininet")
-- wininet.HttpOpenRequestA(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, lplpszAcceptTypes, dwFlags, dwContext)
-- hConnect : void*
-- lpszVerb : LPCSTR optional
-- lpszObjectName : LPCSTR optional
-- lpszVersion : LPCSTR optional
-- lpszReferrer : LPCSTR optional
-- lplpszAcceptTypes : LPCSTR* optional
-- dwFlags : DWORD
-- dwContext : UINT_PTR optional
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。const koffi = require('koffi');
const lib = koffi.load('WININET.dll');
const HttpOpenRequestA = lib.func('__stdcall', 'HttpOpenRequestA', 'void *', ['void *', 'str', 'str', 'str', 'str', 'void *', 'uint32_t', 'uintptr_t']);
// HttpOpenRequestA(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, lplpszAcceptTypes, dwFlags, dwContext)
// hConnect : void* -> 'void *'
// lpszVerb : LPCSTR optional -> 'str'
// lpszObjectName : LPCSTR optional -> 'str'
// lpszVersion : LPCSTR optional -> 'str'
// lpszReferrer : LPCSTR optional -> 'str'
// lplpszAcceptTypes : LPCSTR* optional -> 'void *'
// dwFlags : DWORD -> 'uint32_t'
// dwContext : UINT_PTR optional -> 'uintptr_t'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。const lib = Deno.dlopen("WININET.dll", {
HttpOpenRequestA: { parameters: ["pointer", "buffer", "buffer", "buffer", "buffer", "pointer", "u32", "usize"], result: "pointer" },
});
// lib.symbols.HttpOpenRequestA(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, lplpszAcceptTypes, dwFlags, dwContext)
// hConnect : void* -> "pointer"
// lpszVerb : LPCSTR optional -> "buffer"
// lpszObjectName : LPCSTR optional -> "buffer"
// lpszVersion : LPCSTR optional -> "buffer"
// lpszReferrer : LPCSTR optional -> "buffer"
// lplpszAcceptTypes : LPCSTR* optional -> "pointer"
// dwFlags : DWORD -> "u32"
// dwContext : UINT_PTR optional -> "usize"
// 文字列は "buffer"。ANSI(-A) は new TextEncoder() で UTF-8/ANSI バイト列(末尾に \x00)を渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。<?php
$ffi = FFI::cdef(<<<C
void* HttpOpenRequestA(
void* hConnect,
const char* lpszVerb,
const char* lpszObjectName,
const char* lpszVersion,
const char* lpszReferrer,
char** lplpszAcceptTypes,
uint32_t dwFlags,
size_t dwContext);
C, "WININET.dll");
// $ffi->HttpOpenRequestA(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferrer, lplpszAcceptTypes, dwFlags, dwContext);
// hConnect : void*
// lpszVerb : LPCSTR optional
// lpszObjectName : LPCSTR optional
// lpszVersion : LPCSTR optional
// lpszReferrer : LPCSTR optional
// lplpszAcceptTypes : LPCSTR* optional
// dwFlags : DWORD
// dwContext : UINT_PTR 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 Wininet extends StdCallLibrary {
Wininet INSTANCE = Native.load("wininet", Wininet.class, W32APIOptions.ASCII_OPTIONS);
Pointer HttpOpenRequestA(
Pointer hConnect, // void*
String lpszVerb, // LPCSTR optional
String lpszObjectName, // LPCSTR optional
String lpszVersion, // LPCSTR optional
String lpszReferrer, // LPCSTR optional
PointerByReference lplpszAcceptTypes, // LPCSTR* optional
int dwFlags, // DWORD
long dwContext // UINT_PTR optional
);
}@[Link("wininet")]
lib LibWININET
fun HttpOpenRequestA = HttpOpenRequestA(
hConnect : Void*, # void*
lpszVerb : UInt8*, # LPCSTR optional
lpszObjectName : UInt8*, # LPCSTR optional
lpszVersion : UInt8*, # LPCSTR optional
lpszReferrer : UInt8*, # LPCSTR optional
lplpszAcceptTypes : UInt8**, # LPCSTR* optional
dwFlags : UInt32, # DWORD
dwContext : LibC::SizeT # UINT_PTR optional
) : Void*
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。import 'dart:ffi';
import 'package:ffi/ffi.dart';
typedef HttpOpenRequestANative = Pointer<Void> Function(Pointer<Void>, Pointer<Utf8>, Pointer<Utf8>, Pointer<Utf8>, Pointer<Utf8>, Pointer<Pointer<Utf8>>, Uint32, UintPtr);
typedef HttpOpenRequestADart = Pointer<Void> Function(Pointer<Void>, Pointer<Utf8>, Pointer<Utf8>, Pointer<Utf8>, Pointer<Utf8>, Pointer<Pointer<Utf8>>, int, int);
final HttpOpenRequestA = DynamicLibrary.open('WININET.dll')
.lookupFunction<HttpOpenRequestANative, HttpOpenRequestADart>('HttpOpenRequestA');
// hConnect : void* -> Pointer<Void>
// lpszVerb : LPCSTR optional -> Pointer<Utf8>
// lpszObjectName : LPCSTR optional -> Pointer<Utf8>
// lpszVersion : LPCSTR optional -> Pointer<Utf8>
// lpszReferrer : LPCSTR optional -> Pointer<Utf8>
// lplpszAcceptTypes : LPCSTR* optional -> Pointer<Pointer<Utf8>>
// dwFlags : DWORD -> Uint32
// dwContext : UINT_PTR optional -> UintPtr
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。{$mode objfpc}{$H+}
function HttpOpenRequestA(
hConnect: Pointer; // void*
lpszVerb: PAnsiChar; // LPCSTR optional
lpszObjectName: PAnsiChar; // LPCSTR optional
lpszVersion: PAnsiChar; // LPCSTR optional
lpszReferrer: PAnsiChar; // LPCSTR optional
lplpszAcceptTypes: PPAnsiChar; // LPCSTR* optional
dwFlags: DWORD; // DWORD
dwContext: NativeUInt // UINT_PTR optional
): Pointer; stdcall;
external 'WININET.dll' name 'HttpOpenRequestA';import Foreign
import Foreign.C.Types
import Foreign.C.String
foreign import stdcall safe "HttpOpenRequestA"
c_HttpOpenRequestA :: Ptr () -> CString -> CString -> CString -> CString -> Ptr CString -> Word32 -> CUIntPtr -> IO (Ptr ())
-- hConnect : void* -> Ptr ()
-- lpszVerb : LPCSTR optional -> CString
-- lpszObjectName : LPCSTR optional -> CString
-- lpszVersion : LPCSTR optional -> CString
-- lpszReferrer : LPCSTR optional -> CString
-- lplpszAcceptTypes : LPCSTR* optional -> Ptr CString
-- dwFlags : DWORD -> Word32
-- dwContext : UINT_PTR optional -> CUIntPtr
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。open Ctypes
open Foreign
let httpopenrequesta =
foreign "HttpOpenRequestA"
((ptr void) @-> string @-> string @-> string @-> string @-> (ptr string) @-> uint32_t @-> size_t @-> returning (ptr void))
(* hConnect : void* -> (ptr void) *)
(* lpszVerb : LPCSTR optional -> string *)
(* lpszObjectName : LPCSTR optional -> string *)
(* lpszVersion : LPCSTR optional -> string *)
(* lpszReferrer : LPCSTR optional -> string *)
(* lplpszAcceptTypes : LPCSTR* optional -> (ptr string) *)
(* dwFlags : DWORD -> uint32_t *)
(* dwContext : UINT_PTR optional -> size_t *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)(cffi:define-foreign-library wininet (t "WININET.dll"))
(cffi:use-foreign-library wininet)
(cffi:defcfun ("HttpOpenRequestA" http-open-request-a :convention :stdcall) :pointer
(h-connect :pointer) ; void*
(lpsz-verb :string) ; LPCSTR optional
(lpsz-object-name :string) ; LPCSTR optional
(lpsz-version :string) ; LPCSTR optional
(lpsz-referrer :string) ; LPCSTR optional
(lplpsz-accept-types :pointer) ; LPCSTR* optional
(dw-flags :uint32) ; DWORD
(dw-context :uint64)) ; UINT_PTR optional
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。use Win32::API;
my $HttpOpenRequestA = Win32::API::More->new('WININET',
'LPVOID HttpOpenRequestA(LPVOID hConnect, LPCSTR lpszVerb, LPCSTR lpszObjectName, LPCSTR lpszVersion, LPCSTR lpszReferrer, LPVOID lplpszAcceptTypes, DWORD dwFlags, WPARAM dwContext)');
# my $ret = $HttpOpenRequestA->Call($hConnect, $lpszVerb, $lpszObjectName, $lpszVersion, $lpszReferrer, $lplpszAcceptTypes, $dwFlags, $dwContext);
# hConnect : void* -> LPVOID
# lpszVerb : LPCSTR optional -> LPCSTR
# lpszObjectName : LPCSTR optional -> LPCSTR
# lpszVersion : LPCSTR optional -> LPCSTR
# lpszReferrer : LPCSTR optional -> LPCSTR
# lplpszAcceptTypes : LPCSTR* optional -> LPVOID
# dwFlags : DWORD -> DWORD
# dwContext : UINT_PTR optional -> WPARAM
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。関連項目
- f HttpOpenRequestW (Unicode版) — HTTPリクエストハンドルを作成する(Unicode版)。