用户登录  |  用户注册
首 页商业源码原创产品编程论坛
当前位置:PB创新网文章中心编程技巧Visual C++

利用其他编译器增强Visual C++的图形功能

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 20:29:09

利用其他编译器增强Visual C++的图形功能

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


Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
PB创新网ourmis.com】Copyright © 2000-2009 . All Rights Reserved .
页面执行时间:23,343.75000 毫秒
Email:ourmis@126.com QQ:2322888 蜀ICP备05006790号