高手們,請問如何將圖形二值化(黑白化)再取得影像的黑白點數呢? |
|
答題得分者是：領航天使
|
|
ATEIN
高階會員   發表：105 回覆：320 積分：125 註冊：2002-07-05 發送簡訊給我 |
|
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
|
|
ATEIN
高階會員 發表：105 回覆：320 積分：125 註冊：2002-07-05 發送簡訊給我 |
|
|
ATEIN
高階會員 發表：105 回覆：320 積分：125 註冊：2002-07-05 發送簡訊給我 |
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: 站長: 您指的這檔案下載來之後,不能解開,訊息為檔案已損壞了 謝謝。 Dong-Han Mo.AtEin_ATTS我又試了一下 , 可以下載也可以正確解壓啊? 我是想說canvas.pixels[x,y] 取得的是RGB的點 c:=canvas.pixels[x,y] r:=c shr 16; g:=(c shr 8) mod 256; b:=c mod 256; 分別算出RGB的值後 將r g b得到的數值超過386者為白色,小於則為黑色 這是您要的嗎? ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
ATEIN
高階會員 發表：105 回覆：320 積分：125 註冊：2002-07-05 發送簡訊給我 |
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: 您好,站長: 現可若可取得黑白點數,但如何將彩色圖重繪或顯示成黑白,換言之-也就是連彩色也變成只有二值化而言,而且每按一次鍵可加強其二值化效果呢? 謝謝! Dong-Han Mo.AtEin_ATTS舉一要能反三喔! 寫一個程式給您參考,先看看有問題再問!
unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
jpeg, ExtCtrls, ComCtrls, StdCtrls; type
TForm1 = class(TForm)
Button1: TButton;
TrackBar1: TTrackBar;
Image1: TImage;
Image2: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);
var i,j,c,l,r,g,b:integer;
begin
l:=((255 255 255) *TrackBar1.Position) div 100;
for i:=0 to image1.Width do
for j:=0 to image1.Height do
begin
c:=image1.canvas.pixels[i,j];
r:=c shr 16;
g:=(c shr 8) mod 256;
b:=c mod 256;
if r g b>=l then image2.canvas.pixels[i,j]:=$ffffff else
image2.canvas.pixels[i,j]:=0;
end;
end; end.
～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
cmf
尊榮會員 發表：84 回覆：918 積分：1032 註冊：2002-06-26 發送簡訊給我 |
引言: 高手們,請問: 如何將圖形二值化(黑白化)再取得影像的黑白點數呢? 謝謝! Dong-Han Mo.AtEin_ATTS// 1. 取得 二值化 門檻值 // 2. 大於 二值化 門檻值 為 白 小於 二值化 門檻值 為 黑 // 3 這樣就能 取得影像的黑白點數 // 取得 二值化 門檻值 procedure GetTHR(var THR:BYTE); var maxValue,minValue:BYTE; c:TColor; m,r,g,b:BYTE; i,j:integer; begin maxValue:=0; minValue:=255; for i:=0 to image1.Width do for j:=0 to image1.Height do begin c:=image1.canvas.pixels[i,j]; r:=GetRValue(c); g:=GetGValue(c); b:=GetBValue(c); m:=(r g b)/3; if m> maxValue then maxValue:=m; if m< minValue then minValue:=m; end; THR:=(maxValue minValue) shr 1 ; end; // 彩色->黑白 procedure DrawBW(var THR:BYTE); var c:Tcolor; m,r,g,b:BYTE; begin for i:=0 to image1.Width do for j:=0 to image1.Height do begin c:=image1.canvas.pixels[i,j]; r:=GetRValue(c); g:=GetGValue(c); b:=GetBValue(c); m:=(r g b)/3; if m>thr the image1.canvas.pixels[i,j]:=$FFFF else image1.canvas.pixels[i,j]:=0; end; end; 發表人 - cmf 於 2002/12/18 09:56:46
------
︿︿ |
|
ATEIN
高階會員 發表：105 回覆：320 積分：125 註冊：2002-07-05 發送簡訊給我 |
|
|
cmf
尊榮會員 發表：84 回覆：918 積分：1032 註冊：2002-06-26 發送簡訊給我 |
|
|
ATEIN
高階會員 發表：105 回覆：320 積分：125 註冊：2002-07-05 發送簡訊給我 |
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
|
|
cmf
尊榮會員 發表：84 回覆：918 積分：1032 註冊：2002-06-26 發送簡訊給我 |
引言: 請問站長或其它高手: 二值化的黑白點數,我取不成功 您是否有更好的方法? 謝謝! Dong-Han Mo.AtEin_ATTS//GET 黑白 點數 procedure GetBW(var THR:BYTE); var c:Tcolor; m,r,g,b:BYTE; B,W:integer; begin B:=0; W:=0; for i:=0 to image1.Width do for j:=0 to image1.Height do begin c:=image1.canvas.pixels[i,j]; r:=GetRValue(c); g:=GetGValue(c); b:=GetBValue(c); m:=(r g b)/3; if m>thr the INC(W) else INC(B); end; ShowMessage('黑點數=' inttostr(B) ' 白點數=' inttostr(W)); end;
------
︿︿ |
|
ATEIN
高階會員 發表：105 回覆：320 積分：125 註冊：2002-07-05 發送簡訊給我 |
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: cmf:您好, 這程式片段,應該是c builder 直接轉譯的吧? 在delphi 並不能實現。 因為c builder 對型態轉換限制較為大。 並不能直接在delphi 直接執行。謝謝! Dong-Han Mo.AtEin_ATTS稍為改一改就可以在Delphi上執行了啊! 您再試看看!
unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls; type
TForm1 = class(TForm)
Image1: TImage;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM}
procedure GetBW(THR:integer);
var
c:Tcolor;
m,r,g,b:BYTE;
Bb,Ww,i,j:integer;
begin Bb:=0;
Ww:=0; for i:=0 to form1.image1.Width do
for j:=0 to form1.image1.Height do
begin
c:=form1.image1.canvas.pixels[i,j]; r:=GetRValue(c);
g:=GetGValue(c);
b:=GetBValue(c);
m:=(r g b) div 3; if m>thr then INC(Ww)
else INC(Bb); end; ShowMessage('¶ÂÂI¼Æ=' inttostr(Bb) ' ¥ÕÂI¼Æ=' inttostr(Ww)); end; procedure TForm1.BitBtn1Click(Sender: TObject);
begin
GetBW(128);
end; end.
～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
ATEIN
高階會員 發表：105 回覆：320 積分：125 註冊：2002-07-05 發送簡訊給我 |
發表時間：2002-12-15 01:32:20
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-11-23 10:40:22
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |