Delphi7图片格式转换.docVIP

Delphi7图片格式转换例程 本例将制作一个应用程序，用来转换图片的格式，运行界面如图： 图 1 点击“打开图像”按钮，可以从弹出的对话框中选择合适的图像打开。如果打开的图像是bmp格式的图片，点击“BMP转灰度”按钮，可以将原来彩色的BMP图像转换成灰色度的图像，并弹出保存对话框，以便保存转换后的图像。如图2所示。点击“BmpToJpeg”按钮，将BMP格式转换成JPG格式，同时弹出保存对话框，保存转换后的图像。 如果打开的图像是JPG格式的图片，“BMP转灰度”按钮 和“BmpToJpeg”按钮无效。点击“JpegToBmp”按钮，将JPG格式转换成BMP格式，同时弹出保存对话框，保存转换后的图像。 点击“退出程序”按钮，关闭此应用程序。 设计思想 本例用到的控件主要是Image控件，Panel控件，OpenPictureDialog控件，SavePictureDialog控件，Button控件，Label控件等。 BMP格式是Windows系统中标准的图像文件格式，具有极强的通用性。但其突出的缺点是文件过于庞大。目前Jpg格式的图片得到了广泛的应用，它的大小仅为BMP格式文件的1/10左右，而且图像品质并没有明显的损失。在许多情况下，我们需要在BMP和JPG两种图像格式之间进行转换。 图 2 BMP转灰度后的图像 BMP格式的图像是由像素组成的，一副彩色的图像包含了许多个像素点，每个像素都包含了三原色R,G,B。如果将单一的灰色赋值给彩色图像的各个像素，彩色图像就变成了灰色的黑白图像。 本程序主要分为以下几个步骤实现： （1）、在窗口上放置各个控件，并设置它们的属性； （2）、实现打开图像的功能，利用OpenPictureDialog控件的相关事件来实现； （3）、实现彩色bmp格式的图像转换成黑白图像，需要自定义相关函数实现； （4）、实现BMP与JPG两中格式之间的转换是最关键的问题。打开图像文件后，针对图像的不同格式进行相关事件的响应，需要用到LowerCase(s) ，ExtractFileExt()等相关函数。在打开图像文件后对文件的后缀名进行检查，针对不同的格式进行相应的处理。 （5）、保存转换后的图像利用SavePictureDialog控件的相关事件来实现。 还有几个地方需要注意： 首先添加Panel控件，调整其合适的大小及位置。在属性面板设置BevelInner 和BevelOuter 属性均为“bvLowered”，BorderStyle 属性为“bsSingle”，BevelWidth 和BorderWidth 均为1，这样Panel 控件看起来具有立体感。 其次，在窗体中Panel1 控件上添加Image 控件，在“属性”面板中用鼠标点击Picture属性右边的按钮，从弹出的对话框中选择合适的图像文件导入，用来设置应用程序开始运行时界面上的图像。如图1中的美女图片，就是在Picture属性里导入的。设置其Align属性为“alClient”，Stretch 属性为“True”，使图像撑满整个Panel1 控件。 最后，在窗体上添加OpenPictureDialog 控件和SavePictureDialog 控件。在“ 属性” 面板中设置OpenPictureDialog 控件的Options 属性为“[ofHideReadOnly,ofEnableSizing]”，Filter属性为“All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)”，SavePictureDialog 控件属性的设置与OpenPictureDialog 控件类似。Filter属性设置如图： 图 3 Filter属性设置 添加完控件后的窗体如图所示： 图 4 添加完控件后的窗体 程序源代码： unit BmpToJpeg; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ExtDlgs, StdCtrls , JPEG; //此处注意添加JPGE; type TForm1 = class(TForm) Panel1: TPanel; Image1: TImage; OpenPictureDialog1: TOpenPictureDialog; SavePictureDialog1: TSavePictureDialog; Button1: TButton;