Kemaren Aq mencoba membuat program untuk menyimpan picture dari webcam menggunakan Visual Basic 6, emang dapet contoh sih code untuk menghubungkan device tersebut dengan Visual Basic 6 tapi terlalu ruwet, kagak mudeng (ngerti) otak Q untuk mengerti scriptnya 
Daripada ribet program g jadi”, akhirnya aq mutusin untuk memakai ezVidCap.ocx cukup mudah dan menyenangkan, tinggal tambahkan ezVidCap.ocx ke dalam project kemudian klik n drag komponen tersebut kedalam form, selesai deh, jika webcam anda sudah terinstall dengan baik maka gambar akan tampil di componen tersebut secara ostosmastis, menyenangkan bukan ??
Tapi sialnya ketika kita ingin menyimpan gambar hasil capture tadi dalam format .jpg komponen ezVidCap tidak menyediakan fasilitas tersebut, yang ada menyimpan dalam format .bmp yang kapasitasnya g menyenangkan.
Alhasil setelah aq browsing ke sana sini aQ menemukan komponen lain yang berguna untuk mengkonvert .bmp menjadi .jpg
Namanya PicFormat32.ocx
Jadi setelah menyimpan file dalam format .bmp menggunakan ezVidCap.ocx aQ lanjutin untuk mengkonvert file tersebut ke dalam format .jpg, dan yang terakhir file .bmp tadi di hapus. jadi deh hasil capture webcam dengan format jpg menggunakan ezVidCap.ocx dan PicFormat32.ocx
——————————————–
Sub SimpanPict(nama As String)
On Error Resume Next
Me.ezVidCap1.SaveDIB App.Path & nama & “.bmp”
Me.PicFormat321.SaveBmpToJpeg App.Path & nama & “.bmp”, App.Path & nama & “.jpg”, 65
Kill App.Path & nama & “.bmp”
End Sub
——————————————-
File:
Semoga Bermanfaat.
Daripada ribet program g jadi”, akhirnya aq mutusin untuk memakai ezVidCap.ocx cukup mudah dan menyenangkan, tinggal tambahkan ezVidCap.ocx ke dalam project kemudian klik n drag komponen tersebut kedalam form, selesai deh, jika webcam anda sudah terinstall dengan baik maka gambar akan tampil di componen tersebut secara ostosmastis, menyenangkan bukan ??
Tapi sialnya ketika kita ingin menyimpan gambar hasil capture tadi dalam format .jpg komponen ezVidCap tidak menyediakan fasilitas tersebut, yang ada menyimpan dalam format .bmp yang kapasitasnya g menyenangkan.
Alhasil setelah aq browsing ke sana sini aQ menemukan komponen lain yang berguna untuk mengkonvert .bmp menjadi .jpg
Namanya PicFormat32.ocx
——————————————–
Sub SimpanPict(nama As String)
On Error Resume Next
Me.ezVidCap1.SaveDIB App.Path & nama & “.bmp”
Me.PicFormat321.SaveBmpToJpeg App.Path & nama & “.bmp”, App.Path & nama & “.jpg”, 65
Kill App.Path & nama & “.bmp”
End Sub
——————————————-
File:
Semoga Bermanfaat.
