Re: [請益] 有關Delphi存圖片的問題!

[Aipr (Aipr)]

※ 引述《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
推 littlebugs:唷！！我成功了！感謝這位大大啦！！