全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2490
推到 Plurk!
推到 Facebook!

關於direct show

答題得分者是:cmf
braveheart
一般會員


發表:35
回覆:62
積分:24
註冊:2003-05-21

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-08-01 23:51:23 IP:61.71.xxx.xxx 未訂閱
不好意思..剛剛接觸BCB跟DIRECTX... 詳閱了站上滴文件..已經可以用VFW將CCD用於BCB了..但好像找不到有SAMPLE是用DIRECTSHOW於CCD上.. 不知..可否麻煩各位先進..是否有範例程式可以用DIRECTSHOW將CCD取像.並可以用於簡單的IMAGE PROCESS....感謝各位先進
cmf
尊榮會員


發表:84
回覆:918
積分:1032
註冊:2002-06-26

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-08-02 09:18:59 IP:61.218.xxx.xxx 未訂閱
 TVideoCapture  Version: 1.15    ....................................    DELPHI5 | DEPHI6 | BCB5   .................................................       TVideoCapture - Delphi wrapper for DirectShow video capture functions. Code is based on Microsoft's AMCap & StillCap samples from DirectX SDK and DScapture by orthkon * www.mp3.com/orthkon * orthkon@mail.com Compatible with D5, D6 and BCB5. Tested under Win98 & Win2k & DX8.1 with miniDV camcoder, Genius VideoCAM III, bt878 WDM TVTuner. DX8 or later is required to capture bitmaps.      Freeware By: Egor Averchenkov      http://www.vclcomponents.com/download.asp?ID_COMPONENT=19320    
------
︿︿
braveheart
一般會員


發表:35
回覆:62
積分:24
註冊:2003-05-21

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-08-02 10:32:09 IP:61.71.xxx.xxx 未訂閱
恩...謝謝...偶會好好研究的...
braveheart
一般會員


發表:35
回覆:62
積分:24
註冊:2003-05-21

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-08-05 02:08:14 IP:61.71.xxx.xxx 未訂閱
不好意思..有給bcb6用滴嗎.... 若有不便之處...請見諒...
braveheart
一般會員


發表:35
回覆:62
積分:24
註冊:2003-05-21

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-09-02 13:45:05 IP:61.71.xxx.xxx 未訂閱
先進您好..這程式已經可以run了...不過有些程式上的問題 這程式抓圖是用 
CapturedImage->SaveToFile(feBitmap->Text ".bmp");
  Image->Picture->Assign(CapturedImage); 
這程式碼完成..不過只能在
void __fastcall TCamera_Main::capBitmapGrabbed(TCapturedBitmap *CapturedImage) 
這事件中可以以使用...若想用這程式完成一次抓兩張圖且在不同時間..要如何實現.. 因本來想在timer中用...不過CapturedImage不能在timer中使用...
 CapturedImage->SaveToFile("1.bmp");
  Image1->Picture->Assign(CapturedImage);
  DWORD tmrTemp = GetTickCount();
  while(true)
  {
    if((GetTickCount()-tmrTemp) > 5000)break;
    Application->ProcessMessages();
  }
  CapturedImage->SaveToFile("2.bmp");
  Image2->Picture->Assign(CapturedImage);
不知這要如何解決..是不是要將在memory中的資料作更新動作..還是... 謝謝先進..
cmf
尊榮會員


發表:84
回覆:918
積分:1032
註冊:2002-06-26

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-09-02 14:28:10 IP:61.218.xxx.xxx 未訂閱
    __fastcall TFMain::TFMain(TComponent* Owner)
        : TForm(Owner)
{
 WaitGrab=False;
 imageIndex=0;
}    void __fastcall TFMain::TimerTimer(TObject *Sender)
{
 if (WaitGrab==False)
 {
  WaitGrab=True;
  cap->CaptureFrame();
 }  
}    void __fastcall TFMain::capBitmapGrabbed(TCapturedBitmap *CapturedImage)
{
 if (WaitGrab==True)
 {
  CapturedImage->SaveToFile(IntTostr(imageIndex) ".BMP");
  Image->Picture->Assign(CapturedImage);
  imageIndex  ;
  WaitGrab=False;
 }
}     
------
︿︿
wgjf40199
一般會員


發表:0
回覆:1
積分:0
註冊:2004-09-05

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-09-05 14:37:51 IP:222.38.xxx.xxx 未訂閱
我下载不下来,能给我发一个 TVideoCapture Version: 1.15 吗? e-mail:wgjf40100@eyou.com
系統時間:2024-05-07 7:24:29
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!