我參考 http://delphi.ktop.com.tw/topic.php?topic_id=26723 希望能由WebCam擷取圖像來做前景背景的區分 當我載入一張背景、一張有目標物+背景的圖 利用一個按鈕 能夠成功的分辨出 該目標物 但是當我將程式碼 放入Timer元件底下 跑出來就是一片空白....想請大大們救救我

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  capFileSaveDIB(ghCapWnd1,"picture1.bmp");
  capFileSaveDIB(ghCapWnd1,"picture2.bmp");
  Image1->Picture->LoadFromFile("picture1.bmp");
  Image2->Picture->LoadFromFile("picture2.bmp");
  Graphics::TBitmap *Bitmap1=new Graphics::TBitmap;
  Graphics::TBitmap *Bitmap2=new Graphics::TBitmap;
  Graphics::TBitmap *Bitmap3=new Graphics::TBitmap;      int Width,Height,b1,g1,r1,b2,g2,r2,x,y,show1,show2,show3;
  Byte *ptr1,*ptr2,*ptr3;
  Bitmap1= Image1->Picture->Bitmap;
  Bitmap2= Image2->Picture->Bitmap;
  Bitmap3= Image2->Picture->Bitmap;      for ( y = 0; y < Bitmap1->Height; y++)
     {
       ptr1 = (Byte *)Bitmap1->ScanLine[y];
       ptr2 = (Byte *)Bitmap2->ScanLine[y];
       ptr3 = (Byte *)Bitmap3->ScanLine[y];
       for ( x = 0; x < Bitmap1->Width; x++)
          {
            b1=ptr1[x*3];
            g1=ptr1[x*3+1];
            r1=ptr1[x*3+2];
            b2=ptr2[x*3];
            g2=ptr2[x*3+1];
            r2=ptr2[x*3+2];
            show1=(0.299*r1+0.587*g1+0.114*b1);
            show2=(0.299*r2+0.587*g2+0.114*b2);
            show3=abs(show1-show2);
            if (show3>100)
              {                  }
            else
              {
                show3=255;
              }
            ptr3[x*3]=(Byte)show3;
            ptr3[x*3+1]=(Byte)show3;
            ptr3[x*3+2]=(Byte)show3;              }
  }
  Image3->Picture->Assign(Bitmap2);
}
 

以下程式碼先去掉,應該就可以看到該看到的東西

然後再修改吧.

[code]

if (show3>100)

{



}

else

{

show3=255;

}

[/code]

------
嘿嘿嘿

這２張圖看起來都是一樣的圖,如果你是把這２張相減當然是空白

如果不是的話：以下的ｃｏｄｅ你參考一下 我都是習慣這樣寫 而且我的相減是可以跑出來

Bitmap3= Image2->Picture->Bitmap;

改成Bitmap3= Image３->Picture->Bitmap;

if (show3＜threshold)

{

show3=0

}

else

{

show3=255;

}

threshold會影響你的結果 你再試看看要調多少
試看看吧.....加油!!!

------
.