C++ Builder XE2随意学习 (1)

编程N长时间了，Coding已成习惯，也是兴趣所在，一天不摸下键盘，仿佛总是少了点什么似的。

但岁月是把杀猪刀，不单是催老了容颜，连学习新鲜知识的劲头也愈见低落，始终停留在Windows桌面应用程序编程，对管理系统相关知识尝试过，老是有点不温不火的状态。口口声声说是Borland的忠实粉丝，其实是为自己不愿或不能学习新东东找的一个借口。

时光荏冉，2012新年过了，龙年春节也过了，玛雅末日日渐逼近，再也找不到借口拖延时间。于是，老调新弹，“新年新气象”，准备学习，又开始计划。

计划什么呢，还是从自己感兴趣的入手吧。上网溜溜，居然发现C++ Builder版本已然发布到XE2！再看下介绍，N多新特性，N多新技术，哈，值得学习一下。尤其是FireMonkey，如此的炫。还支持GPU，很久以前就有想学GPU的冲动，这次一并解决了吧。

所以，这系列日志只是为我自己，写在博客里，谨为留念。

由于是从头开始学习C++ Builder XE2，其中观点仅为个人理解，严重的不权威，各位有选择地滤过。要是有人跟着走到沟里去了，概不负责哈。

决心是下了，写这一系列博文确实也需要一定时间。我也是一个很有中国特色的程序员，用别人的软件能不花钱就尽量不花钱，但自己编的程序，会花尽心思让用户掏银子，绑定硬盘、CPU、网卡等，让用户注册使用。在这里，这点小毛病又犯了，在网上写文章，被转载一大堆，感觉爽倒是爽，不过最后跟自己都没有什么关系。呃，必须扭转这个局面，借鉴一下图片水印，也就是说，在本系列BLOG文章中，里面的图片将印上我自己的水印。

怎么做呢，要么下载个软件，要么自己编个小程序。那当然是编个小程序的了，仅为写BLOG所用。从自己的需求来说，在WORD版本文档中，全是正常图片，但发到BLOG中时，会将这些图片复制出来，另存为图片文件。

OK，这个程序的使用方式就是，在程序中直接粘贴，就把剪贴板中图片信息直接加上水印，并自动保存到指定目录下。

开始编这个程序吧…

Coding...

没想到，居然断断续续花了两个小时才编好。又犯了程序员的通病，想做一个尽量好用的小工具，包括换肤、配置等，基本功能实现了，但还比较丑陋。

嗯，貌似C++ Builder XE2中，换肤是一件很容易的事，期待了解。

核心代码(没来得及写注释，应该能看明白)：

   if(Clipboard()->HasFormat(CF_BITMAP))

   {

      Graphics::TBitmap * pBitmap = newGraphics::TBitmap;

      pBitmap->Assign(Clipboard());

      Image_Canvas->Width =pBitmap->Width;

      Image_Canvas->Height =pBitmap->Height;

      Image_Canvas->Picture->Assign(pBitmap);

      delete pBitmap;

      TCanvas * canvas = Image_Canvas->Canvas;

      canvas->Brush->Style = bsClear;

     canvas->Font->Assign(Label_Font->Font);

      int angle = 45, horz = 100, vert = 100;

      try

      {

         angle = Edit_Angle->Text.ToInt();

         horz = Edit_Horz->Text.ToInt();

         vert = Edit_Vert->Text.ToInt();

      }catch(...) {}

      UpdateFont(canvas, Label_Font->Font,1, 1, 1, angle);

      for(int x = 0; x < Image_Canvas->Width* 2; x += horz)

         for(int y = 0; y < Image_Canvas->Height* 2; y += vert)

            canvas->TextOut(x, y,Edit_Text->Text);

      AnsiString bmpFileName =Edit_Path->Text;

      if(!IsEndWith(bmpFileName,"\\"))

         bmpFileName += "\\";

      CreateDirectory(bmpFileName);

      for(int i = 1; ; ++i)

      {

         AnsiString tempFileName =Format("%scbw%d%s",

            ARRAYOFCONST((bmpFileName.c_str(),i, ComboBox_PicType->Text.c_str())));

         if(!FileExists(tempFileName))

         {

            bmpFileName = tempFileName;

            break;

         }

      }

      bmpFileName = ChangeFileExt(bmpFileName,".BMP");

      Image_Canvas->Picture->SaveToFile(bmpFileName);

     GlobalImageObject->OnCommand(Format("<request FileName='%s'Type='Set' />",

         ARRAYOFCONST((bmpFileName.c_str()))));

     GlobalImageObject->OnCommand(Format("<request Type='Set'ImageFormat='%s' />",

        ARRAYOFCONST((ComboBox_PicType->Text.c_str()))));

      if(!SameText(ComboBox_PicType->Text,".bmp"))

         DeleteFile(bmpFileName);

   }

   else

      ShowMessage("剪贴板中没有图片信息，请重试！");

运行后，选项设置界面：

复制图片，点击粘贴后

图片文档自动命名保存在指定目录下

已达到预期效果，不担心不负责任的转载了。准备开始写本系列文章。

水印小工具程序可在 https://skydrive.live.com/?cid=91fcba6f6e95429c&id=91FCBA6F6E95429C%21133 下载，这个是免费的，解压后即可运行，功能自行研究。呵呵。

有兴趣的朋友可加入群208894875进行深入沟通。