ホーム › Networking.WinInet › HttpGetServerCredentials

HttpGetServerCredentials

関数

指定URLのサーバー認証用ユーザー名とパスワードを取得する。

DLLWININET.dll呼出規約winapi

シグネチャ

// WININET.dll
#include <windows.h>

DWORD HttpGetServerCredentials(
    LPWSTR pwszUrl,
    LPWSTR* ppwszUserName,
    LPWSTR* ppwszPassword
);

パラメーター

名前	型	方向
pwszUrl	LPWSTR	in
ppwszUserName	LPWSTR*	out
ppwszPassword	LPWSTR*	out

戻り値の型: DWORD

各言語での呼び出し定義

// WININET.dll
#include <windows.h>

DWORD HttpGetServerCredentials(
    LPWSTR pwszUrl,
    LPWSTR* ppwszUserName,
    LPWSTR* ppwszPassword
);

[DllImport("WININET.dll", ExactSpelling = true)]
static extern uint HttpGetServerCredentials(
    [MarshalAs(UnmanagedType.LPWStr)] string pwszUrl,   // LPWSTR
    IntPtr ppwszUserName,   // LPWSTR* out
    IntPtr ppwszPassword   // LPWSTR* out
);

<DllImport("WININET.dll", ExactSpelling:=True)>
Public Shared Function HttpGetServerCredentials(
    <MarshalAs(UnmanagedType.LPWStr)> pwszUrl As String,   ' LPWSTR
    ppwszUserName As IntPtr,   ' LPWSTR* out
    ppwszPassword As IntPtr   ' LPWSTR* out
) As UInteger
End Function

' pwszUrl : LPWSTR
' ppwszUserName : LPWSTR* out
' ppwszPassword : LPWSTR* out
Declare PtrSafe Function HttpGetServerCredentials Lib "wininet" ( _
    ByVal pwszUrl As LongPtr, _
    ByVal ppwszUserName As LongPtr, _
    ByVal ppwszPassword As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

HttpGetServerCredentials = ctypes.windll.wininet.HttpGetServerCredentials
HttpGetServerCredentials.restype = wintypes.DWORD
HttpGetServerCredentials.argtypes = [
    wintypes.LPCWSTR,  # pwszUrl : LPWSTR
    ctypes.c_void_p,  # ppwszUserName : LPWSTR* out
    ctypes.c_void_p,  # ppwszPassword : LPWSTR* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('WININET.dll')
HttpGetServerCredentials = Fiddle::Function.new(
  lib['HttpGetServerCredentials'],
  [
    Fiddle::TYPE_VOIDP,  # pwszUrl : LPWSTR
    Fiddle::TYPE_VOIDP,  # ppwszUserName : LPWSTR* out
    Fiddle::TYPE_VOIDP,  # ppwszPassword : LPWSTR* out
  ],
  -Fiddle::TYPE_INT)

#[link(name = "wininet")]
extern "system" {
    fn HttpGetServerCredentials(
        pwszUrl: *mut u16,  // LPWSTR
        ppwszUserName: *mut *mut u16,  // LPWSTR* out
        ppwszPassword: *mut *mut u16  // LPWSTR* out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("WININET.dll")]
public static extern uint HttpGetServerCredentials([MarshalAs(UnmanagedType.LPWStr)] string pwszUrl, IntPtr ppwszUserName, IntPtr ppwszPassword);
"@
$api = Add-Type -MemberDefinition $sig -Name 'WININET_HttpGetServerCredentials' -Namespace Win32 -PassThru
# $api::HttpGetServerCredentials(pwszUrl, ppwszUserName, ppwszPassword)

#uselib "WININET.dll"
#func global HttpGetServerCredentials "HttpGetServerCredentials" sptr, sptr, sptr
; HttpGetServerCredentials pwszUrl, varptr(ppwszUserName), varptr(ppwszPassword)   ; 戻り値は stat
; pwszUrl : LPWSTR -> "sptr"
; ppwszUserName : LPWSTR* out -> "sptr"
; ppwszPassword : LPWSTR* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

出力引数:

#uselib "WININET.dll"
#cfunc global HttpGetServerCredentials "HttpGetServerCredentials" wstr, var, var
; res = HttpGetServerCredentials(pwszUrl, ppwszUserName, ppwszPassword)
; pwszUrl : LPWSTR -> "wstr"
; ppwszUserName : LPWSTR* out -> "var"
; ppwszPassword : LPWSTR* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "WININET.dll"
#cfunc global HttpGetServerCredentials "HttpGetServerCredentials" wstr, sptr, sptr
; res = HttpGetServerCredentials(pwszUrl, varptr(ppwszUserName), varptr(ppwszPassword))
; pwszUrl : LPWSTR -> "wstr"
; ppwszUserName : LPWSTR* out -> "sptr"
; ppwszPassword : LPWSTR* out -> "sptr"
; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。

出力引数:

; DWORD HttpGetServerCredentials(LPWSTR pwszUrl, LPWSTR* ppwszUserName, LPWSTR* ppwszPassword)
#uselib "WININET.dll"
#cfunc global HttpGetServerCredentials "HttpGetServerCredentials" wstr, var, var
; res = HttpGetServerCredentials(pwszUrl, ppwszUserName, ppwszPassword)
; pwszUrl : LPWSTR -> "wstr"
; ppwszUserName : LPWSTR* out -> "var"
; ppwszPassword : LPWSTR* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; DWORD HttpGetServerCredentials(LPWSTR pwszUrl, LPWSTR* ppwszUserName, LPWSTR* ppwszPassword)
#uselib "WININET.dll"
#cfunc global HttpGetServerCredentials "HttpGetServerCredentials" wstr, intptr, intptr
; res = HttpGetServerCredentials(pwszUrl, varptr(ppwszUserName), varptr(ppwszPassword))
; pwszUrl : LPWSTR -> "wstr"
; ppwszUserName : LPWSTR* out -> "intptr"
; ppwszPassword : LPWSTR* out -> "intptr"
; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。

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

var (
	wininet = windows.NewLazySystemDLL("WININET.dll")
	procHttpGetServerCredentials = wininet.NewProc("HttpGetServerCredentials")
)

// pwszUrl (LPWSTR), ppwszUserName (LPWSTR* out), ppwszPassword (LPWSTR* out)
r1, _, err := procHttpGetServerCredentials.Call(
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(pwszUrl))),
	uintptr(ppwszUserName),
	uintptr(ppwszPassword),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD

function HttpGetServerCredentials(
  pwszUrl: PWideChar;   // LPWSTR
  ppwszUserName: PPWideChar;   // LPWSTR* out
  ppwszPassword: PPWideChar   // LPWSTR* out
): DWORD; stdcall;
  external 'WININET.dll' name 'HttpGetServerCredentials';

result := DllCall("WININET\HttpGetServerCredentials"
    , "WStr", pwszUrl   ; LPWSTR
    , "Ptr", ppwszUserName   ; LPWSTR* out
    , "Ptr", ppwszPassword   ; LPWSTR* out
    , "UInt")   ; return: DWORD

●HttpGetServerCredentials(pwszUrl, ppwszUserName, ppwszPassword) = DLL("WININET.dll", "dword HttpGetServerCredentials(char*, void*, void*)")
# 呼び出し: HttpGetServerCredentials(pwszUrl, ppwszUserName, ppwszPassword)
# pwszUrl : LPWSTR -> "char*"
# ppwszUserName : LPWSTR* out -> "void*"
# ppwszPassword : LPWSTR* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。