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