兩個ccd camera 擷取後錄製avi的問題 |
尚未結案
|
MilesWamg
一般會員 發表:18 回覆:37 積分:11 註冊:2003-02-07 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
MilesWamg
一般會員 發表:18 回覆:37 積分:11 註冊:2003-02-07 發送簡訊給我 |
小弟將camera驅動寫成一物件為TCapture,其中開始擷取影像後
呼叫
void __fastcall TCapture::ShowLive(void) { BITMAPINFO bmi; if(!Live) { Video = capCreateCaptureWindow("Capture Window", WS_CHILD|WS_VISIBLE, XPOS,YPOS,320,240, Handle, DEVICENUM); //1 capDriverConnect(Video,0); if(!capOverlay(Video,true)) { // capPreviewRate(Video, 100); // PreviewMode!! capPreview(Video,true); } UpdateWindow(Video); Live = true; SetVideoFormat(); capGetVideoFormat(Video, &bmi, sizeof(BITMAPINFO)); SetWindowPos(Video, 0, XPOS, YPOS, bmi.bmiHeader.biWidth,bmi.bmiHeader.biHeight,0); } } void __fastcall TCapture::SetAVIFile(AnsiString FileName) { AVIName=FileName; } void __fastcall TCapture::Start_save_AVI() //saveAVI { capFileSetCaptureFile(Video,AVIName.c_str()); capCaptureSequence (Video); } 主程式 void __fastcall TForm1::FormCreate(TObject *Sender) { //建立使用物件 Rec = new TCapture(SHowPanel->Handle,0); Rec->Setpos(0,0); Rec->SetAVIFile("1.AVI"); Rec1 = new TCapture(SHowPanel->Handle,0); Rec1->Setpos(320,0); Rec1->SetAVIFile("2.AVI"); Rec->ShowLive(); Rec1->ShowLive(); ..... ..... void __fastcall TForm1::Button1Click(TObject *Sender) { Rec->Start_save_AVI(); Rec1->Start_save_AVI(); //結果只有後者被存下 } |
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
MilesWamg您好:
不好意思,方便將您的專案上傳到[會員求助程式檔案上傳區]嗎?
http://delphi.ktop.com.tw/forum.asp?FORUM_ID=97
我來幫您測試看看 順心 <>~我也是在學習的階段,所以請您多多見諒與指教~>
|
MilesWamg
一般會員 發表:18 回覆:37 積分:11 註冊:2003-02-07 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
MilesWamg
一般會員 發表:18 回覆:37 積分:11 註冊:2003-02-07 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
MilesWamg
一般會員 發表:18 回覆:37 積分:11 註冊:2003-02-07 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |