in reply to 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]
?

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]
      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]
        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]

In Section Seekers of Perl Wisdom