Webcam Multi Dengan DSPACK

Beberapa hari yang lalu penulis mendapatkan beberapa pertanyaan bagaimana membuat membuat program capture jika webcamnya lebih dari satu meggunakan DSPACK. Dengan spontannya saya menjawab untuk satu webcam diperlukan 1 filter, 1 filtergraph, dan 1 videowindow dari komponen DSPACK. Mungkin dari situ masih kurang jelas, dalam penjelasan berikut ini akan dijelaskan bagaimana membuat aplikasi diatas dengan lebih dua webcam. Seperti yang saya bilang diatas, dalam tutorial ini digunakan 2 webcam yaitu 1 webcam bawaan laptop dan 1 webcam external. Pertama kali kita buat form aplikasi seperti gambar dibawah ini

pada gambar diatas untuk tiap2 webcam memerlukan komponen 1 combobox, 1 filter, 1 filtergraph dan 1 videowindow. Setelah menambahkan komponen yang diperlukan seperti gambar diatas, ubah properties caption bitbtn1 menjadi “Mulai” lalu tambahkan program dibawah ini untuk onclick bitbtn1

procedure TForm1.BitBtn1Click(Sender: TObject);

var

i : integer;

begin

if bitbtn1.Caption = ‘Mulai’ then

begin

bitbtn1.Caption:=’Close’;

CapEnum:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);

for i := 0 to CapEnum.CountFilters – 1 do

begin

combobox1.Items.Add(CapEnum.Filters[i].FriendlyName);

combobox2.Items.Add(CapEnum.Filters[i].FriendlyName);

end;

end

else

close;

end;

setelah itu untuk tiap2 komponen DSPACK yang terpasang, atur propetiesnya sebagai berikut:

1. Filter

2. filtergraph

3. video window

setelah itu, untuk masing2 combobox tambahkan prosedure onclick seperti terlihat pada gambar dibawah

untuk combobox1 pada rosedure onclick tambahkan program dibawah ini

sedangkan untuk combobox2 tambahkan program dibawah ini

berikutnya adalah tambahkan variabel Capenum seperti yang terlihat pada gambar dibawah

setelah itu tambahkan prosedure closequery seperti dibawah ini

pada prosedure closequery tambahkan program seperti dibawah ini

sampai disini program masih belum bisa dijalankan, jika dijalankan akan muncul error CapEnum tidak terdefinisi. untuk tambahkan directshow9 dan DSutil pada uses seperti pada gambar dibawah ini

nah sampai disini program sudah bisa dijalankan..jalankan program dengan menekan F9 seperti pada gambar dibawah ini hasil dari program diatas

Pada tampilan diatas untuk webcam 1 dipilih webcam dari laptop sedangkan untuk webcam 2 dipilih webcam eksternal…

Nah teman itulah sedikit tutorial bagaimana membuat aplikasi capture video webcam jika webcamnya lebih dari 1..Demikian dari penulis, smoga bisa membantu..

semua artikel diatas dapat di download disini

http://www.ziddu.com/download/6008257/CaptureVideoMultiWebcamdenganDSPACK.pdf.html