我的Win32开发抉择，Delphi老将复出

这两天在开发公司的一个教学软件客户端，因为要考虑到给PHP、平面设计等班的同学使用，为了避免安装.Net Framework、JRE的麻烦（如果把.Net Framework、JRE打包到安装包，也会使得安装包太大），因此没有选择使用.Net、Java开发。

那么接下来就考虑使用C/C++开发了，采用纯Win32开发太累，选用QT、MFC、WxWidgets之类能简化工作，MFC就不提了简直就是一坨翔谁用谁难受，QT开发出的界面太不Native，WxWidgets界面很Native而且类库设计的超好，使用WxWidgets开发程序甚至有时候感觉不到自己在使用C++，使用WxWidgets开发即能用到c++的高运行效率，又能用到.Net/Java一样的超酷类库。但是WxWidgets要考虑到跨多平台，所以调用ActiveX、Com等Windows平台相关特性的时候很困难，而我这个工具就是要有很多调用这些东西，所以只能忍痛放弃WxWidgets了。WxWidgets是开源的，如果有人能把WxWidgets 分支出一个For Windows Only的版本，把Windows平台特性支持提供好了，那么是非常酷的一件事情了。

当然现实是残酷了，必须选择一个更适合的技术了，我想到了我人生第一个深入研究的语言Delphi。Delphi能够开发Win32程序，同时提供的类库也丰富，调用Windows平台特性也非常方便。因此就决定使用Delphi开发了（其实C++Builder也不错）。

和当年的如日中天相比，现在的Delphi已经没落了，使用Delphi的人越来越少，CSDN的Delphi板块上经常是“很长时间没回来了，回来看看”、“再见Delphi，我投奔.net or java去了”、“某某大牛很久没有在Delphi版上出现了”，很悲凉的。而且我感觉很奇怪的是，我10年前就在使用Delphi7，到现在Delphi已经出了DelphiXE4了，而现在使用Delphi的人最多的竟然还是Delphi7。就像现在使用VC开发的最多的还是使用1998年出的VC6。不得不感叹社区氛围的差异。

这次开发我还是选择了DelpihXE，因为高版本的DelphiXE提供了泛型以及更丰富的库，当然还有更好用的开发环境。这次我要分享的就是在DelphiXE中更方便的操作“嵌入资源”的方法。

我开发的这个客户端中需要把一些png图片嵌入到exe中，然后在程序中动态加载png图片，这样可以实现单一exe文件的“绿色版”。到网上查资料，提到的方法都是手动编写.rc文件，然后命令行调用brcc32.exe把.rc编译成.res文件，然后在代码中通过{$R Sample.RES}引用编译。很麻烦，很奇怪，当年Win32开发的王者竟然没有傻瓜化的资源文件的引用方法，要知道连VC都有一个ResourceEditor呀。找了半天竟然真的没有，天哪！超级懒的我在DelphiXE里胡乱的点着，忽然发现主菜单的Project下发现了“Resources and Images”点开以后，Get It！就是我想要的。好吧，废话不说，我来分享一下怎么使用吧，虽然也许看到这篇文章的很多人也许根本就没用过Delphi甚至没听说过Delphi。另外，据网上的文章说，“Resources and Images”这个是Delphi2010之后才有的功能，我没有去验证。

用法：

1、  把PNG图片放到项目中；

2、  点击主菜单“Project”→“ Resources and Images”，弹出下面的对话框

它会自动识别项目中的图片、音频等文件自动添加进来，如果没有识别出来或者是自定义文件类型的话，就点击【Add】按钮手动添加，然后选择合适的资源类型ResourceType，然后在Resource Identifier中给资源取一个名字即可。

在代码中使用TResourceStream读取资源流：

stream := TResourceStream.Create(HInstance, 'PNGIMAGE_PAUSE',  RT_RCDATA);

DelphiXE中已经提供了Png解析库，uses pngimage，然后：

png := TPNGObject.Create;

png.LoadFromStream(stream);

下面是我封装的一个简单的从资源中读取PNG对象的方法：

function LoadPNGResource(resName:string):TPNGObject;

var

png: TPNGObject;

stream: TResourceStream;

begin

png := TPNGObject.Create;

stream := TResourceStream.Create(HInstance, 'PNGIMAGE_PAUSE',  RT_RCDATA);

try

png.LoadFromStream(stream);

finally

stream.Free;

end;

result := png;

end;