各位前輩小弟有個問題!! 就是我在做SOBEL 將灰階後的圖片讀入作SOBEL 用ScrollBar來調整但是怪怪的可以請前輩幫忙一下嗎 這是我參考板上某位大大的作品做修改上傳一下我的檔案

重新上傳我的 sobel_text 檔的程式

<textarea class="c#" rows="10" cols="60" name="code">void __fastcall TForm1::Button1Click(TObject *Sender) { if (Image1->Picture->Bitmap->Empty==true) ShowMessage("請載入圖檔!!"); Graphics::TBitmap *Bitmap1 = new Graphics::TBitmap(); Byte *ptr; Bitmap1->Assign(Image1->Picture->Bitmap ); Bitmap1->PixelFormat = pf24bit;//24bit Bitmap1->LoadFromFile("B.bmp"); int gray; int i,j; int sx = 0; int sy = 0; int **pic = 0; int thresh; thresh = ScrollBar1->Position; Edit1->Text = ScrollBar1->Position; Bitmap1->Assign(Image2->Picture->Bitmap); //這裡 Bitmap1->PixelFormat=pf24bit; pic = new int*[Bitmap1->Height]; for(i = 0; i< Bitmap1->Height; i ) pic[i] = new int[Bitmap1->Width]; Bitmap1->Assign(Image2->Picture->Bitmap); // 這裡 for(j=0; jHeight; j ) { ptr = (Byte *)Bitmap1->ScanLine[j]; for(i=0; iWidth; i ) { gray = (ptr[i*3]*28 ptr[i*3 1]*151 ptr[i*3 2]*77)/256; //二值化 pic[j][i] = ptr[i*3] = ptr[i*3 1] = ptr[i*3 2] = (Byte)gray; //二值化 } } for(j=1; jHeight-1; j ) { ptr = (Byte *)Bitmap1->ScanLine[j]; for(i=1; iWidth-1; i ) { // convolution sx = -1*pic[j-1][i-1] pic[j 1][i-1] -2*pic[j-1][i] //SOBEL演算 2*pic[j 1][i] - pic[j-1][i 1] pic[j 1][i 1]; sy = pic[j-1][i-1] 2*pic[j][i-1] pic[j 1][i-1] - 1*pic[j-1][i 1] - 2*pic[j][i 1] - pic[j 1][i 1]; if(sqrt(sx*sx sy*sy)>thresh) { ptr[i*3] = ptr[i*3 1] = ptr[i*3 2] = 0; } else ptr[i*3] = ptr[i*3 1] = ptr[i*3 2] = 255; } } Image2->Stretch=true; Image2->Height *=1; Image2->Width *=1; Image2->Picture->Assign(Bitmap1); Image2->Picture->SaveToFile("C.bmp"); for (i=0; i< Bitmap1->Height; i ) delete [] pic[i]; delete [] pic; delete Bitmap1; } //--------------------------------------------------------------------------- void __fastcall TForm1::ScrollBar1Change(TObject *Sender) { Graphics::TBitmap *Bitmap1 = new Graphics::TBitmap(); Byte *ptr; int gray; int i,j; int sx = 0; int sy = 0; int **pic = 0; int thresh; thresh = ScrollBar1->Position; Edit1->Text = ScrollBar1->Position; Bitmap1->Assign(Image1->Picture->Bitmap); //這裡 Bitmap1->PixelFormat=pf24bit; pic = new int*[Bitmap1->Height]; for(i = 0; i< Bitmap1->Height; i ) pic[i] = new int[Bitmap1->Width]; Bitmap1->Assign(Image1->Picture->Bitmap); // 這裡 for(j=0; jHeight; j ) { ptr = (Byte *)Bitmap1->ScanLine[j]; for(i=0; iWidth; i ) { gray = (ptr[i*3]*28 ptr[i*3 1]*151 ptr[i*3 2]*77)/256; //二值化 pic[j][i] = ptr[i*3] = ptr[i*3 1] = ptr[i*3 2] = (Byte)gray; //二值化 } } for(j=1; jHeight-1; j ) { ptr = (Byte *)Bitmap1->ScanLine[j]; for(i=1; iWidth-1; i ) { // convolution sx = -1*pic[j-1][i-1] pic[j 1][i-1] -2*pic[j-1][i] //SOBEL演算 2*pic[j 1][i] - pic[j-1][i 1] pic[j 1][i 1]; sy = pic[j-1][i-1] 2*pic[j][i-1] pic[j 1][i-1] - 1*pic[j-1][i 1] - 2*pic[j][i 1] - pic[j 1][i 1]; if(sqrt(sx*sx sy*sy)>thresh) { ptr[i*3] = ptr[i*3 1] = ptr[i*3 2] = 0; } else ptr[i*3] = ptr[i*3 1] = ptr[i*3 2] = 255; } } Image2->Picture->Assign(Bitmap1); for (i=0; i< Bitmap1->Height; i ) delete [] pic[i]; //ScrollBar2->Enabled=true; delete [] pic; delete Bitmap1; } </textarea>

附加檔案：463d9ddf62039_SOBEL_TEXE.rar

編輯記錄

話說這個我也發生過耶．．
嘿．．也是用這個寫法的．．
後來就換參考另一個大大寫的
好像就沒遇到這個問題了

請問是用什麼方法?
可以介紹給小弟嗎!!

PO程式碼的方式請參考版規說明,煩請修改謝謝配合

ScrollBar1Change的部份怪怪的耶...    當你的ScrollBar1Change時... 讀的圖片是『Image2的圖』???    應該是再重新處理一次圖吧??? 讀Image1才對???    ===================引 用 mp_0223 文 章===================
請問是用什麼方法?
可以介紹給小弟嗎!!

謝謝講解
但是我的主程式是連慣性的 這個TEXT是我的一小部份
因為我的主程式Image1是1張彩色的圖
並不是灰階後的圖
所以不知道要怎麼改 可以教一下嗎

你po上來的程式碼跟你上傳的程式碼內容『有差異』是也...

Bitmap1->Assign(Image1->Picture->Bitmap); //這裡
把ScrollBar1Change的兩個改成上述...

應該就沒問題了?


===================引 用 mp_0223 文 章===================
謝謝講解
但是我的主程式是連慣性的? 這個TEXT是我的一小部份
因為我的主程式Image1是1張彩色的圖?
並不是灰階後的圖
所以不知道要怎麼改? 可以教一下嗎

http://delphi.ktop.com.tw/board.php?cid=168&fid=921&tid=88317
===================引 用 mp_0223 文 章===================
請問是用什麼方法?
可以介紹給小弟嗎!!