你們好，我想問說，我已經寫好一個副含式，要如何將他應用在影像上ㄋ，且利用Button鈕後，能夠將偵測後的結果顯示出來。

/************Marr_Hildreth*******************/
void __fastcall TForm1::Marr_Hildreth(int OriginalImg[256][256],int EdgeImg[256][256])
{
int i,j,w,h,k;
int PixelCounter=0,TH;
float TmpSum;
int TempImg[256][256];    for(i=2;i<256-2;i  )
{
 for(j=0;j<256-2;j  )
  {
   TempImg[i][j]=OriginalImg[i][j]*16-OriginalImg[i][j-1]*2
                 -OriginalImg[i][j 1]*2-OriginalImg[i-1][j]*2
                 -OriginalImg[i 1][j]*2-OriginalImg[i-1][j-1]
                 -OriginalImg[i-1][j 1]-OriginalImg[i 1][j-1]
                 -OriginalImg[i 1][j 1]-OriginalImg[i][j-2]
                 -OriginalImg[i][j 2]-OriginalImg[i-2][j]-OriginalImg[i 2][j];
  }
}
/*******計算Zero-crossing之臨界值**********/
TmpSum=0;
for(i=1;i<256-1;i  )
 for(j=1;j<256-1;j  )
  {
   PixelCounter  ;
   TmpSum=TmpSum abs(TempImg[i][j]);
  }    TH=2*(TmpSum/PixelCounter);    for (i=0;i<256-2;i  )
 for(j=0;j<256-2;j  )
  {
  EdgeImg[i 1][j 1]=255; /*將影像值設為白點*/
   if(((TempImg[i][j 1]>=0)&&(TempImg[i 2][j 1]<=0))
   &&((TempImg[i][j 1]-TempImg[i 2][j 1])>=TH))
    {
     EdgeImg[i 1][j 1]=0;
     continue;
    }
   if(((TempImg[i][j 1]<=0)&&(TempImg[i 2][j 1]>=0))
   &&((TempImg[i 2][j 1]-TempImg[i 2][j 1])>=TH))
    {
     EdgeImg[i 1][j 1]=255;
     continue;
    }
   if(((TempImg[i 1][j]>=0)&&(TempImg[i 1][j 2]<=0))
   &&((TempImg[i 1][j]-TempImg[i 1][j 2])>=TH))
    {
     EdgeImg[i 1][j 1]=255;
     continue;
    }
   if(((TempImg[i 1][j]<=0)&&(TempImg[i 1][j 2]>=0))
   &&((TempImg[i 1][j 2]-TempImg[i 1][j])>=TH))
    {
     EdgeImg[i 1][j 1]=255;
     continue;
    }
  }
}
//-----------

＊＊＊程式語言真是一門高深的學問＊＊＊ 發表人 - taishyang 於 2004/09/08 16:24:29

------
＊＊＊程式語言真是一門高深的學問＊＊＊

您好: 請注意,PO程式碼的方式請參考版規說明,這次先幫您改 < href="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47262">http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47262 針對您的問題您可以參考下面連結的方式將影像存入矩陣中 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=55975 再將矩陣傳入您的函式當中... 之後的結果舉一反三將矩陣利用TImage顯示出來 順心