[求助]delphi下通过wimgapi.dll操作wim文件

冷风无泪

最近写个小程序涉及到wim文件的操作，担折腾了很久都弄不出来！附件里是相关函数的声明，请各位大大给WIMMountImage,WIMGetImageInformation函数的例子！~~

[ 本帖最后由 冷风无泪 于 2009-12-25 15:29 编辑 ]

lxl1638

楼主这个 WIMGAPI.PAS 是从哪 里弄来的？

冷风无泪

百度搜出来的，在下面的网址！

http://www.delphipraxis.net/post1061317.html

f00l

试着翻译了一下MSDN，仅作抛砖引玉用。。。
本人技术很菜，仅供UP主参考。。。

[ 本帖最后由 f00l 于 2009-12-24 21:45 编辑 ]

冷风无泪

谢谢f00l了，明晚再折腾！~~

lxl1638

本人在2006年已将 C++ 格式的头文件 WIMGAPI.H 转换成了 Delphi 的单元文件 WIMGAPI.PAS。
见 http://bbs.wuyou.net/viewthread. ... p%3Bfilter%3Ddigest

WIMMountImage 的用法很简单，函数声明如下：
WIMMountImage: function(lpszMountPath{映像挂载目录},
    lpszWimFileName{映像文件名}: PWideChar;
    dwImageIndex: DWORD; //被挂载的卷ID
    lpszTempPath: PWideChar //WIM临时工作目录
    ): BOOL; stdcall; {返回值TRUE为成功，FALSE为失败}


WIMGetImageInformation 的用法也不难，真正难是自己去处理它的返回结果，
难就难在要自己解释 WIM 的 Info，WIM 的 Info 是 Unicode 格式编码的 XML 文档。
WIMGetImageInformation 函数声明如下：
WIMGetImageInformation: function(hWim: HWND; //由 WIMCreateFile 或 WIMLoadImage 返回的句柄
    pvImageInfo: Pointer; //缓冲区地址(指针，这个缓冲区要自己伸请内存，并保证足够大)
    pcbImageInfo: PDWORD //缓冲区大小的地址(指针)
   ): BOOL; stdcall; {返回值TRUE为成功，FALSE为失败}

[ 本帖最后由 lxl1638 于 2009-12-25 00:52 编辑 ]

冷风无泪

procedure TForm1.Button1Click(Sender: TObject);
const
created : DWORD =1;
var
FileHandle:THandle;
Size:   Integer;
Buffer:   PChar;
Pot:PDWORD;
begin
    InitWIMGAPI;
    FileHandle:=WIMCreateFile(PWideChar('E:\tempfiles\sources\install.wim'),WIM_GENERIC_READ,WIM_OPEN_EXISTING, WIM_FLAG_SHARE_WRITE, WIM_COMPRESS_XPRESS,@created);
    Size:=10000;
    GetMem(Buffer,Size);
    pot:=@Size;
    if WIMGetImageInformation(FileHandle,Buffer,pot) Then
    begin
    MessageBox(0, Buffer, '', MB_OK);
    end;
    FreeMem(Buffer);
end;

请教一下老九，怎么MessageBox后显示的是这样的？

应该怎样改，还请教一下我！~~

lxl1638

原帖由 冷风无泪 于 2009-12-25 15:29 发表

请教一下老九，怎么MessageBox后显示的是这样的？
78213
应该怎样改，还请教一下我！~~

procedure TForm1.Button1Click(Sender: TObject);
const
created : DWORD =1;
var
FileHandle:THandle;
Size:   Integer;
Buffer:   PChar;
Pot:PDWORD;
begin
    InitWIMGAPI;
    FileHandle:=WIMCreateFile(PWideChar('E:\tempfiles\sources\install.wim'),WIM_GENERIC_READ,WIM_OPEN_EXISTING, WIM_FLAG_SHARE_WRITE, WIM_COMPRESS_XPRESS,@created);
    Size:=10000;
    GetMem(Buffer,Size);
    pot:=@Size;
    if WIMGetImageInformation(FileHandle,Buffer,pot) Then
    begin
    MessageBox(0, Buffer, '', MB_OK);
    end;
    FreeMem(Buffer);
end;

WIMGetImageInformation填入Buffer的是Unicode编码的数据。

Delphi 中 MessageBox 的第二个参数是Ansi字符串。

[ 本帖最后由 lxl1638 于 2009-12-25 17:53 编辑 ]

冷风无泪

但是用

MessageBoxW(0, Buffer, '', MB_OK);

仍是乱码的？

f00l

如果你用是Delphi2009及2010，那么你定义的Buffer:   PChar;其实是Buffer:   PWideChar;
如果你用的Delphi2007级以下版本或者Lazarus，那么你定义的Buffer:   PChar;其实是Buffer:   PAnsiChar;


为了各版本通用，请定义成Buffer:   PWideChar;

冷风无泪

我现在用的delphi版本是2010，定义成Buffer:PWideChar;同样也是乱码！