Re^6: Win32::API::Struct: Pointers of Pointers

[esskar]

in reply to Re^5: Win32::API::Struct: Pointers of Pointers
in thread Win32::API::Struct: Pointers of Pointers

that's what i mean. it is a pointer of a pointer. The function alloactes the needed memory itself. here is the prove

sub query_users {
    my ( $self, $filename ) = @_;

    my $func = import_api( 'advapi32', 'QueryUsersOnEncryptedFile', 'P
+P', 'N' );        
    die "Could not import API QueryUsersOnEncryptedFile: $!"
      unless defined $func;
      
    $filename = make_unicode( File::Spec->canonpath($filename) );     
+          
    my $ptr = " " x 4; # 4 == sizeof(void*)
    my $result = $func->Call( "$filename", $ptr );
    print "result: $result\n";
    return undef if $result;
    
    my $address = unpack( "L*", $ptr );
    printf("0x%08x\n", $address);            
}

i think i have to switch to XS at this point.

[BrowserUk]

In theory, this should work...but it doesn't.

#! perl -slw
use strict;
use Encode;
use Devel::Peek;
use Win32::API::Prototype;

ApiLink( 'advapi32', q[
    DWORD QueryUsersOnEncryptedFile(
        LPCWSTR lpFileName,
        ULONG pUsers
    )
]) or die $^E;

my $buffer = chr(0) x 4;
print Dump( $buffer );
my $pointer = unpack 'L!', pack 'P', $buffer;

printf "%08x\n", $pointer;

my $uFile = encode( 'UTF-16LE', $_ = $ARGV[ 0 ], 1 );
print $uFile;

QueryUsersOnEncryptedFile(
    $uFile,
    $pointer
) or die "$! : $^E";

print Dump( \$buffer );
print unpack 'C*',$buffer;