請問先進...偶寫一低通用於影像上..不過在RUN之後...發現只有在影像低左半邊影像有在做低通...而右半邊沒執行LOWPASS...

for (int y=0; yHeight; y  )
  {
     up = y - 1;
     down = y   1;
      if (up < 0) up = image_temp->Height -1 ;
      if (down == image_temp->Height) down =0;
       ptr = (Byte*)image_low->ScanLine[y];
       tptr = (Byte*)image_low->ScanLine[y];
       mptr = (Byte*)image_low->ScanLine[up];
       dptr = (Byte*)image_low->ScanLine[down];
         for (int x=0; xWidth; x  )
          {
           left = x - 1;
           right = x   1;
            if (left < 0) left = image_temp->Width - 1;
            if (right == image_temp->Width) right = 0;
              Lowpass_mask= (int)(uptr[left] uptr[x] uptr[right] 
                                  mptr[left] mptr[x] mptr[right] 
                                  dptr[left] dptr[x] dptr[right]);
              ptr[x] = (Byte) (Lowpass_mask/9);
           }
   }

不知使程式哪有問題....謝謝先進ㄋㄟ...

bee0606您好:   不嫌棄的話,可以參考小弟的拙作   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34152 影像處理IV 並請參考版規做適當的修正 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35105 謝謝您的合作 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 -

嗯..了解...馬上改進...謝謝先進

bee你好: 看得眼花瞭亂,使用很多技巧喔!因此很難找呢... lowpass應該可以不用這麼複雜,寫簡單一點 你可以參考版主taishany曾發表的程式,或是如下,參考看看    可以當作萬用濾波器,只要把filter參數改一下,就可以實現高,中,低,sobel 等等濾波器。

void Lowpass(byte **img_in,byte **img_out,int w,int h)
{
 int filter[3][3];
 int i,j,x,y;
 int sum=0;     //---------give filter value-------------------
 filter[0][0]=1; filter[1][0]=1; filter[2][0]=1;
 filter[0][1]=1; filter[1][1]=1; filter[2][1]=1;
 filter[0][2]=1; filter[1][2]=1; filter[2][2]=1;
 //---------------------------------------------
 for (j=1;j<(h-1);j  )   //不考慮邊緣的像素 處理y軸範圍(1~h-1)
    for (i=1;i<(w-1);i  )//                     x軸範圍(1~w-1)
       {
        sum=0;
 //---------相鄰九點和-------------------------------------
        for(y=0;y<3;y  )
          {
           for(x=0;x<3;x  )
               {
               sum =((int)img_in[(j-1) y][(i-1) x])*filter[x][y];
               }
          }
        img_out[j][i]=(byte)(sum/9);   //相鄰九點值和,再除九
       }
}

 int filter[3][3];
 int i,j,x,y;
 int sum=0;
 Graphics::TBitmap *img_in, *img_out;
 img_out=new Graphics::TBitmap();
 Image7->Picture->LoadFromFile("Temp.BMP");
 img_in=Image7->Picture->Bitmap;
 img_out->Assign(img_in);
 Width = img_in->Width;
 Height = img_in->Height;
 //---------give filter value-------------------
 filter[0][0]=1; filter[1][0]=1; filter[2][0]=1;
 filter[0][1]=1; filter[1][1]=1; filter[2][1]=1;
 filter[0][2]=1; filter[1][2]=1; filter[2][2]=1;
 //---------------------------------------------
 for (j=1;jCanvas->Pixels[(j-1)+y][(i-1)+x])*filter[x][y];
               }
          }
        img_out->Canvas->Pixels[j][i]=(byte)(sum/9);   //相鄰九點值和,再除九
       }
   Image6->Picture->Assign(img_out);

我這樣改寫...還是只會run左半邊...右半邊沒有反應..沒有mask...

bee 抱歉喔~ 1.不知道你有沒有發現?我的陣列是image[y][x]不像bitmap是先[x]再[y] 這是個陷井....呵呵,當初這樣改是有用處的。(記憶體讀取問題) 所以不要被我的程式誤導了,這樣才是正確的 >>>>>>

bee0606您好:  用JerryKuo大哥的程式碼,我測試過  如JerryKuo所言的第1項,修改後就可以WORK了  不過用完Graphics::TBitmap *img_in, *img_out;  記得要釋放記憶體< > 順心< > ～我也是在學習的階段,回答的不好請您多多見諒與指教～

感謝各位先進...相當感謝先進進新的講解...謝謝

請問一下我用了以上的程式碼跑程式時,發現我低通後的結果如下     這是什麼原因呢? 如有違反版歸 請多多原諒~~~~~

不好意思..發現我這也有這問題...在改過之後..也會有如同JISHING一樣.. 試了一段時間..還是無解......這是哪有問題..是圖形格式的問題嗎...

你們好:    我想你們應該都是看bee0606的程式吧,那只是個演算法。 實際的參數要自己斟酌清況而定。 應該是錯在這幾行吧< class="code"> //---------相鄰九點和------------------------------------- for(y=0;y<3;y ) { for(x=0;x<3;x ) { sum =((int)img_in->Canvas->Pixels[(j-1) y][(i-1) x])*filter[x][y]; } } img_out->Canvas->Pixels[j][i]=(byte)(sum/9); 程式的原意是將9個像素相加,如果是灰階值,9點相加數值範圍並不會超過 integer數值範圍,如果是RGB,依照bee0606的寫法,其數值很有可能會超過 32bits,結果一定是不正確。所以要做RGB,就要分別做運算。

byte  clrR;
int   sum = 0;
sum  = (int)GetRValue(img_in->Canvas->Pixels[i][j]*Filter[x][y];
clrR = (byte)sum/9;
 :
// do for clrG
 :
// do for clrB
 :
img_out->Canvas->Pixels[j][i] = (TColor)RGB(clrR,clrG,clrB);

這也是演算法,實際作法請斟酌。

不好意思喔~~~我改了一下大概如下  可是我低通後的結果都是黑色的說 怪怪的    

     for (j=1;jCanvas->Pixels[i][j]*filter[x][y];
               sum1 =(int)GetRValue(c);
                r=(byte)sum1/9;
                 sum2 =(int)GetGValue(c);
                g=(byte)sum2/9;
                 sum3 =(int)GetBValue(c);
                 b=(byte)sum3/9;
              }
          }
           img_out->Canvas->Pixels[i][j]=(TColor)RGB(r,g,b);
             
       }
   }
   img2->Picture->Assign(img_out);

如有違反版規 請原諒我~~~~

引言:

 for (j=1;jCanvas->Pixels[i][j]*filter[x][y];
               sum1 =(int)GetRValue(c);  
               r=(byte)sum1/9;
               sum2 =(int)GetGValue(c);
               g=(byte)sum2/9;
               sum3 =(int)GetBValue(c);
               b=(byte)sum3/9;
              }
          }
           r=(byte)sum1/9;
           g=(byte)sum2/9;
           b=(byte)sum3/9;
           img_out->Canvas->Pixels[i][j]=(TColor)RGB(r,g,b);
       }
   }
   img2->Picture->Assign(img_out);

藍色的地方去掉,加上紅色的地方..試試看吧! 發表人 -

Graphics::TBitmap *img_in  = new Graphics::TBitmap();
Graphics::TBitmap *img_out = new Graphics::TBitmap();    int  i,j,x,y;
byte r,g,b;
int sum1,sum2,sum3;    //img_in讀取圖片資料
img_out->Width  = img_in->Width;
img_out->Height = img_in->Height;    //------------製作3x3濾波器 -------------------
 filter[0][0]=1; filter[1][0]=1; filter[2][0]=1;
 filter[0][1]=1; filter[1][1]=1; filter[2][1]=1;
 filter[0][2]=1; filter[1][2]=1; filter[2][2]=1;
//---------------------------------------------    for (j=1;j<(Height-1);j  )  
{   
    for (i=1;i<(Width-1);i  )                   
    {
      sum1=0;
      sum2=0;
      sum3=0; 
      for(y=0;y<3;y  )
      {
       for(x=0;x<3;x  )
       {
        sum1 =(int)GetRValue(img_in->Canvas->Pixels[i-1 x][j-1 y])*filter[x][y];
        sum2 =(int)GetGValue(img_in->Canvas->Pixels[i-1 x][j-1 y])*filter[x][y];  
        sum3 =(int)GetBValue(img_in->Canvas->Pixels[i-1 x][j-1 y])*filter[x][y];
       }
      }
      r=(byte)(sum1/9);
      g=(byte)(sum2/9);
      b=(byte)(sum3/9);
      img_out->Canvas->Pixels[i][j]=(TColor)RGB(r,g,b);
   }
}    Image->Picture->Assign(img_out);    小弟做了一下整理,值得注意的一點,下面這三行一定要括號,不然真的會一片潻黑
 r=(byte)(sum1/9);
 g=(byte)(sum2/9);
 b=(byte)(sum3/9);

不過用GetRValue會變得很慢,不建議用這個程式, 建議使用scanline比較快,請參照taishyang版主的大作

謝謝先進...真是受益良多... 會好好學習的....

taishyang 大大 我用您提供分享的 影像處理程式 去執行.bmp(720*780) 存檔時候 沒辦法全部遮罩到ㄝ 有哪邊需要改嗎 我看程式碼 把最上面的 圖像改成 720*480 還是不行ㄝ ?? 我是新手 多多指教 ^^

taishyang 大大 我用您提供分享的 影像處理程式 去執行.bmp(720*480) 存檔時候 沒辦法全部遮罩到ㄝ 有哪邊需要改嗎 我看程式碼 把最上面的 圖像改成 720*480 還是不行ㄝ ?? 我是新手 多多指教 ^^ 我是新手 多多指教 ^^