delphi 实现 图片类型转换 jpg
下面三个delphi函数实现了bmp类型图片和jpg(jpeg)类型图片的转换和改变位图图片的大小。
jpg转换为bmp:
{********************************************
作者/日期
描述： 实现jpg(jpeg)图片向bmp图片的转换
参数介绍
FileName:要转换的jpg(jpeg)图片的名称（包括路径）
SaveFileName:转换后的bmp图片的存储位置。
默认为空，相当于修改源文件类型
********************************************}
Procedure pic_jpgtobmp(Const FileName: String;SaveFileName:String='');
Var
Bitmap: TBitmap;
JPeg: TJPegImage;
Begin
Bitmap := Nil;
JPeg := Nil;
Try
JPeg := TJPegImage.Create;
JPeg.LoadfromFile(FileName);
Bitmap := TBitmap.Create;
Bitmap.Assign(JPeg);
IF Trim(SaveFileName)='' Then
Bitmap.SaveToFile(ChangeFileExt(FileName, '.bmp'))
Else
Bitmap.SaveToFile(SaveFileName);
Finally
FreeAndNil(Bitmap);
FreeAndNil(JPeg);
End;
End;
{********************************************
作者/日期 dqc 2007.12.30
描述： 实现bmp图片向jpg(jpeg)图片的转换
参数介绍
FileName:要转换的bmp图片的名称（包括路径）
SaveFileName:转换后的jpg(jpeg)图片的存储位置。
默认为空，相当于修改源文件类型
********************************************}
Procedure pic_bmptojpg(Const FileName: String;SaveFileName:String='');
Var
Bitmap: TBitmap;
JPeg: TJPegImage;
Begin
Bitmap := Nil;
JPeg := Nil;
Try
Bitmap := TBitmap.Create;
Bitmap.LoadfromFile(FileName);
JPeg := TJPegImage.Create;
JPeg.Assign(Bitmap);
IF Trim(SaveFileName)='' Then
JPeg.SaveToFile(ChangeFileExt(FileName, '.jpg'))
Else
JPeg.SaveToFil
相关文档：
在DELPHI为编程者提供了一个灵活的绘图场所,即本文所述的
CANVAS类,在DELPHI中的很多控件都具有此属性,使编程者可以
在这些的控件的表面随心所欲的绘图,这对完善用户界面或者制
作一些屏幕特技都有着非凡的作用,下面举例说明几种特殊屏幕 &n ......
什么是流？流,简单来说就是建立在面向对象基础上的一种抽象的处理数据
的工具。在流中，定义了一些处理数据的基本操作，如读取数据，写入数据等，
程序员是对流进行所有操作的，而不用关心流的另一头数据的真正流向。流不
但可以处理文件，还可以处理动态内存、网络数据等多种数据形式。如果你对
流的操作非常熟练，在� ......
@符号返回一个变量的地址
例：
var
f:string;
p:^string; //声明一个字符串类型的指针
begin
f ='demo'; ......
名称 类型 说明
abort 函数 引起放弃的意外处理
abs 函数 绝对值函数
addexitproc 函数 将一过程添加到运行时库的结束过程表中
addr 函数 返回指定对象的地址
adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列
align 属性 使控件位于窗口某部分
alignment 属性 � ......
