无可否认，Visual C++是非常强大的编程环境。但是，Visual C++也有很多限制，比如在界面的构筑和图形处理方面远不如Delphi/BCB那样方便。不过，我们完全可以利用这些编译器提供的功能，来弥补Visual C++在这方面的不足。
我在各个编程论坛上经常看到关于如何从。BMP文件中载入图象和如何将图象储存到。BMP文件这样的话题。其实，从BMP中载入图象是非常简单的：一个LoadImage函数调用就能够解决问题。但是，如何把图象存入BMP文件呢？我虽然很清楚BMP文件的结构，但是我不会从头去写一个这样的函数或是类，那样等于“重新发明轮子”。固然我也知道现在有很多这样的库可以利用，但作为一个程序员，自己解决问题会更有成就感。这里，我有一个偷懒的办法：只要写上十几行代码，加上一点额外的步骤，我就可以搞定它，完全不用接触那些佶屈赘牙的BITMAPxxxxHEADER，不用关心剪贴板和象素格式，不用考虑行程编码，只要有一个Delphi编译器就行了。且看我是如何作的：
打开Delphi，生成一个新的Dll工程，在Dll中如下导出SaveBitmapToFile函数：
| unit ImageDll; interface uses SysUtils, Classes, Windows, Graphics; function SaveBitmapToFile(hbm:HBITMAP;szFileName:PChar):Boolean;stdcall;export; implementation function SaveBitmapToFile(hbm:HBITMAP;szFileName:PChar):Boolean; var bm : TBitmap; strFileName : string; begin result := True; try bm := TBitmap.Create; try bm.Handle := hbm; strFileName := StrPas(szFileName); bm.SaveToFile(strFileName); except result := False; end finally bm.Free; end; end; |
如何？非常简单吧？只要编译这个Dll成功，我的工作就完成了。不过，还是在Visual C++里面测试一下实际效果的好。下面是我为一个Dialog Based的Visual C++工程添加的测试代码：
| typedef BOOL (__stdcall *PFNSAVEBITMAPTOFILE)(HBITMAP,LPCSTR); BOOL CTestDlg::OnInitDialog() { m_hLib = LoadLibrary("DelphiImage.dll"); } void CTestDlg::OnDestroy() { if (m_hLib) FreeLibrary(m_hLib); } void CTestDlg::OnButton1() { HBITMAP hbm = (HBITMAP)LoadImage(AfxGetInstanceHandle(),"c:windows安装程序.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE); if (hbm) { PFNSAVEBITMAPTOFILE pfnSaveBitmapToFile = (PFNSAVEBITMAPTOFILE)GetProcAddress(m_hLib,"SaveBitmapToFile"); if (pfnSaveBitmapToFile) (*pfnSaveBitmapToFile)(hbm,"c:test.bmp"); else AfxMessageBox("GetProcAddress Failed!"); DeleteObject(hbm); } } |
只要你对VC和Delphi有稍许了解的话，上述的代码对你来说应该不成问题。如果你愿意的话，还可以向Dll中添加对ICO，WMF，甚至JPG文件的支持！只要你在Delphi的DLL项目中引入JPEG单元就可以了。