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
相关文档：
一、在Delphi7中连接MS SQL Server 2000的方法。
刚开始时界面如下：添加4个控件。
设置控件属性过程：
1、ADOConnection1设置
1）双击ADOConnection1，进行设置连接字符串（作用是：选取连接驱动方式和连接的数据库设置）。过程如下图所示：
2、ADOQuery1设置：
1）ADOQuery1.connection属性为ADOConnection1; ......
一、引子：
现在的Windows应用程序几乎都使用图标、图片、光标、声音等，我们称它们为资源（Resource）。最简单的使用资源的办法是把这些资源的源文件打入软件包，以方便程序需要的时候调用。资源是程序的一部分，程序要正常运行就离不了资源文件。但是它是不可执行代码。
为了更好地管理资源，Delphi中提供了一种.RES类� ......
什么是流？流,简单来说就是建立在面向对象基础上的一种抽象的处理数据
的工具。在流中，定义了一些处理数据的基本操作，如读取数据，写入数据等，
程序员是对流进行所有操作的，而不用关心流的另一头数据的真正流向。流不
但可以处理文件，还可以处理动态内存、网络数据等多种数据形式。如果你对
流的操作非常熟练，在� ......
格式：操作数 Shl/Shr 移动位数
说明：操作数与返回值都是整数
例子：16(10) = 10000(2)
16(10) Shr 1 = 10000(2) Shr 1 = 1000(2) = 8(10)
16(10) Shr 2 = 10000(2) Shr 2 = 100(2) = 4(10)
说明：一个整数(I)按位左移一位，相当于把它乘以2，即 I * 2
&n ......
原来是要在FormCreate中加入以下代码:
procedure TTntForm1.TntFormCreate(Sender: TObject);
begin
//这句很关键.对于平台的支持.
if Win32Platform = VER_PLATFORM_WIN32_NT then
Font.Name := 'MS Shell Dlg 2'
else
Font.Name := 'MS Shell Dlg';
......
