Re^6: Use Windows wimgapi dll

Here is my code ...

use Win32::API;
use Data::Dumper;

use Encode qw( encode );

#API FUNCTION WIMCreateFile
# HANDLE
# WINAPI
# WIMCreateFile(
#     LPWSTR  lpszWimPath,
#     DWORD   dwDesiredAccess,
#     DWORD   dwCreationDisposition,
#     DWORD   dwFlagsAndAttributes,
#     DWORD   dwCompressionType,
#     LPDWORD lpdwCreationResult
#     );



my $filehandler = encode('UCS-2le', "C:\\test.wim");


#Code example in C
#TCHAR *wimFile    = TEXT("C:\\sample_image.wim");  

my $wimfile = new Win32::API("wimgapi", "WIMCreateFile", ['P','N','N',
+'N','N','N'], 'N');
my $hWim = $wimfile->Call($filehandler,
                           WIM_GENERIC_WRITE,
                           WIM_CREATE_NEW,
                           0,
                           0,
                           0);

#Code example in C
# hWim = WIMCreateFile ( wimFile,                               //exis
+ting .wim file to append to
#                        WIM_GENERIC_READ | WIM_GENERIC_WRITE,  //acce
+ss mode
#                        WIM_OPEN_EXISTING,                     //open
+ flag
#                        0,                                     // or 
+WIM_FLAG_VERIFY flag for file corruption check
#                        0,
#                        &created );



print $hWim;
[download]

Comment on Re^6: Use Windows wimgapi dll Download Code

Replies are listed 'Best First'.
Re^7: Use Windows wimgapi dll by BrowserUk (Patriarch) on Aug 04, 2008 at 17:36 UTC
Where are these coming from? `WIM_GENERIC_WRITE, WIM_CREATE_NEW,` [download] What is printed by adding error checking: `my $hWim = $wimfile->Call( $filehandler, WIM_GENERIC_WRITE, WIM_CREATE_NEW, 0, 0, 0 ) or die "Error: $^E";` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^7: Use Windows wimgapi dll
by BrowserUk (Patriarch) on Aug 04, 2008 at 17:36 UTC

Where are these coming from?

                           WIM_GENERIC_WRITE,
                           WIM_CREATE_NEW,
[download]

What is printed by adding error checking:

my $hWim = $wimfile->Call(
    $filehandler, WIM_GENERIC_WRITE, WIM_CREATE_NEW, 0, 0, 0
) or die "Error: $^E";
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

[reply]
[d/l]
[select]