//ImageProcess.h
class PACKAGE TImageProcess : public TControl
{
private:
       int Th;
       void __fastcall SetTh (int Value);
protected:
public:            __fastcall TImageProcess(TComponent* Owner);
   void __fastcall Binary(Graphics::TBitmap* ); //二值化
__published:
  __property int BinaryThreshold = {read= Th, write=SetTh ,default=80}; //二值化的臨界值,但是元件檢視盤上仍為0
};
//ImageProcess.cpp
void __fastcall TImageProcess::Binary(Graphics::TBitmap *BMP)
{
 Byte* ptr;
 int Gray;
 for(int y=0;yHeight;y  )
 {
  ptr=(Byte*)BMP->ScanLine[y];
  for(int x=0;xWidth;x  )
  {
   Gray=ptr[3*x 2]*0.299 ptr[3*x 1]*0.587 ptr[3*x]*0.114;
   if(Gray >BinaryThreshold)
    Gray=255;
   else
    Gray=0;
     ptr[3*x]=ptr[3*x 1]=ptr[3*x 2]=Gray;
  }
 }
}
//---------------------------------------------------------------------------
void __fastcall TImageProcess::SetTh(int Value)
{
 Th=Value;
}
//---------------------------------------------------------------------------