對於一張沒有檔頭的靜態灰階原始影像，請問該如何在 TImage 中秀出來，謝謝。< >< >

------
我也在努力學習中，若有錯謬請見諒。

之前影像處理專題剛好有... 讀取Binary File用Canvas.Pixel把數值丟到Image上就可以了...不過要確認Binary File的格式應該是以Byte為單位直接讀取丟到Canvas.Pixel不過要注意喔...Canvas.Pixel是RGB...所以讀到一個Byte的值要RGB三個值都是一樣喔......有問題的話再討論...

補充一下...要事先知道...像素是多少... 否則無法正確表示影像... 記得之前PhotoShop可以讀取而且不需要像素資訊... 我想那個應該是有AI偵測... 我有想過用檔案大小算出可能的像素資訊... 不過這種可能性太多了...有更好的方法跟我說一聲

1.讀取Binary File   --可以用 TFileStream 嗎? 2.要確認Binary File的格式應該是以Byte為單位   --要如何才可以得知所讀的資訊Binary File是以Byte為單位??

------
我也在努力學習中，若有錯謬請見諒。

TFileStream沒用過... 我是用untyped files... 一個Byte就是256種顏色代表... 灰階的話就是三個值都一樣... Image1.Canvas.Pixels[x,y]:=RECT(R,G,B); 是不是有範例影像檔案可以用 如果有用16進位編輯器查看看...

GeminiLin 你好： 我在會員上傳圖片的地方放了一張LENA的原始影像(沒有檔頭的)，希望能 以此為例以程式為我解惑該如何在TImage上秀出該影像，謝謝。 發表人 - adonis 於 2003/01/18 17:16:11

------
我也在努力學習中，若有錯謬請見諒。

引言: GeminiLin 你好： 我在會員上傳圖片的地方放了一張LENA的原始影像(沒有檔頭的)，希望能 以此為例以程式為我解惑該如何在TImage上秀出該影像，謝謝。 發表人 - adonis 於 2003/01/18 17:16:11

請問 圖檔的 長 寬?

圖像灰階處理的3種方法 灰度處理的方法主要有如下3種： 1、最大值法：使R、G、B的值等於3值中最大的一個，即： R=G=B=max(R,G,B) 最大值法會使形成高亮度很高的灰度圖像 var bitmap:tbitmap; i,j:integer; a,b,c,crgb,temp:longint; res:byte; begin //最大值灰度處理方法 bitmap:=tbitmap.Create; bitmap.Width:=image1.Width 1; bitmap.Height:=image1.Height 1; for i:=0 to image1.Width 1 do begin for j:=0 to image1.Height 1 do begin crgb:=colortorgb(image1.Canvas.Pixels[i,j]); a:=crgb; b:=crgb shr 8; c:=crgb shr 8; //求出3者之間的最大值 if a>b then temp:=a else temp:=b; if c>temp then temp:=c ; res:=byte(temp); bitmap.Canvas.Pixels[i,j]:=rgb(res,res,res); end; end; image1.Canvas.Draw(0,0,bitmap); bitmap.Free; end; 2、平均值方法：使R、G、B的值求出平均值，即： R=G=B=(R G B)/3 平均值法會形成較柔和的灰度圖像。 var bitmap:tbitmap; i,j:integer; crgb:longint; rr,gg,bb:byte; res:byte; begin //圖像的平均值處理 bitmap:=tbitmap.Create; bitmap.Width:=image1.Width; bitmap.Height:=image1.Height; for i:=0 to image1.Width 1 do begin for j:=0 to image1.Height 1 do begin crgb:=colortorgb(image1.Canvas.Pixels[i,j]); rr:=byte(crgb); gg:=byte(crgb shr 8); bb:=byte(crgb shr 8); res:=(rr gg bb)div 3; bitmap.Canvas.Pixels[i,j]:=rgb(res,res,res); end; end; image1.Canvas.Draw(0,0,bitmap); bitmap.Free; end; 3、加權平均值法：根據重要性或其他指標給R、G、B賦予不同的權值，並使R、G、B它們的值加權平均，即： R=G=B=(WrR WrG WbB)/3,經實際經驗和理論推導證明，采用R=G=B=0.30*R 0.59*G 0.11*B，可以得到最合理的灰度圖像 var bitmap:tbitmap; i,j:integer; rr,gg,bb,res:byte; crgb:longint; begin //加權平均處理方法 bitmap:=tbitmap.Create; bitmap.Width:=image1.Width 1; bitmap.Height:=image1.Height 1; for i:=0 to image1.Width 1 do begin for j:=0 to image1.Height 1 do begin crgb:=colortorgb(image1.Canvas.Pixels[i,j]); rr:=byte(crgb); gg:=byte(crgb shr 8); bb:=byte(crgb shr 8); res:=(30*rr 59*gg 11*bb)div 100; bitmap.Canvas.Pixels[i,j]:=rgb(res,res,res); end; end; image1.Canvas.Draw(0,0,bitmap); bitmap.Free; end;

引言: 請問 圖檔的 長 寬?

這是一張 8 bit 512x512 的灰階影像。 發表人 - Adonis 於 2003/01/20 12:13:44

引言: 我在會員上傳圖片的地方放了一張LENA的原始影像(沒有檔頭的)，希望能 以此為例以程式為我解惑該如何在TImage上秀出該影像，謝謝。

這位 Lena 小姐可說是玩影像的人，必要處理的一張圖，真不知她今年已經幾歲了 對不起，岔題了。 以前，我在修影像處理時，也處理過這張圖，不過，我想老師的要求，並不是要「如何讀圖」，而是要「如何處理圖」。 當時我也是才開始玩 ><>>介紹>

adonis:         dllee 兄 已經說的很清楚了         你可以自己做了    

------
︿︿

謝謝大家的熱心幫助，我以大家所提供的方式終於處理好了，謝謝。

------
我也在努力學習中，若有錯謬請見諒。