請問一下 如何將16 bit BMP圖檔轉成Mono的BMP圖檔？ 感激不盡！

用 TBitmap Load 入轉 Monochrome 後再存回 轉 Monochrome : Bm.Monochrome := true; 或 Bmp.PixelFormat := pf1bit

版主您好！ 我嘗試用您的方法如下： 但卻會發生Out of Resources的 ERROR! 不知該怎麼辦？ 如果轉換成功，我還希望將mono的圖片可以Resize放大？這又該如何去做？ 以下是我的測試Code 發生 EOutOfResources var BM:TBitmap; begin BM:=TBitmap.Create; BM.LoadFromFile(Edit1.Text); BM.Monochrome:=True; BM.SaveToFile('c:\temp\monobmp.bmp'); BM.Free; ShowMessage('ok'); end;

我用你的程式碼試完全沒出錯哩 不過出來的 mono 效果非常差，差不多全是黑色一片，連一般傳真機的效果也遠遠達不到。 較好看的黑白化效果可參考天使站長作答的 : 請問如何將圖形二值化(黑白化)再取得影像的黑白點數呢? http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23923 若你想轉的是灰階的話， 可參考 cmf 兄的大作 : 【發表】影像處理系列 - 彩色轉灰階 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=24246

轉成mono的方式效果的確很差， 是因為有一個原因必須要如此做 我是希望將轉成的mono圖檔， 直接當成附檔利用email傳送給fax server 因為這個fax server只能接受mono的圖檔 ，如果這樣的處理效果很差該如何是好？ 但是我用photoshop轉成mono效果很好耶！ 不知他是怎麼用的？

Bryan 兄： 如果你用Justmade兄提供的DELPHI基本的属性改变的方法做出的效果是很差的，关于图形的色彩转换是有一定的算法的。    这是我以前回复的帖子，灰度化转换的代码 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30132    可能对您有所帮助的    风花雪月 e梦情缘

------
风花雪月 e梦情缘

Bryan 兄， 上面說的 : 較好看的黑白化效果可參考天使站長作答的 : 請問如何將圖形二值化(黑白化)再取得影像的黑白點數呢? http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23923 你試了沒有? 若有問題可請天使站長親自來解說一下 wnhoo 兄， 你知道甚麼是 Mono 嗎? Bryan 兄已說了一定要 Mono 耶 你那貼的程式碼是你寫的嗎?是可以將彩圖轉 Mono 的嗎?

Justmade兄： 希望你以后能看请回帖，再评论！ 你这种情况，有不少网友向我提起，说您与针对性的；我总是说大家在讨论，我喜欢热闹的BBS！！！    真彩色图像灰度化转换的代码！ 效果如图，不用我多讲了吧！！！ 源码请见 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30633 风花雪月 e梦情缘

------
风花雪月 e梦情缘

wnhoo您好:    假如我的眼睛沒有問題的話,您的作品應該是[Gray(灰階)](像素值分佈在0~255)    而不是原發問者所要的[MONO(二值化)](像素值分佈在0和255)    我應該沒有誤會題意吧?? 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～ 發表人 -

taishyang兄 我估计Bryan兄应该想要的是0~255 的灰階度效果，所以就发上的；    我想如果将16 bit BMP转成0或255是不太现实和可能的，如果您对图象有研究，就应该知道， 16 bit BMP是有色彩过度的（特别在做图片处理的时候）    风花雪月 e梦情缘

------
风花雪月 e梦情缘

taishyang兄 與 wnhoo兄 您們好！ 我想我可能把問題說的不清楚， 我其實是因為Fax Server上面所能接受的規格 是Mono的格式，是的Mono是只有0 - 1 因為我的作法是將網頁的資料擷取下來， 擷取下來的影像檔是24 bit的圖片， (Sorry之前沒確認過，所以一直以為是16 bit) 然後在將圖片轉成1 bit (mono)的圖片， 再Email給Fax Server， 24 bit -> 1 bit ->Fax server 因為抓下來的圖檔大概約有1.2M ，我若是用 Monochrome:=True; 的方式會掛，發生EoutOfResources的錯誤！ 這是我一直沒辦法解決的地方 ? 是不是檔案太大會這樣ㄋ？

引言: 我想我可能把問題說的不清楚，

Bryan 兄，你不須自責，老實說，我是影像處理的外行，Mono 是什麼意思我都明瞭 你題目寫得很好，如果答題者看不懂題意，被版主指正，錯不在你 不過比較建議放在『影音多媒體程式設計討論區(Delphi)』會比較合適

引言: Justmade兄： 希望你以后能看请回帖，再评论！

wnhoo, 說得好，這句正好適合你。 Mono 就是單色，不是 GrayScale 灰階，而是每點都非黑即白(雖然也可以另外兩種對比顏色，但通常指黑白) 本來我也想灰階較果較好所以在提供二值化連結外還加上灰階的，不過 Bryan 兄後來已說很清楚了: "這個fax server只能接受mono的圖檔" 你還重覆貼灰階的處理我才會問你知不知道 Mono 是甚麼，甚知你還反罵人 連影音多媒體程式設計討論區的版主都來說明了你還不查查 Mono 是甚麼，不去用心想想發問者需要的是甚麼，唉... 這也不是首次發生的了，詳見 : 給 wnhoo ，也給關心事件的K.Top網友 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30664 Bryan 兄, 請問你有沒試過"如何將圖形二值化(黑白化)"該文的碼呢? 發表人 - Justmade 於 2003/05/19 10:57:04

引言: Bryan 兄, 請問你有沒試過"如何將圖形二值化(黑白化)"該文的碼呢?

版主您好！ 我已經將二值化的範例下載並試用啦！ 而且已經可以運作，也達到我要的功能， 只不過，對於影像的處理實在外行，不曉 得CODE中的一些意義。 我想我移到影音多媒體去詢問好啦！ 謝謝您們熱心的回答！

Bryan您好:    其實二值化的原理很簡單, 我來做一個簡短的說明與補充    當您已經做好灰階之後(像素直落在0~255,0為最黑,255最白)    而二值化就是您將灰階的分佈取一臨界值(threshold)    若是大於此threshold設為255,小於此threshold設為0...    最後就會得到只有最黑0,和最白255的圖片了~~    順心 <>～我也是在學習的階段,所以請您多多見諒與指教～

Bryan兄：    如果我想的没有错的话，你用Justmade兄提供的，2值化处理方法一定不能达到您的要求吧。    因为我以前做了个图片扫描存储是用到过，2值化是灰階度的一种特殊应用而已。你的图形是24位真彩色，不可能直接用一个固定的界限分为0与255的。    或许，我这样评论又会遭到反击和批评的。    风花雪月 e梦情缘

------
风花雪月 e梦情缘

wnhoo您好:   

引言: 你的图形是24位真彩色，不可能直接用一个固定的界限分为0与255的。

您可以下載這個範例程式 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28358 效果如下圖所示 處理的流程如下:24bits全彩影像-＞ 灰階 -＞ 取一臨界值做二值化 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～ 發表人 -

taishyang 兄：    谢谢，就是这种效果。    风花雪月 e梦情缘

------
风花雪月 e梦情缘