作者Aipr (Aipr)
站内Programming
标题Re: [请益] 有关Delphi存图片的问题!
时间Sun Mar 22 13:23:17 2009
※ 引述《littlebugs (小崇子)》之铭言：
: 各位大大好！
: 我用Delphi写了一个会自动产生图的程式！
: 我存的格式是*.bmp （24-bit Bitmap）
: 但是因为有时图很大 （3500 x 3500 或更大）
: 不仅容量大～而且再大一点程式就跑不下去了～
: 希望程式再存档时能存成Monochrome Bitmap或是16 color Bitmap的格式！
: 但是我上网查或是翻书都找不到！
: 不知道是要怎样才能改呢？谢谢！
: 我是用Image１.Canvas下去画的
: 存图时用
: Image1.Picture.SaveToFile(FileName);
: 这时就会自动产生 24-bit Bitmap的图档！
试试看以下方法:
var
bmp:Tbitmap;
begin
bmp := Tbitmap.Create;
bmp.Assign(Image1.Picture.Graphic);
bmp.PixelFormat := pf1bit;
bmp.SaveToFile(FileName);
...
如果颜色跑掉, 还需要自己去设定调色盘
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.204.156.133
1F：推 littlebugs:唷！！我成功了！感谢这位大大啦！！ 140.116.159.73 03/23 15:19