目前以它(TVideoGrabber)來截取4隻攝影機  不過他預設影像格式有BMP,JPG,TBITBMP,存取過來進行影像處理時還是太慢  目前希望能從記憶體直接抓資料(不含檔頭) 有人用過它嗎  可以教我如何由TVideoGrabber直接抓影像資料到記憶體嗎     PS 有需要這VCL的人可以留EMAIL 我寄給他    以下是我參考它的程式碼寫的擷取程式

//-------------------------------------------------------------------    #include 
#include 
#pragma hdrstop    #include "Unit1.h"
//-------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "VidGrab"
#pragma resource "*.dfm"
TForm1 *Form1;    //---------------------------------------------------------------------------
void __fastcall TForm1::SetupVideoCaptureDevice (TVideoGrabber *VideoGrabber, int VideoDeviceIndex)
{
  // NOTE: THE SETTINGS BELOW CAN BE DONE AT DESIGN TIME FROM THE    
     OBJECT INSPECTOR
  // we assign each video capture device respectively to each 
     component (0, 1, 2 and 3)
   
  VideoGrabber->VideoDevice = VideoDeviceIndex;
   
  //we assign a different prefix to file names for each camera    
    during frame capture
   
  VideoGrabber->AutoFilePrefix = "cam"   IntToStr (VideoDeviceIndex 
    1)   "_";      // if the video capture device is DV, this will divide the frame 
     rate by 2 (15 fps NTSC or 12.5 fps PAL)
   
  VideoGrabber->DVReduceFrameRate = True;      // otherwise we set 15 fps for non-DV video sources
   
  VideoGrabber->FrameRate = 15;      // this will reduce the CPU load by dividing the preview frame 
     rate by 2 (but this does not modify the capture frame rate
   
  VideoGrabber->ReducePreviewCPULoad = true;      // we don't want to worry about sizes, we choose to preview in 
     320x240 using the nearest size available on the video capture 
     device
   
  VideoGrabber->UseNearestVideoSize (320, 240, true);    }    //-------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   SetupVideoCaptureDevice (VideoGrabber1, 0);
   SetupVideoCaptureDevice (VideoGrabber2, 1);
   SetupVideoCaptureDevice (VideoGrabber3, 2);
   SetupVideoCaptureDevice (VideoGrabber4, 3);
   Edit1->Text = VideoGrabber1->StoragePath;    
   Edit2->Text = VideoGrabber2->StoragePath;    
   Edit3->Text = VideoGrabber3->StoragePath;    
   Edit4->Text = VideoGrabber4->StoragePath;    
 }
//------------------------------------------------------------------
void __fastcall TForm1::ProcessFrameCapture (TVideoGrabber *VideoGrabber)
{
  VideoGrabber->CaptureFrameTo (fc_BmpFile); //設定影像格式
}
//-----------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   ProcessFrameCapture (VideoGrabber1);
   ProcessFrameCapture (VideoGrabber2);
   ProcessFrameCapture (VideoGrabber3);
   ProcessFrameCapture (VideoGrabber4);
}

發表人 - taishyang 於 2004/02/22 19:17:46

摸索一陣子 將發現跟大家分享     

    void __fastcall TForm1::SetupVideoCaptureDevice (TVideoGrabber *VideoGrabber, int VideoDeviceIndex)
{
  
   VideoGrabber->VideoDevice = VideoDeviceIndex;
   VideoGrabber->AutoFilePrefix = IntToStr (VideoDeviceIndex   1);
   VideoGrabber->DVReduceFrameRate = True;
   VideoGrabber->FrameRate = 30;
   VideoGrabber->ReducePreviewCPULoad = true;
   VideoGrabber->UseNearestVideoSize (320, 240, true);    }
//-------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   SetupVideoCaptureDevice (VideoGrabber1, 0);
   SetupVideoCaptureDevice (VideoGrabber2, 1);
   SetupVideoCaptureDevice (VideoGrabber3, 2);
   SetupVideoCaptureDevice (VideoGrabber4, 3);
   VideoGrabber1->StoragePath = Edit1->Text; 
   VideoGrabber2->StoragePath = Edit2->Text; 
   VideoGrabber3->StoragePath = Edit3->Text;  
   VideoGrabber4->StoragePath = Edit4->Text; 
 }
//-------------------------------------------------------------------
void __fastcall TForm1::ProcessAutomaticCapture(TVideoGrabber *VideoGrabber)
{
  //連續擷取模式
  VideoGrabber->BurstType = fc_TBitmap; //採用記憶體儲存
  VideoGrabber->BurstCount = 0;    // don't stop capturing frames
  VideoGrabber->BurstMode = true;  // 開始連續擷取
  VideoGrabber->BurstInterval = StrToIntDef (Edit5->Text, 0); 
  // we skip n frames for each frame captured
}    //-----------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 //啟動擷取
 ProcessAutomaticCapture(VideoGrabber1);
 ProcessAutomaticCapture(VideoGrabber2);
 ProcessAutomaticCapture (VideoGrabber3);
 ProcessAutomaticCapture (VideoGrabber4);
}    //-------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 //停止擷取 
 VideoGrabber1->BurstMode = false;
 VideoGrabber2->BurstMode = false;
 VideoGrabber3->BurstMode = false;
 VideoGrabber4->BurstMode = false;
}
//-------------------------------------------------------------------
void __fastcall TForm1::VideoGrabber1FrameCaptureCompleted(TObject *Sender,const TFrameData &FrameData, TFrameCaptureDest DestType,
AnsiString FileName, bool Success)
{
  //將影像資料讀到陣列
  Image1->Picture->Assign(FrameData.Bitmap);
  Byte *ptr1;
       for (int y = 0 ; y < 240 ; y  )
       {
         ptr1 = (unsigned char *)FrameData.Bitmap->ScanLine[y];
         for (int x=0, i=0 ; x <320; x  , i=i 3)
         {
          Img[1][y][x] = ptr3[i];
          Img[2][y][x] = ptr3[i 1];
          Img[3][y][x] = ptr3[i 2];
         }
       }
   //讀出來後 可做你想要的影像處理步驟
   //
}
.....    

剩下的CHANEL以此類推 目前小弟是做小波影像壓縮 使用此VCL 單一CHAANEL可達到25張/秒壓縮存檔 執行多CHANEL 後 壓縮速度會拖慢 目前在想解決方法 發表人 - taishyang 於 2004/03/01 13:44:09

TVideoGrabber是free的嗎 它支援各個廠牌的capture card嗎 我對它很有興趣 可以寄給我嗎

元件網址如下 http://www.delphicity.com/vidgrab/index.htm 不過要$喔

hello~~ 可以寄給我嗎？ 我看了有人寫出來的程式 感覺起來 跑的蠻順的 看起來比較不會delay mango_1007@yahoo.com.tw thx``

用一張一張jpeg可能會慢了一點,如果可以用stream的方式可能會比 較好....

[quote] 我正在寫有關即時影像辨識的東西這個元件看DEMO跑起來感覺不錯正好需要 也可以寄給我 分享一下嗎 謝謝 infosun@ms29.hinet.net

HIHI...    不好意思, Swindler大大, 可以跟你要這個元件嗎..    我的E-Mail是 s1318031@ntut.edu.tw =============== 有興趣,就能進步 ===============

你好,玩Webcam有一陣子了,確實在影像擷取時,特別是高解析的畫面會處理的很慢,如果能將影像資料存到記憶體,應該可以提高處理速度 也麻煩你 >

------
Keni Lin

hello~~ swindler 可以跟你要這元件嗎 感激不盡 我的mail M9204303@mail.ntust.edu.tw

hello! swindler 可以跟你要這元件嗎 感激不盡 patrick@temgtai.com.tw

你好~~我也想要可以嗎~謝 g9212714@yuntech.edu.tw

你好~~我也想要這元件VideoGrabber可以嗎~謝謝喔    716070@yahoo.com.tw   [/quote]

各位大大問個問題 請問VideoGrabber是一個物件嗎~那要怎麼在BCB中~叫出這個物到到FORM上~ 是放在那一個資料庫裡？~謝謝thx~

我也想玩玩看！ 可以也寄VCL給我嗎？ 謝謝～

抱歉！ 剛剛忘了留E-mail jwen.cheng@msa.hinet.net

您好~~可以麻煩您寄給我嗎~~謝謝 g9212714@yuntech.edu.tw

Thank you !!!I need it. x_display@yahoo.com.tw

如果可以的話, 我也需要 u8100500@cc.ncu.edu.tw 謝謝

如果不介意 我非常想擁有這個VCL.. pony0952@seed.net.tw ○○○ thks. Pony

------
Pony

如果不介意 我也非常想擁有這個VCL.. ojima@ccps.tcc.edu.tw

你好,我也正有需要此元件 先謝謝了~ jonesyeah@yahoo.com.tw

swindler 你好： 可以麻煩你也寄一份TVideoGrabber的元件給我嗎!! 693380023@s93.tku.edu.tw 489351717@s89.tku.edu.tw 謝謝，感激不盡 冬天...屬於我的季節 寒夜無月的星空中 徘徊在森林小徑間 就讓暗處中深冷的風聲 帶走屬於我所有的一切 Silent Love

------
冬天...屬於我的季節
寒夜無月的星空中 徘徊在森林小徑間
就讓暗處中深冷的風聲 帶走屬於我所有的一切

Silent Love

你好，我也想要這元件來參考一下 b8920119@stmail.isu.edu.tw

可以把TVideoGrabber傳給我嗎,我很須要.., pizza.exe@msa.hinet.net ,不知大大有沒有處理過Sony的VCR remote , 及NTSC標準的影片

swindler大大 可以給我該元件嗎::謝囉 poa116@yahoo.com.tw 感激不敬

To Swindler大大 我可以也要該元件來試試看嗎? arthue@ms8.url.com.tw 謝謝!感激不盡

swindler大大    也可以寄給我這元件嗎? ltms0616@yahoo.com.tw 謝謝您 感激不盡^^

您好~也可以麻煩您寄給我嗎~~謝謝 h3692468@yahoo.com.tw

hi~ 我也想試試這個元件~ 可以mail給我嗎？ chang.haue@xuite.net 謝啦~

我目前正在找尋比較好的取像元件，感謝您的分享！ ray19760116@yahoo.com.tw