这样用LoadBitmap打开位图资源为什么不行?(50分)

hoir · 2000-05-26

发信人: jacer (jacer), 信区: Delphi 标  题: 用LoadBitmap打开位图资源的问题??? 发信站: 武汉白云黄鹤站 (Tue May 23 19:40:22 2000), 站内信件 运行时总是出现'位图打开失败！',也就是说LoadBitmap函数总返回0 附： .dpr源文件.: program trapmouse; {$R 'resrce.res' 'resrce.rc'} //这里用{$R 'resrce.rc'}或{$R resrce.res}也不行 ... ...   MainBMP,OldBitMap:HBitmap; ... ...   MainBMP:=LoadBitmap(Window,'MainBitMap');                                  //6   if MainBMP=0 then   begin     StayTime:=AlwaysStay;     MessageBox(0,'位图打开失败！',nil,mb_OK);     StayTime:=DefaultStayTime;   end;   OldBitMap:=SelectObject(PaintDC,MainBMP); ... ... resrce.rc文件: MainBitMap BITMAP "Trap80.bmp"

cAkk · 2000-05-26

1.首先把resrce..rc文件编译成resrce..res文件; 2.然后{$R resrce.res} 3.再然后 loadbitmap(hInstance,'MainBitMap'); BTW:你的语句里面的"window"是个什么东西?

老屯 · 2000-05-26

Cake说得不错,一定要用该程序的hInstance

sunrise · 2000-05-27

同意两位看法

SuperMMX · 2000-05-27

后面的参数最好用数字，最保险。

hoir · 2000-05-27

cAkk； Window是该程序的hInstance。 你说的我都做过了，问题是，不行。 我看别人的程序里用得好好的，我的就。。。 请问还有哪里会有问题？

SuperMMX · 2000-05-27

直接用的是 hInstance , 是一个全局变量， 不用声明，跟 screen 一样， .rc 得用 brcc32 编译成 .res

cAkk · 2000-05-27

要不吧你的完整程序贴出来吧

hoir · 2000-05-28

程序如下：（因为太长，有所删节） program trapmouse; {$R resrce.res} uses   Messages,   SysUtils,   Graphics,   Windows; //Windows API:CreateWinow,RegisterClass,DefWindowProc,..etc //  ShareMem; {$R *.RES} {$I trap!.inc} const   AppName='Trap!';   Width=320;   Height=120;   id_BtnOK=100;   id_EditUser=200;   id_MoveTimer=300;   id_MainBitMap=350;   MoveInterval=3000;   //窗口每三秒钟移动一次；   DefaultStayTime=5;   //焦点在EDIT控件上时，窗口停留时间为3*5=15秒；   AlwaysStay=100000;   //窗口总是不动； var   OldR,R: TRECT;   HPos,VPos: Integer;   PassedFlag,CheatMode,CanMove,CanRandomMove: BOOL;   ResolutionRatioX,ResolutionRatioY:Integer;   MainMsg1,MainMsg2,MainMsg3,MainMsg4:String;   TimeCounter,StayTime:Integer;   HBtn_OK,HEdit_User,HEdit_Pwd:HWnd;   MyConfig:ConfigRecord; procedure Trap_OnCreate(Window:HWnd;var Msg:TWMCreate);//AMessage,WParam,LParam:Longint); var   myHDC:HDC;   Dummy:Integer; begin   Configure(Window);   myHDC:=GetDC(Window);   if myHDC=0 then   begin     MessageBox(0,'资源不足，无法启动程序！',nil,mb_OK);     ReleaseDC(Window,myHDC);     Exit;   end;   OldR.left:=0;   OldR.right:=GetDeviceCaps(myHDC,HORZRES);//screen.width;   OldR.top:=0;   OldR.bottom:=GetDeviceCaps(myHDC,VERTRES);//screen.height;   ReleaseDC(Window,myHDC);   ResolutionRatioX:=OldR.right;       //current resolution ratio.   ResolutionRatioY:=OldR.bottom;   R.left:=HPos;   R.right:=HPos+Width;   R.top:=VPos;   R.bottom:=VPos+Height;   ClipCursor(@R);   MainMsg1:='Note:This computer has';   MainMsg2:='been locked by TRAP!';   MainMsg3:='UserName:';   MainMsg4:='PassWord:';   HBtn_OK:=CreateWindowEx(0,'Button','&OK',   ws_Child or ws_Visible or bs_DefPushButton,     250,66,60,24,Window,id_BtnOK,hInstance,nil);   HEdit_User:=CreateWindowEx(0,'Edit','UserName',   ws_Child or ws_Visible or ws_TabStop or ws_Border or es_Right or es_AutoHScroll,     120,45,100,20,Window,id_EditUser,hInstance,nil);   HEdit_Pwd:=CreateWindowEx(0,'Edit','PassWord',   ws_Child or ws_Visible or ws_TabStop or ws_Border or es_Right or es_AutoHScroll or es_PassWord,     120,68,100,20,Window,id_EditUser,hInstance,nil); //to disable ALT-TAB and CTRL-DEL-SHIFT   Dummy := 0; //Disable ALT-TAB   SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0); //Disable CTRL-ALT-DEL   SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);   HideTaskBar;   Randomize;   SetTimer(Window,id_MoveTimer,MoveInterval,nil);   BringWindowToTop(Window); end; procedure Trap_OnDestroy(Window:HWnd;var Msg:TWMDestroy); begin ... end; procedure Trap_OnPaint(Window:HWnd;var Msg:TWMPaint); var   PaintX,PaintY:Integer;   TheFont,OldFont:HFont;   PaintDC:HDC;   PaintStruct:TPaintStruct;   MainBMP,OldBitMap:HBitmap; begin   PaintDC:=BeginPaint(Window,PaintStruct);   if PaintDC=0 then   begin     MessageBox(0,'资源不足，无法启动程序！',nil,mb_OK);     EndPaint(Window,PaintStruct);     Exit;   end;   SetBKMode(PaintDC,TransParent);   TheFont:=GetFont(16,8,fw_Light,0,0,0,0,'Courier New');   OldFont:=SelectObject(PaintDC,TheFont);         SetTextColor(PaintDC,RGB(0,0,255));   TextOut(PaintDC,15,4,PChar(MainMsg1),Length(MainMsg1));   TextOut(PaintDC,15,20,PChar(MainMsg2),Length(MainMsg2));   SetTextColor(PaintDC,RGB(0,0,0));   TextOut(PaintDC,25,47,PChar(MainMsg3),Length(MainMsg3));   TextOut(PaintDC,25,70,PChar(MainMsg4),Length(MainMsg4));   SelectObject(PaintDC,OldFont);   DeleteObject(TheFont);   MainBMP:=LoadBitmap(Window,'MainBitMap');           if MainBMP=0 then   begin     StayTime:=AlwaysStay;     MessageBox(0,'位图打开失败！',nil,mb_OK);     StayTime:=DefaultStayTime;   end;   OldBitMap:=SelectObject(PaintDC,MainBMP);   PaintX:=220;   PaintY:=2;   BitBlt(PaintDC,PaintX,PaintY,PaintX+60,PaintY+60,MainBMP,0,0,SrcPaint);   SelectObject(PaintDC,OldBitMap);   DeleteObject(MainBMP);   EndPaint(Window,PaintStruct); end; ... ... function WindowProc(Window:HWnd;AMessage,WParam,LParam:Longint):Longint;stdcall;export; var   AMsg:TMessage; begin   WindowProc:=0;   AMsg.Msg:=AMessage;   AMsg.WParam:=WParam;   AMsg.LParam:=LParam;   AMsg.Result:=0;   case AMessage of     wm_Create:     begin       Trap_OnCreate(Window,TWMCreate(AMsg));       WindowProc:=DefWindowProc(Window,AMessage,WParam,LParam);     end;     wm_Paint:            Trap_OnPaint(Window,TWMPaint(AMsg));     wm_KeyDown:          Trap_OnKeyDown(Window,TWMKeyDown(AMsg));     wm_KeyUp:            Trap_OnKeyUp(Window,TWMKeyUp(AMsg));     wm_Move:             Trap_OnMove(Window,TWMMove(AMsg));     wm_Timer:            Trap_OnTimer(Window,TWMTimer(AMsg));     wm_NCLButtonDblClk:  Trap_OnNCLButtonDblClk(Window,TWMNCLButtonDblClk(AMsg));     wm_Command:          Trap_OnCommand(Window,TWMCommand(AMsg));     wm_Destroy:          Trap_OnDestroy(Window,TWMDestroy(AMsg));     else                 WindowProc:=DefWindowProc(Window,AMessage,WParam,LParam);   end; end; function WinRegister:Boolean; var   WindowClass:TWndClass; begin   WindowClass.Style:=cs_NoClose;   WindowClass.lpfnWndProc:=@WindowProc;   WindowClass.cbClsExtra:=0;   WindowClass.cbWndExtra:=0;   WindowClass.hInstance:=HInstance;   WindowClass.hIcon:=LoadIcon(0,idi_Application);   WindowClass.hCursor:=LoadCursor(0,IDC_ARROW);   WindowClass.hbrBackground:=HBrush(color_Window);   WindowClass.lpszMenuName:=nil;   WindowClass.lpszClassName:=Appname;   Result:=RegisterClass(WindowClass)<>0; end; function WinCreate:hWnd; var   hWindow:hWnd;   WinStyle : int64; begin   WinStyle:=WS_DLGFRAME or DS_SETFOREGROUND;   hWindow:=CreateWindow(AppName,'Trap! ver 0.1',   WinStyle,HPos,VPos,Width,Height,0,0,hInstance,nil);   if HWindow<>0 then   begin     ShowWindow(hWindow,CmdShow);     UpdateWindow(hWindow);   end;   Result:=hWindow; end; var   AMessage:TMsg;   hWindow:hWnd; begin   PassedFlag:=False;   CheatMode:=False;   CanMove:=True;   CanRandomMove:=True;   HPos:=240;   VPos:=240;   TimeCounter:=0;   StayTime:=5;   if not WinRegister then   begin     MessageBox(0,'窗口注册失败！',nil,mb_OK);     Exit;   end;   hWindow:=WinCreate;   if hWindow=0 then   begin     MessageBox(0,'窗口启动失败！',nil,mb_OK);     Exit;   end;   while GetMessage(AMessage,0,0,0) do   begin     TranslateMessage(AMessage);     DispatchMessage(AMessage);   end;   Halt(AMessage.wParam); end.

SuperMMX · 2000-05-28

你的 ‘MainBitMap’ 是在哪里定义的资源，？？？？ 一般不在主程序名字.res 中，而要在另外一个资源中， 先得有资源才能调用， MainBMP:=LoadBitmap(Window,'MainBitMap'); 还有你的 window 不是 hInstance, 是窗口句柄，不一样的。 btw:  LoadBitmap(hInstance, Makeintresource(aResID));                             ~maybe Makeresourceint(aResID) 还有：你的这种写法很混乱 有点看不清楚，

partisan · 2000-05-28

LoadBitmap(param1, param2) 其中，param1是模块(比如说EXE或DLL)句柄(不是窗口句柄)。在Win32中，模块 句柄实际上就是模块在内存中的地址，LoadBitmap将从放在这个地址的那个模块 中得到param2所指示的位图资源，因为资源都是包含在模块中的，所以param1 不同，将从不同的模块中装入资源，如果param1是nil，将从windows本身装入 资源。而窗口句柄仅仅是指向一个窗口结构数据的指针，描述的是窗口，不是模块， 没有什么资源。param2是资源的名字，是字符串，如果只有资源的代号而没有 对应字符串，可用MAKEINTRESOURCE(ID)得到ID对应的字符串。 你如果想从当前运行的文件中读取资源，可以用全局变量HInstance或 MainInstance作为param1。或者用GetModuleHandle(nil)得到当前模块句柄。 如果想从别的模块中得到资源，可以用GetModuleHandle(ModuleName)得到那个 模块的句柄。

hoir · 2000-05-28

SuperMMX: MainBitMap 在resrce.rc 文件中定义： MainBitMap BITMAP "Trap80.bmp" 不好意思，程序贴出来就变了样啦。 partisian: 我用 GetModuleHandle(nil) 取代了 window, MainBMP:=LoadBitmap(GetModuleHandlenil), 'MainBitMap')；返回了非零值， 但是，图象还是显示不出来，why?

jacer · 2000-05-28

咦？

hoir · 2000-05-28

为什么没人回答？？ DELPHI的API帮助说，SelectObject的第二个参数必须由以下函数创建： （The specified object must have been created by using one of the following functions）: CreateBitmap, CreateBitmapIndirect, CreateCompatibleBitmap, CreateDIBitmap, CreateDIBSection 我在 1 处加上   MainBMP:=CreateCompatibleBitmap(PaintDC,60,60); 结果还是不行。 ？？？

老屯 · 2000-05-28

怎么搞的,这么基本的问题就搞不明白了呢,看看Delphi子代的演示程序ResExplorer能不能打开 你的资源文件, hInstance是Delphi中的全局变量,另外就是图像的名字是否正确了

w5w · 2000-05-28

我用loadbitmap没有任何问题，你最好新建一个工程， 练习一下loadBitmap的用法，看是否成功。

jacer · 2000-05-29

hoir: 这是我提的问题呀！ 我已经解决了。 var   PaintDC:HDC;   PaintStruct:TPaintStruct;   MainBMP,DrawBMP,OldBitMap:HBitmap; begin ... ...   MainBMP:=LoadBitmap(GetModuleHandle(nil),'MainBitMap');   if MainBMP=0 then   begin     StayTime:=AlwaysStay;     MessageBox(0,'位图打开失败！',nil,mb_OK);     StayTime:=DefaultStayTime;   end;   DrawBMP:=CreateCompatibleDC(PaintDC);   OldBitMap:=SelectObject(DrawBMP,MainBMP);   PaintX:=250;   PaintY:=2;   BitBlt(PaintDC,PaintX,PaintY,60,60,DrawBMP,0,0,SRCAND);   SelectObject(DrawBMP,OldBitMap);   DeleteObject(DrawBMP);   EndPaint(Window,PaintStruct); ... ... end;

hoir · 2000-05-29

多人接受答案了。

这样用LoadBitmap打开位图资源为什么不行?(50分)

hoir

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

老屯

Unregistered / Unconfirmed

sunrise

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

hoir

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

hoir

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

partisan

Unregistered / Unconfirmed

hoir

Unregistered / Unconfirmed

jacer

Unregistered / Unconfirmed

hoir

Unregistered / Unconfirmed

老屯

Unregistered / Unconfirmed

w5w

Unregistered / Unconfirmed

jacer

Unregistered / Unconfirmed

hoir

Unregistered / Unconfirmed

Similar threads