发信人: delphifan()
整理人: delphifan(2000-12-05 19:44:25), 站内信件
|
【 在 cloudhzg (bb仔) 的大作中提到: 】
: 您网页中提到的“技巧大全”中的‘关于文件格式的转换’中将bmp转成jpg的方
:
: 法似乎有些错误：只是文件名变了，在acdsee等自动识别文件格式的show图软件
:
: .......
====================
五分钟过去了，问题解决了！
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
procedure TForm1.Button1Click(Sender: TObject);
(*压缩MBP为JPEG;但是没有提供压缩比可选项
凑合用吧，大概1/3 ^_^:
Note:必须加上JPEG到Uses单元
*)
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
MyBMP := TBitmap.Create;
with MyBMP do
try
LoadFromFile('e:\lm.BMP'); //你的图片位置
MyJPEG := TJPEGImage.Create;
with MyJPEG do begin
Assign(MyBMP);
CompressionQuality:=10; //压缩比例
Compress;
SaveToFile('e:\lm01.JPEG');//保存路径……
Free;
end;
finally
Free;
end;
end;
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
--
=================================================
== [email protected] ==
== [一个真正有内容、较实用的Delphi网站] ==
== http://delphifan.wojia.com ==
== http://lmd.yeah.net http://lmd.126.com ==
=================================================
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.100.19.215]
|
|