Re: Win32::API to import function

have you tried

my $sFuncRscIoCheck = new Win32::API('Rscw32', 'USHORT RscIoCheck(ULON
+G ulConnectionHandle,ULONG ulSessionHandle,SHORT *pnIoHandle,VOID *pv
+ReplyBuffer,USHORT *puReplySize)');
[download]

Comment on Re: Win32::API to import function Download Code

Replies are listed 'Best First'.
Re^2: Win32::API to import function by Anonymous Monk on Mar 01, 2005 at 13:55 UTC
If I use the following line to import the function: Win32::API->Import('Rscw32', 'USHORT RSCCHK(ULONG ulConnectionHandle,ULONG ulSessionHandle,SHORT pnIoHandle,VOID pvReplyBuffer,USHORT *puReplySize)'); I have a crash at this line (i.e. as soon as I use it): $sReturn = RSCCHK($sConnectionHandle, $sSessionHandle, $sCheckAll, $sReplyBuffer, $sReplySize); Note: To import the "RscIoCheck" function, I need to use his API function name "RSCCHK".	[reply]
Re^3: Win32::API to import function by ptk (Initiate) on Mar 01, 2005 at 14:16 UTC
I have try the "Import" and the following: `my $sFuncRscIoCheck = new Win32::API('Rscw32', 'USHORT RSCCHK(ULONG ul +ConnectionHandle,ULONG ulSessionHandle,SHORT pnIoHandle,VOID pvRepl +yBuffer,USHORT *puReplySize)'); $sReturn = $sFuncRscIoCheck->Call($sConnectionHandle, $sSessionHandle, $sCheckAll, $sReplyBuffer, $sReplySize);` [download] They crash the perl interpreter with the Win error message: "Perl Command Line Interpreter has encountered a problem and needs to close. We are sorry for the inconvenience.". Any other idea?	[reply] [d/l]
Re^4: Win32::API to import function by Anonymous Monk on Mar 15, 2005 at 13:46 UTC
To make it work, write: `my $sReturn = $sFuncRscIoCheck->Call($sConnectionHandle, $sSessionHandle, $sCheckAll,<br> $sReplyBuffer, $sReplySize) & 0xFF; print "My Return is : $sReturn\n";` [download] The return value will be set to 17 as expected.	[reply] [d/l]


Perl-Sensitive Sunglasses
	PerlMonks