无可否认,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单元就可以了。
