抓取webcam |
尚未結案
|
t7052
一般會員 發表:10 回覆:12 積分:4 註冊:2005-08-14 發送簡訊給我 |
|
WoodTiger
初階會員 發表:35 回覆:90 積分:25 註冊:2003-08-01 發送簡訊給我 |
你是不是要列出所有的WebCam,那以下辦法供你參攷看看:
... var Form1: TForm1; sysdev:TSysDevEnum; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); //枚舉出所有的WebCam var i:integer; begin cmbDL.Items.Clear; Sysdev:=TSysDevEnum.Create(CLSID_VideoInputDeviceCategory); if SysDev.CountFilters > 0 then begin for i:=0 to Sysdev.CountFilters-1 do cmbDL.Items.Add(sysDev.Filters[i].FriendlyName); cmbDL.ItemIndex:=0 end; end; procedure TForm1.btnCnnClick(Sender: TObject); //聯接指定的webcam begin FG.ClearGraph; FG.Active:=False; Filter.BaseFilter.Moniker:=Sysdev.GetMoniker(cmbDL.ItemIndex); FG.Active:=True; with FG as IcaptureGraphBuilder2 do RenderStream(@PIN_CATEGORY_PREVIEW,nil,Filter as IBaseFilter,SG as IBaseFilter,VW as IBaseFilter); FG.Play; end; ...祝順心! ================================== 搞得懂就答人,搞不懂就問人,沒有人懂還可以問神!
------
-=-=-=-=-=-=-=-=-=-=-= Eveything as your wish. |
WoodTiger
初階會員 發表:35 回覆:90 積分:25 註冊:2003-08-01 發送簡訊給我 |
如果要同時開啓3個WebCam,應該可以用三份TVideowindow、TFilterGraph、TSampleGrabber、TFilter來同時開啓指定的WebCam。不過同時開啓多個視頻,可能只有專用的視頻捕獲卡才做得到,多個普通的USB型WebCam同時開啓可能系統並不會支持,至少USB連接帶寬會受不了吧。也請精於此道的大大們指點了。 ==================================
搞得懂就答人,搞不懂就問人,沒有人懂還可以問神!
------
-=-=-=-=-=-=-=-=-=-=-= Eveything as your wish. |
pnshxix
一般會員 發表:21 回覆:9 積分:6 註冊:2007-06-26 發送簡訊給我 |
var
Form1: TForm1;
*sysdev:TSysDevEnum;
implementation procedure TForm1.FormCreate(Sender: TObject);
//枚舉出所有的WebCam
var
i:integer;
begin
*cmbDL.Items.Clear;
Sysdev:=TSysDevEnum.Create(*CLSID_VideoInputDeviceCategory);
if SysDev.CountFilters > 0 then
begin
for i:=0 to *Sysdev.CountFilters-1 do
*cmbDL.Items.Add(sysDev.Filters[i].FriendlyName);
*cmbDL.ItemIndex:=0
end;
end; procedure TForm1.*btnCnnClick(Sender: TObject);
//聯接指定的webcam
begin
*FG.ClearGraph;
*FG.Active:=False;
*Filter.BaseFilter.Moniker:=Sysdev.GetMoniker(cmbDL.ItemIndex);
*FG.Active:=True;
*with FG as IcaptureGraphBuilder2 do
*RenderStream(@PIN_CATEGORY_PREVIEW,nil,Filter as IBaseFilter,SG as IBaseFilter,VW as IBaseFilter);
*FG.Play;
end; 請問一下大大 你打的這段程式~ 有打上星號(*)的 可以說明一下嗎?? 還有請問一下~ ”TSysDevEnum” 是什麼元件呀?? 麻煩了~ 謝謝喔~~
|
happycyp
一般會員 發表:4 回覆:1 積分:1 註冊:2008-12-03 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |