Hostlib.resource - Revision history

Molly: /* Example: 1 */ added example for Windows

2014-09-20T21:49:14Z

Example: 1: added example for Windows

Molly: /* the unit */ Added unit

2014-09-20T21:44:13Z

the unit: Added unit

Molly: minor cradle correction

2014-09-20T21:41:19Z

minor cradle correction

Molly: cradle

2014-09-20T21:40:18Z

cradle

New page

== hostlib.resource ==
[insert background information here]

== examples ==

=== Example: 1 ===

<source lang="pascal">
</source>

=== Example: 2 ===

<source lang="pascal">
</source>

=== Example: 3 ===

<source lang="pascal">
</source>

== the unit ==

<source lang="pascal">

=== unit documentation ===
</source>

[insert unit documentation here]

<source lang="xml">
</source>

← Older revision		Revision as of 21:49, 20 September 2014
Line 7:		Line 7:

	<source lang="pascal">		<source lang="pascal">
		+
		+	program Test_HostLib_1;
		+
		+	{$MODE OBJFPC}{$H+}
		+
		+	Uses
		+	exec, aros_hostlib, sysutils;
		+
		+
		+	const
		+	Symbols : array[0..2] of pchar =
		+	(
		+	'GetEnvironmentStringsA',
		+	'FreeEnvironmentStringsA',
		+	nil
		+	);
		+
		+
		+	Type
		+	PKernel32Interface = ^TKernel32Interface;
		+	TKernel32Interface = record
		+	GetEnvironmentStringsA : Function(): pchar; stdcall;
		+	FreeEnvironmentStringsA : Function(lpszEnvironmentBlock: pchar): longBool; stdcall;
		+	end;
		+
		+
		+	Var
		+	kernel32base : pointer;
		+	kernel32iface : PKernel32Interface;
		+	n : LongWord;
		+
		+
		+	procedure GetHostEnvStrings;
		+	var
		+	EnvStrings: pchar;
		+	i : integer;
		+	begin
		+	Forbid;
		+	EnvStrings := kernel32iface^.GetEnvironmentStringsA();
		+	Permit;
		+
		+	i := 0;
		+
		+	If (EnvStrings <> nil) then
		+	while (EnvStrings^ <> #0) do
		+	begin
		+	writeln('EnvStrings[', i, '] -> ', StrPas(EnvStrings));
		+	Inc(EnvStrings, StrLen(EnvStrings) + 1);
		+	inc(i);
		+	end;
		+
		+	forbid;
		+	kernel32iface^.FreeEnvironmentStringsA(EnvStrings);
		+	permit;
		+	end;
		+
		+
		+
		+
		+	procedure do1;
		+	begin
		+	If (hostlibbase = nil) then
		+	begin
		+	writeln('unable to open hostlib.resource');
		+	exit;
		+	end
		+	else
		+	writeln('hostlibbase = ', intToHex(longword(hostlibbase),8));
		+
		+
		+	kernel32Base := HostLib_Open('kernel32.dll', nil);
		+	if (kernel32Base <> nil) then
		+	begin
		+	writeln('kernel32.dll opened succesfully');
		+
		+	n := 0;
		+	kernel32iface := PKernel32Interface(HostLib_GetInterface(Kernel32base, Symbols, @n));
		+
		+	if (Kernel32iface <> nil) then
		+	begin
		+	writeln('interface to kernel openen succesfully');
		+	writeln('n = ', n);
		+
		+	if (n = 0) then
		+	begin
		+	writeln('n was ok');
		+
		+	// checking functions
		+	write('function kernel32.dll->GetEnvironmentStrings is ');
		+	if (pointer(kernel32iface^.GetEnvironmentStringsA) <> nil)
		+	then writeln('valid')
		+	else writeln('invalid');
		+
		+	write('function kernel32.dll->FreeEnvironmentString is ');
		+	if (pointer(kernel32iface^.FreeEnvironmentStringsA) <> nil)
		+	then writeln('valid')
		+	else writeln('invalid');
		+
		+	// checking out something ;-p
		+	GetHostEnvStrings;
		+	end
		+	else writeln('unresolved functions found');
		+
		+	HostLib_DropInterface(paptr(Kernel32IFace));
		+	end
		+	else writeln('failed to retrieve interface to kernel32');
		+
		+	HostLib_Close(Kernel32Base, nil);
		+	end
		+	else writeln('opening of kernel32.dll failed');
		+	end;
		+
		+
		+	begin
		+	writeln('enter');
		+	do1;
		+	writeln('leave');
		+	end.
		+
	</source>		</source>

@@ Line 22: / Line 22: @@
 <source lang="pascal">
 </source>
 === unit documentation ===