Select Code to Download

Select or download this

Win32::API->Import($S{DLL_path}, 'int RegisterClient2(int *pnClientId,
+ char *pszIPAddress)');

...

my $result = RegisterClient2($client_id, $S{read_IP});

Select or download this

my $RegisterClient2 = Win32::API->new($S{DLL_path}, 'int RegisterClien
+t2(int *pnClientId, char *pszIPAddress)');

...

my $result = $RegisterClient2->Call($client_id, $S{read_IP});

Select or download this

use strict;
use warnings;
...
__DATA__
__C__
#include "Easy4ApiDef.h"

Select or download this

Set up gcc environment - 3.4.5 (mingw-vista special r3)
Use of inherited AUTOLOAD for non-method main::RegisterClient2() is de
+precated at inline.pl line 115.
Can't locate auto/main/RegisterCli.al in @INC (@INC contains: D:\meres
+\SAR\_Inline\lib C:/Perl/site/lib C:/Perl/lib .) at inline.pl line 11
+5

Select or download this

extern "C" __declspec(dllexport) int RegisterClient2(int *pnClientId, 
+const char *pszIPAddress);