我写了一个小程序，用来提取某一文件中的所有BITMAP资源，存成文件。但执行时没报错，也不成功，各位帮忙看看呀(50分)

阿魁 · 2001-10-13

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Buttons, shlobj; type   TForm1 = class(TForm)     Label1: TLabel;     Edit1: TEdit;     SpeedButton1: TSpeedButton;     Label2: TLabel;     Label3: TLabel;     Button1: TButton;     Button2: TButton;     Label4: TLabel;     Edit2: TEdit;     SpeedButton2: TSpeedButton;     OpenDialog1: TOpenDialog;     procedure SpeedButton1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure SpeedButton2Click(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   bmpCount : integer;   //回调函数，我不知声明对不对，但不报错   function CallBack(h : Thandle; resType : pchar; resName : pchar; lParam : cardinal):boolean; stdcall; implementation {$R *.dfm} function CallBack(h : Thandle; resType : pchar; resName : pchar; lParam : cardinal):boolean; var   bmp : TBitmap;   fileName : string; begin   bmp := TBitmap.Create;   try     bmp.Handle := LoadBitmap(h,resName);     fileName := resName;     fileName := form1.Edit2.Text + '/' + fileName + '.bmp';     bmp.SaveToFile(fileName);   finally     bmp.Free;     CallBack := false;   end;   bmpCount := bmpCount+1;   form1.Label3.Caption := intToStr(bmpCount);   CallBack := true; end; //打开资源文件 procedure TForm1.SpeedButton1Click(Sender: TObject); begin   if openDialog1.Execute then     edit1.Text := openDialog1.FileName; end; procedure TForm1.Button2Click(Sender: TObject); begin   close; end; //选择存放目录 procedure TForm1.SpeedButton2Click(Sender: TObject); var   pid : PItemIDList;   bi : TBrowseInfo;   savepath : string; begin   setLength(savepath,255);   FillChar(bi,sizeof(bi),0);   bi.hwndOwner := self.Handle;   bi.pidlRoot := nil;   bi.pszDisplayName := pchar(savepath);   bi.lpszTitle := '选择Bitmap文件存放路径：';   bi.ulFlags := BIF_RETURNONLYFSDIRS;   pid := SHBrowseForFolder(bi);   if pid<>nil then   begin     SHGetPathFromIDList(pid,pchar(savepath));     setLength(savepath,strlen(pchar(savepath)));     edit2.Text := savepath;   end; end; //提取BITMAP资源 procedure TForm1.Button1Click(Sender: TObject); var   h : Thandle; begin   if edit1.Text = '' then   begin     beep;     edit1.SetFocus;     exit;   end;   if edit2.Text = '' then   begin     beep;     edit2.SetFocus;     exit;   end;   h := LoadLibraryEx(pchar(edit1.Text),0,LOAD_LIBRARY_AS_DATAFILE);   if h=0 then   begin     showMessage('load file '+edit1.Text+' error!');     exit;   end;   //枚举资源   EnumResourceNames(h,RT_BITMAP,@CallBack,1);   //FreeLibrary(h);   //showMessage('done!'); end; end. ============== 另外：EnumResourceNames是不是立即返回？如果是，我怎么知道列举完成了？

xianjun · 2001-10-13

程序是对的 EnumResourceNames是对每一个指定的资源调用一次你的回调函数而已 所以不是立即返回

阿魁 · 2001-10-13

可是我明知道我打开的文件里有BITMAP,为什么得不到不存后的文件呢? 我跟踪以下吧。

xianjun · 2001-10-13

我这里一切都OK，保存了一大堆BMP。

阿魁 · 2001-10-13

真的？ 把你的代码贴出来看看吧。 我这边CallBack根本就不被调用。[

]

xianjun · 2001-10-13

不用贴了，除了把  FreeLibrary(H);的注释去掉以外，其他的未做任何改动。[

]

阿魁 · 2001-10-13

奇怪了。 我用WIN2000，你呢？

阿魁 · 2001-10-13

保存的图片能正常查看吗？ 我试过了，有的文件可以，是因为在生成资源是，起了名字。可是保存的文件根本看不了。 而想VC生成的资源，没有名字，只有ID（数字），根本不起作用。 有经验的同志帮忙呀。

xianjun · 2001-10-13

我也是Win2kAS + Delphi6 我取的是Delphi6编译出来的EXE，一切正常。 是你说的那个原因     FileName := resName; 这句出错了 你只要换个FileName就行了，比如bmp001.bmp, bmp002.bmp.... 搞定!

xianjun · 2001-10-13

对了，保存出来的图片是正常的。

阿魁 · 2001-10-13

不行了。 对没有名字只有数字ID的资源不起作用；对有名字，却被压缩了的文件（如用ASPACK压缩）也不起作用。 关键是：EnumResourceNames列举的是资源名字，而不是ID，问题就在这儿。 肯定有解决办法的，我到MSDN去查查。

阿魁 · 2001-10-13

>是你说的那个原因 >    FileName := resName; 这句出错了 >你只要换个FileName就行了，比如bmp001.bmp, bmp002.bmp.... >搞定! 关键是，要用resName来取得资源啊，不然怎么去的资源？ 哎？？？等等，我再去试试~~~ [?]

xianjun · 2001-10-13

资源它已取回来了，因为resName Points to a null-terminated string that contains the name of the bitmap resource to be loaded. Alternatively, this parameter can consist of the resource identifier in the low-order word and zero in the high-order word. 所有用下面的代码就搞定了：我用金山词霸的主执行文件试了一下，OK了。     try       FileName := resName;     except       FileName := IntToStr(Integer(resName));     end;

阿魁 · 2001-10-13

搞定！ 解释如下： 如果资源有名字，则参数resName指向以NULL结束的字符串；如果没有名字，则resName好像 是指向数字，这就是资源的ID。 我还是不太懂，但怎么处理我是明白了。 希望有经验的同志，给指点一下。

阿魁 · 2001-10-13

to xianjun： 好一番折腾，终于搞定了，非常感谢你的参与。 [

]

我写了一个小程序，用来提取某一文件中的所有BITMAP资源，存成文件。但执行时没报错，也不成功，各位帮忙看看呀(50分)

阿魁

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

阿魁

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

阿魁

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

阿魁

Unregistered / Unconfirmed

阿魁

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

阿魁

Unregistered / Unconfirmed

阿魁

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

阿魁

Unregistered / Unconfirmed

阿魁

Unregistered / Unconfirmed

Similar threads