Delphi的图形处理

Delphi的图形处理Delphi的图形处理......................................................................................................- 1 - 第一章图像处理在可视化编程中的作用及其应用价值.................................- 2 - 第二章图像处理函数.......................................................................................- 2 -2.1 为什么选择Delphi..............................................................................- 2 -2.2 Delphi中用于图形处理的类...............................................................- 2 -2.3 GDI及Canvas类简介.........................................................................- 4 -第三章基本图像处理算法.............................................................................- 13 -3.1柔化和锐化处理.........................................................................................- 13 -3.2 图像混合(透明度)效果..............................................................................- 19 -3.3 转为灰度图像............................................................................................- 22 -3.4 对比度调整和反色处理.............................................................................- 23 -3.5 亮度的调整................................................................................................- 25 -3.6 浮雕效果....................................................................................................- 28 -3.7 马赛克效果................................................................................................- 31 -第一章图像处理在可视化编程中的作用及其应用价值图像处理，是可视化编程的基础内容。

在Windows操作系统中，一切要输出到屏幕上的东西都是通过图形处理这部分的内容来实现的。

比如一个程序使用了标签控件，它看起来似乎并没有用到什么图形处理，但实际上标签控件就是通过使用GDI库中的图形处理函数来实现的。

可见图形处理在编程中的重要性。

图像处理在实际的应用中也极具价值。

平面制作、动画制作等都离不开它。

这一部分的内容十分繁多。

我本次研究的内容，只是其中最基础的、最重要一部分。

第二章图像处理函数2.1 为什么选择Delphi所有的可视化编程语言都能够进行图像处理。

但由于这些语言的定位不同，它们在进行图形处理的效率和便捷程度上也各不相同。

实际上，Visual C 的图像处理效率是最高的，这是由于GDI类库本身就是用C++写的。

但是使用VC来编程并不是一件方便的事，因为这个语言本身就较为繁杂难懂，所以我没有选择它。

Visual Basic （VB）也是一个常用的语言，但它在图形处理方面能力较差。

首先是它的坐标系统是以twip为单位的浮点坐标系统，在调用GDI类库时，必须对坐标系统进行转换，浪费了大量的资源，编程起来较为麻烦。

在多方面因素的影响下，我觉得Delphi是一个理想的语言。

Delphi已经把绝大多数GDI绘图函数都封装成可直接调用的类，使用它进行图形处理操作十分方便，而且Delphi 是Pascal演变而来的，Pascal具有严谨易读的特点，因此很容易上手。

2.2 Delphi中用于图形处理的类Delphi为我们提供了许多图形图像方面的类，合理地使用这些类，我们可以方便地开发出各种图形处理程序。

这些类有TPicture、TBitmap、TGraphic、TIcon、TJPEGImage和TCanvas。

其中，TCanvas类用于绘图，TPicture、TBitmap、TIcon和TJPEGImage是专门用来处理图片的类，TGraphic是一个抽象类，一般不直接使用。

TPicture类可以载入所有支持的图片，而TBitmap、TIcon、TJPEGImage分别用于处理各种类型的图片。

在实际应用中，我们一般用这些具体类型的类载入图片，再将图片转为Bitmap格式来处理。

TPicture、TIcon、TJPEGImage类一般只用于输入和输出。

例如，下面的代码可以载入一幅任意支持格式的图片(Delphi所支持的格式为bmp、jpg、dib、wmf和emf)。

Var Pic:TPicture;BeginPic := TPicture.Create;Pic.LoadFromFile(FileName);End;用TPicture类来载入图片时，该类会根据文件名的扩展名来决定用何等方式来打开图片。

这就出现了一个问题，如果这个图片的扩展名被用户非法修改，程序就会把这个图片视为无效图片。

在真正编程中，我们要用TPicture、TBitmap、TJPEGImage、TIcon依次尝试去打开图片。

另外，Delphi本身是不支持GIF文件格式的。

我们可以借用一个第三方的类——GIFImage来让Delphi支持它。

这个类在附带的光盘中可以找到。

最终我们用下面的代码来完成载入图片的操作。

Procedure ReadPicture(FileName: String; Bitmap: Graphics.TBitmap);var pic:TPicture;Bit:Graphics.TBitmap;jpgPic:TJPEGImage;FGifPic:TGIFImage;icoPic:TIcon;beginFGifPic := TGifImage.Create;Pic:=Tpicture.Create;bit:=Graphics.TBitmap.Create;jpgPic:=TJPEGImage.Create;icoPic:=TIcon.Create;trypic.LoadFromFile(FileName);if uppercase(ExtractFileExt(Filename)) = '.ICO' then beginBitmap.Height:=pic.Height;Bitmap.Width:=Pic.Width;Bitmap.Canvas.Draw(0,0,Pic.Graphic);endelsebitmap.Assign(pic.Graphic);excepttrybitmap.LoadFromFile(FileName);excepttryjpgPic.LoadFromFile(FileName);bitmap.Assign(jpgPic);excepttryicoPic.LoadFromFile(Filename);bitmap.Free;Bitmap:=TBitmap.Create;bitmap.Height:=icoPic.Height;bitmap.Width:=icoPic.Width;bitmap.Canvas.Draw(0,0,icoPic);excepttryFgifPic.LoadFromFile(FileName);Bitmap.Assign(FGifPic.Bitmap);exceptbitmap.Height:=bitmap.Canvas.TextHeight('8');bitmap.Width:=bitmap.Canvas.TextWidth('无效图片'); BitMap.Canvas.TextOut(0,0,'无效图片');end;{try}end;end;{try}end;{try}end;{try}Pic.Free ;bit.Free;jpgPic.Free;icoPic.Free;FGifPic.Free;end;保存图片的方法跟打开图片的方法类似，我们可以使用不同类型的图片类的SaveToFile方法保存文件。

下面的代码可以根据文件名中扩展名的不同使用不同的类来保存Bitmap。

Procedure SaveBitmap(FileName: String; PicB: TBitmap);var pic:TPicture; FileExt:String;picJPG:TJPEGImage;picGIF:TGIFImage;beginpic:=TPicture.Create;picJPG:=TJPEGImage.Create;picGIF:=TGIFImage.Create;trypic.Assign(PicB);FileExt:= ExtractFileEXT(FileName);if (Uppercase(FileExt)='.JPG')or(Uppercase(FileExt)='.JPEG')or(Uppercase(FileExt)='.JPE') thenbeginpicJPG.Assign(PicB);picJPG.SaveToFile(FileName);endelse If (UpperCase(FileExt)='.BMP')OR(UpperCase(FileExt)='.DIB')THENBeginPicB.SaveToFile(FileName);endelse if (UpperCase(FileExt)='.GIF') then beginpicGIF.Assign(PicB);PicGIF.SaveToFile(FileName);endelsePic.SaveToFile(FileName);{End If}ShowPicture(PictureIndex,False,TPicture(PicB));Finallypic.Free;picJPG.Free;PicGIF.Free;end;end;2.3 GDI及Canvas类简介GDI(Graphics Device Interface,图形设备接口)是Windows为我们提供的一个专门用于图形绘制和屏幕输出的类库。