发信人: kingron@GZ()
整理人: teleme(2001-01-18 16:43:02), 站内信件
|
标 题: [文章]图片格式的转换〈--热点
发信站: 网易虚拟社区 (Tue Nov 14 21:05:34 2000), 站内信件
我已经实现jpg<-->bmp,bmp<-->ico的转换，子与其他的格式，我想请大家来进行
讨论，希望大家积极参与。
也希望各位老鸟多多发表文章，活跃Delphi版的气氛，帮助大家在学习编程的路
上少走弯路。在下先谢了。
//thank
bmp --> jpg 可以如下,(其他格式也许也可，试一下）记得加入 use jpeg.
var
MyJpeg: TJpegImage;
Image1: TImage;
begin
Image1:= TImage.Create(self);
MyJpeg:= TJpegImage.Create;
Image1.Picture.Bitmap.LoadFromFile('c:\windows\desktop\aa.BMP'); //
Load the Bitmap from a file
MyJpeg.Assign(Image1.Picture.Bitmap); // Assign the BitMap to MyJpe
g object
MyJpeg.CompressionQuality:=StrToInt('75');
MyJpeg.Compress;
MyJpeg.SaveToFile('c:\windows\desktop\test.JPG'); // Save the JPEG t
o Disk
end;
jpg-->bmp：
var
MyJpeg: TJpegImage;
bmp: Tbitmap;
begin
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
myjpeg.LoadFromFile('c:\windows\desktop\aa.jpg');
bmp.Assign(myjpeg);
bmp.SaveToFile('c:\windows\desktop\test.bmp'); // Save the JPEG to D
isk
end;
--
E_Mail:[email protected] OICQ:10228518
<BLINK>【</BLINK>
<BLINK>◎■■■■〓〓〓〓〓〓〓〓〓〓></BLINK> ◆没有最好，只有更好◆
<BLINK> 【</BLINK>
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 61.137.31.193]
|
|