发信人: 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]
|
|