loadlibrary.ps1

# ------------------------------------------------------------------------------
# loads libcurl.dll and calls curl_version()
#

set-strictmode -version 'latest'
$erroractionpreference = 'Stop'
#if ([intptr]::size -ne 8) {
#	throw 'not a 64-bit powershell instance'}

$w32 = Add-Type -Namespace Win32 -Name Win32 -PassThru -MemberDefinition @'
	[DllImport("kernel32.dll", CharSet = CharSet.Unicode)]
	public static extern IntPtr LoadLibrary(string Name);

	[DllImport("kernel32.dll", CharSet = CharSet.Ansi)]
	public static extern IntPtr GetProcAddress(IntPtr Mod, string Name);

	[DllImport("kernel32.dll")]
	public static extern uint GetLastError();
'@

function enforce($cond) {
	# [intptr]::zero is a truthy value apparently
	# so explicit test for 0
	if (!$cond -or ($cond -eq 0)) {
		throw (new-object applicationexception(
			'enforcement failed @ line {0}' -f $myinvocation.scriptlinenumber))}
	$cond}

function get-delegatetype {
	param (
		[outputtype([type])]
		
		[parameter(position = 0)]
		[type[]]
		$parameters = (new-object type[](0)),
		
		[parameter(position = 1)]
		[type]
		$returntype = [void]
	)

	function randomuuid {[guid]::newguid().tostring()}

	$domain = [appdomain]::currentdomain
	$dynassembly = new-object reflection.assemblyname(randomuuid)
	$assemblybuilder = $domain.definedynamicassembly(
		$dynassembly, [reflection.emit.assemblybuilderaccess]::run)
	$modulebuilder = $assemblybuilder.definedynamicmodule((randomuuid), $false)
	$typebuilder = $modulebuilder.definetype(
		(randomuuid),
		'Class, Public, Sealed, AnsiClass, AutoClass',
		[multicastdelegate])
	$constructorbuilder = $typebuilder.defineconstructor(
		'RTSpecialName, HideBySig, Public',
		[reflection.callingconventions]::standard,
		$parameters)
	$constructorbuilder.setimplementationflags('Runtime, Managed')
	$methodbuilder = $typebuilder.definemethod(
		'Invoke',
		'Public, HideBySig, NewSlot, Virtual',
		$returntype,
		$parameters)
	$methodbuilder.setimplementationflags('Runtime, Managed')
	
	write-output $typebuilder.createtype()}

# ------------------------------------------------------------------------------

$lib = enforce $w32::LoadLibrary('libcurl')

$f = [runtime.interopservices.marshal]::getdelegateforfunctionpointer(
	(enforce $w32::GetProcAddress($lib, 'curl_version')),
	(get-delegatetype @() ([intptr])))

echo ([runtime.interopservices.marshal]::ptrtostringansi(
	$f.invoke()))

# ------------------------------------------------------------------------------



















































# ------------------------------------------------------------------------------