最近試做WebCam的程式, 我參考站長推的金禾的書使用VFW來操作webcam, 但是發生一個怪現象,

1.在列出系統的視訊裝置的時候, 並無法正確的把所有的視訊裝置抓出來

2.強制使用數字去設定(根據書上說最多只能有十個視訊裝置)也無法正確抓取

3.我同時在系統上插了兩台同樣型號的webcam, 使用DSPACK的測試是可以抓出來兩台型號一模一樣的webcam而且也都可以使用, 但是使用VFW則只能抓到ㄧ台!

以下是我抓取的程式碼:

procedure TForm1.FormCreate(Sender: TObject);
var
wDriverIndex:DWORD;
DrvCount:integer;
DrvName:array[0..80] of char;
DrvVer:array[0..80] of char;
begin

DrvCount:=0;

for wDriverIndex:=0 to 9 do
if capGetDriverDescription(wDriverIndex,DrvName,sizeof(DrvName),DrvVer,sizeof(DrvName)) then
begin
inc(DrvCount);
end;
DriverCountText.Caption:=inttostr(DrvCount);
end;