int __fastcall TForm1::Gx(int i,int j)
{               //sobel-x
 int p[10];

 //考慮邊界
 if (i==0) i=1;
 if (i== Image1->Height) i = Image1->Height - 1;
 if (j==0) j=1;
 if (j== Image1->Width) j = Image1->Width - 1;     p[1]=p1[i-1][j-1];
 p[2]=p1[i][j-1];
 p[3]=p1[i＋1][j-1];
 p[4]=p1[i-1][j];
 p[5]=p1[i][j];
 p[6]=p1[i＋1][j];
 p[7]=p1[i-1][j＋1];
 p[8]=p1[i][j＋1];
 p[9]=p1[i＋1][j＋1];
 int GX=((p[7]＋(p[8]*2)＋p[9])-(p[1]＋(p[2]*2)＋p[3]));
 if (GX>255)
  return 255;
 else
  return (abs(GX));
}
//---------------------------------------------------------------------------
int __fastcall TForm1::Gy(int i,int j)
{                //sobel-y
 int p[10];     //考慮邊界
 if (i==0) i=1;
 if (i== Image1->Height) i = Image1->Height - 1;
 if (j==0) j=1;
 if (j== Image1->Width) j = Image1->Width - 1;     p[1]=p1[i-1][j-1];
 p[2]=p1[i][j-1];
 p[3]=p1[i＋1][j-1];
 p[4]=p1[i-1][j];
 p[5]=p1[i][j];
 p[6]=p1[i＋1][j];
 p[7]=p1[i-1][j＋1];
 p[8]=p1[i][j＋1];
 p[9]=p1[i＋1][j＋1];
 int GY=((p[3]＋(p[6]*2)＋p[9])-(p[1]＋(p[4]*2)＋p[7]));
 if (GY>255)
  return 255;
 else
  return (abs(GY));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::capBitmapGrabbed(TCapturedBitmap *CapturedImage)
{
switch (RadioGroup1->ItemIndex)
{
case 0:
 Byte *ptr;
 for (int i=0;iHeight;i＋＋ )
 {
  ptr=(Byte*)CapturedImage->ScanLine[i];
  for (int j=0;jWidth; j＋＋ )
  {
// p1[j][i]=ptr[j*3];       p1[i][j]=ptr[j*3];      }
 }
 for (int i=0;iHeight;i＋＋ )
 {
  ptr=(Byte*)CapturedImage->ScanLine[i];
  for (int j=0;jWidth; j＋＋)
   {
   // if ((Gx(j,i)＋Gy(j,i))>255)        if ((Gx(i,j)＋Gy(i,j))>255)        {
       ptr[j*3]=255;
     ptr[j*3＋1]=255;
     ptr[j*3＋2]=255;
    }
    else
    {           ptr[j*3]=Gx(i,j)＋Gy(i,j);
     ptr[j*3＋1]=Gx(i,j)＋Gy(i,j);
     ptr[j*3＋2]=Gx(i,j)＋Gy(i,j);    /*
     ptr[j*3]=Gx(j,i)＋Gy(j,i);
     ptr[j*3＋1]=Gx(j,i)＋Gy(j,i);
     ptr[j*3＋2]=Gx(j,i)＋Gy(j,i);
*/        }
   }
  }
  Image1->Picture->Assign(CapturedImage);
  break;