我寫的語法如下：    

 
void __fastcall TForm1::Sobel1Click(TObject *Sender)
{
 Form2->Show();
 int G;
 for(int i=0;i<Form1->Image1->Width;i++)
  {
  for(int j=0;j<Form1->Image1->Height;j++)
   {
    int Gx,Gy,gray[9];
    gray[1]=Form1->Image1->Canvas->Pixels[i-1][j-1];
    gray[2]=Form1->Image1->Canvas->Pixels[i][j-1];
    gray[3]=Form1->Image1->Canvas->Pixels[i+1][j-1];
    gray[4]=Form1->Image1->Canvas->Pixels[i-1][j];
    gray[5]=Form1->Image1->Canvas->Pixels[i][j];
    gray[6]=Form1->Image1->Canvas->Pixels[i+1][j];
    gray[7]=Form1->Image1->Canvas->Pixels[i-1][j+1];
    gray[8]=Form1->Image1->Canvas->Pixels[i][j+1];
    gray[9]=Form1->Image1->Canvas->Pixels[i+1][j+1];        Gx=(gray[7]+2*gray[8]+gray[9])-(gray[1]+2*gray[2]+gray[3]);
    Gy=(gray[3]+2*gray[6]+gray[9])-(gray[1]+2*gray[4]+gray[7]);        G=fabs(Gx)+fabs(Gy);        Form2->Image2->Canvas->Pixels[i][j]=TColor(RGB(G,0,0));
    }
   }
}    

結果如下的第二章圖 請問如何把第二張圖的紅線放在第一張圖上， 之前也看過版上類似的文章，可是小弟實在太笨，看不懂 所以請各位高手指教一下。 發表人 - skkyo 於 2005/09/02 18:12:43

發表人 - skkyo 於 2005/09/02 19:02:13

您好:    PO程式碼的方式與版規說明請參考下面連結,煩請修改謝謝您的配合 >

skkyo 您好：    您可以使用一個暫存的 TBitmap 物件來存放處理的結果，等處理完畢後再設回給 Image1 即可，例如：

void __fastcall TForm1::Sobel1Click(TObject *Sender)
{
    Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
    Bitmap->Width  = Image1->Picture->Bitmap->Width;
    Bitmap->Height = Image1->Picture->Bitmap->Height;
    Bitmap->PixelFormat = pf24bit;        Screen->Cursor = crHourGlass;        int G;
    for (int i=1;iWidth;i   ) {
        for (int j=1;jHeight; j   ) {
            int Gx,Gy,gray[10];
            gray[1]=Image1->Canvas->Pixels[i-1][j-1];
            gray[2]=Image1->Canvas->Pixels[i][j-1];
            gray[3]=Image1->Canvas->Pixels[i 1][j-1];
            gray[4]=Image1->Canvas->Pixels[i-1][j];
            gray[5]=Image1->Canvas->Pixels[i][j];
            gray[6]=Image1->Canvas->Pixels[i 1][j];
            gray[7]=Image1->Canvas->Pixels[i-1][j 1];
            gray[8]=Image1->Canvas->Pixels[i][j 1];
            gray[9]=Image1->Canvas->Pixels[i 1][j 1];
            Gx=(gray[7] 2*gray[8] gray[9])-(gray[1] 2*gray[2] gray[3]);
            Gy=(gray[3] 2*gray[6] gray[9])-(gray[1] 2*gray[4] gray[7]);
            G=fabs(Gx) fabs(Gy);
            Bitmap->Canvas->Pixels[i][j] = TColor(RGB(G, 0, 0));
        }
    }        Screen->Cursor = crDefault;        Image1->Picture->Bitmap->Assign(Bitmap);
    Image1->Picture->Bitmap->PixelFormat = pf24bit;        delete Bitmap;
    Bitmap = NULL;
}

7 天天敲鍵盤 v 時時按滑鼠 8

skkyo 您好:    剛才似乎誤答了此題！< >所以只好硬著頭皮改寫一下您的程式(<>藍色部分)， 希望對您有幫助！< > < class="code"> void __fastcall TForm1::Sobel1Click(TObject *Sender) { Form2->Show(); // added by richtop Form2->Image2->Picture->Bitmap->Width = Image1->Width; Form2->Image2->Picture->Bitmap->Height = Image1->Height; Form2->Image2->Picture->Bitmap->Canvas->Draw(0,0,Image1->Picture->Graphic); int G; for(int i=0;i<Form1->Image1->Width;i ) { for(int j=0;j<Form1->Image1->Height;j ) { int Gx,Gy,gray[9]; gray[1]=Form1->Image1->Canvas->Pixels[i-1][j-1]; gray[2]=Form1->Image1->Canvas->Pixels[i][j-1]; gray[3]=Form1->Image1->Canvas->Pixels[i 1][j-1]; gray[4]=Form1->Image1->Canvas->Pixels[i-1][j]; gray[5]=Form1->Image1->Canvas->Pixels[i][j]; gray[6]=Form1->Image1->Canvas->Pixels[i 1][j]; gray[7]=Form1->Image1->Canvas->Pixels[i-1][j 1]; gray[8]=Form1->Image1->Canvas->Pixels[i][j 1]; gray[9]=Form1->Image1->Canvas->Pixels[i 1][j 1]; Gx=(gray[7] 2*gray[8] gray[9])-(gray[1] 2*gray[2] gray[3]); Gy=(gray[3] 2*gray[6] gray[9])-(gray[1] 2*gray[4] gray[7]); G=fabs(Gx) fabs(Gy); float threshold=50; // added by richtop if ( G>threshold ) Form2->Image2->Canvas->Pixels[i][j]=TColor(RGB(G,0,0)); } } } 您的問題如果透過 Scanline 方式存取像素的話，速度上應該會有顯著的提昇！ 相關的例子站上很多，或者我之前的一些發表您也可參考一下！ RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====##### 發表人 - richtop 於 2005/09/03 00:48:50