求助：如何把png格式的图片转换成bmg格式的图片？

Question

如题能将实例贴出来吗？谢谢大家

Answer 1

用工具转换吧，比如photoshop，firework之类都可以。
用delphi代码写的话估计做不到

Answer 2

来晚了
ImageEnView1.IO.LoadFromFilePNG('c:\1.png');
ImageEnView1.IO.SaveToFilebmp('c:\1.bmp');

Answer 3

uses ...PngImage;
procedure PNGtoBMP(png,bmp:string);
var
png:Tpngobject;
bmp:Tbitmap;
begein
 png:=Tpngobject.create;
 png.loadFile(png);
 bmp:=Tbitmap.create;
 Bmp.width:=png.Width;
 Bmp.height:=png.Height;
 png.draw(bmp,bmp.canvas.ClipRect);
 bmp.savefile(bmp);
 FreeAndNil(png);
 FreeAndNil(bmp);
end;