PC Camera Video Capture Delphi7

Sistem pangawasan ato monitoring objek visual seperti pengawasan ruangan, pengawasan lalu lintas akan lebih interaktif jika bisa melihat langsung objek yang diamati. Pada tulisan kali akan dibahas bagaimana membuat sistem monitoring dengan delphi. sistem monitoring tentunya tak lepas dari kamera, kali ini menggunakan PC Camera buatan itech..untuk komponen delphi yang bisa mengcapture gambar dari webcam digunakan DSPCK 2.3.4. Komponen ini bisa didownload di www.progdigy.com..dalam project ini menggunakan delphi7. setelah komponen di install akan muncul gambar sepeti dibawah..

Komponen yang diperlukan adalah Filter, FilterGraph, SampleGrabber, VideoWindow.adapaun form yang akan dibuat dapat dilihat pada gambar dibawah…

Listing program untuk mendeteksi adanya koneksi dengan webcam sebagai berikut:

apabila terdapat koneksi, maka akan ditampilkan di combobox1.nah langkah berikutnya adalah menampilkan video ke videowindow,,adapun programnya sebagai berikut..

nah setelah semuanya selesai..execute program dengan menekan F9..dan klik item yang ada di combobox1 akan muncullah video seperti dibawah ini..

untuk melakukan camputer gambar,digunakan fasilitas timer…dalam project ini caputer dilakukan setiap 5 secon…listing untuk caputure adalah sebagai berikut..

nah dah jadi projectnya….gampang kan…kalo mau usaha dan belajar tak mudah putus asa pasti bisa…oh ya jangan lupa menambahkan listing dibawah ini..linting ini digunakan saat aplikasi ditutup, yaitu free buffer komponent DSPACK..

Ok dah Finish sampe disini…Ketemu lagi di artikel yang lain…

dan terus belajar

====================================================================

Jenis kamera yang digunakan adalah PC Camera buatan itech (sejenis web cam) pake USB.spesifikasinya adalah

1. Hi-resolving power : 640×480
2. Video Format : 24-bit RGB
3. interface: USB
4. Frame Rate : 320 x 240 up to 30 frame/sec
5. sensor size : 4.86 x 3.64mm2
6. S/N Ratio: <72db>

aplikasi video capture yang dijelaskan diatas, sudah menggunakan usb…untuk komponennya bisa di download lewat link dibawah ini..

Komponen

====================================================================

Tambahan :

Capture gambar :

Untuk capture gambar dengan delphi, menginstall komponen untuk capture gambar terlebih dahulu karena delphi tidak menyediakan komponen tersebut secara default…salah satu komponen yang bisa digunakan adalah DSPAK,untuk mendapatkan komponen itu mas bisa download pada link di tulisan saya pada tanggal 12 januari 2009, atau bisa juga download disini..Habis itu install komponen tersebut ke delphi anda,tentunya sesuaikan dengan versi delphi yang ada gunakan, komponen ini hanya menyediakan buat delphi 5, 6 dan 7 serta CPP Bulider 6.cara menginstall komponen tersebut sudah ada di file readme pada file yang anda download tadi, atau kalo anda masih bingung bisa download disini cara installnya, sebelum diinstall, windows anda harus sudah ada direx9, kalo windows anda sudah SP2 direx9 sudah terinstall…berikut ini tulisan mengenai cara mengcapture gambar melalui delphi menggunakan DSPAK bisa di download disini…atau anda bisa juga mempelajarinya dari contoh yang ada pada file DSPACK yang anda download tadi..

nah itulah cara bagaimana mengcapture gambar dengan delphi menggunakan komponen DSPACK..Selamat mencoba..

Permasalahan Yang Sering Terjadi:

Mas Awan, aq dah nyoba brkali2 nginstal dspack koq gagal trus ya?? Ngikutin panduan Instal package serial delphi punya mas awan, tp slalu error pada langkah ke-6.
Ku pake delphi 7,jd pd langkh 6 kupilih yang ‘Dspack_D7′..trus ta klik instal, muncul keterangan [fatal error] Dspack.pas(37).file not found ‘jedi.inc’
Mohon Pencerahannya…Thx.

Begini,,untuk mengetahui letak permasalahan mengapa timbul error jedi.inc not found perlu kita telusuri file jedi.inc ada di mana..setelah dicari ternyata file jedi.inc ada di folder (klo di komputernya penulis) C:\Program Files\Borland\Delphi7\DSPACK234\src\DirectX9,, maka agar delphi dapat menemukan file jedi.inc perlu di setting pada Tools –> Environment Option –> Library Path –> tambahkan folder yang terdapat file Jedi.inc tersebut..Selain cara diatas bisa juga dengan mengkopi file jedi.INC ke folder C:\Program Files\Borland\Delphi7\DSPACK234\packages..kenapa ke folder packages, hal ini bisa ditelusuri waktu mengkompile DirextX9_D7 terdapat file Jedi.INC yang mengacu ke folder C:\Program Files\Borland\Delphi7\DSPACK234\packages. Disitu juga terdapat file DirectX.INC yang mengacu ke folder ../packages,,maka disarankan copy juga file DirectX.INC yang ada di folder ../src/DirectX9 ke folder ../packages..untuk lebih jelasnya panduan menginstall komponen DSPACK dapat di download disini..

OK..itulah cara menginstall komponen DSPACK ke delphi..

installasi DSPACK dah berhasil dan sdh tampil Tab kompnen DSPACK. Listing program jg dah ta bt, tp saat compile program/RUN muncul:
[fatal Error] unit1.pas(7): File not Found: ‘DSPack.dcu’

seperti penjelasan sebelumnya terjadi error karena delphi tidak menemukan file DSPack.DCU, nah dalam tulisan cara install DSPACK dijelaskan ada cara lain untuk menginstall komponen tersebut, yaitu mengganti langkah 2 dan mengabaikan langkah 3..cara tersebut adalah menambah directory C:\Program Files\Borland\Delphi7\DSPACK234\src\DirectX9, C:\Program Files\Borland\Delphi7\DSPACK234\src\DSPack dan C:\Program Files\Borland\Delphi7\DSPACK234\packages ke Tools –> Environment Option –> Library Path,,,nah setelah diteliti lebih lanjut ternyata cara install DSPACK cuman menambahkan directory C:\Program Files\Borland\Delphi7\DSPACK234\src\DirectX9 dan C:\Program Files\Borland\Delphi7\DSPACK234\src\DSPack ke Library Path..

Artikel terkait :