精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>图形界面和窗体>>[文章]图片格式的转换〈--热点

主题:[文章]图片格式的转换〈--热点
发信人: 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]

[关闭][返回]