Guys, salam kenal, saya orang baru disini. Udah jadi programmer Delphi sejak awal kuliah, berarti udah 5 taon-an. Hehehe... ;) Saya lagi mau buat project untuk mengambil gambar (memotret) menggunakan webcam, dan hasil potretnya disimpan ke dalam databse dalam bentuk BLOB. Pertanyaan saya adalah bagaimana cara untuk mengakses webcam, dan menyimpan hasil fotonya dalam bentuk JPG? Apakah ada component yang bisa membantu? Thanx berat :) Dermawan

Hi, coba aja pake vcl sederhana saya ini dalam post sebelumnya, mudah-mudahan bisa membantu: http://pascal-id.org/thread/unknown/1026/view-old-thread/ itu vcl bisa copy image ke clipboard ato return data JPEG, jadi terserah mo pake yg mana untuk "blobbing" ke database.. --

Aku dah coba komponen yang anda buat. Bagus sekali, sangat praktis dan mudah digunakan :) Thank you!!! Btw, ada pertanyaan nih. Kalau misalnya mau ambil data JPEG pake method GetJPEGData bukan? Return-nya dalam OLEVariant kan? Nah pertanyaan saya, gimana cara memindahkan data JPEG itu ke komponen TImage? Thanx, Chipmunk :) Dermawan

Munkin untuk memperjelas pertanyaan sebelumnya, saya ingin dengan setiap penekanan tombol bisa menampilkan still image yang berhasil dicapturenya, dan ditampilkan di component TImage. Kemudian baru disimpan ke dalam database dengan tipe BLOB. Trus BLOB yang saya tahu adalah dengan menggunakan ADOTable. Mungkin ada cara lain? Saya sangat terbuka dengan alternatif baru. Hehehehehe... Munkgin anda punya saran, soalnya udah googling dari tadi koq gak bisa menemukan solusinya yah :( Thanx again, Dermawan

Hi, Klo di Delphi anda tidak harus menggunakan GetJPEGData() untuk mengkopi image ke "image aware" controls seperti TImage/TDBImage tapi gunakan aja clipboard dan panggil method CopyCaptureToClipboard() trus pada TImage object instance: Image1.Picture.Bitmap.Assign(Clipboard); Jika pake TDBImage pake PasteFromClipboard() Implementasi dari GetJPEGData() jg menggunakan clipboard (liat sources). Tujuan saya waktu itu untuk fungsi ini adalah untuk memudahkan jika yg diinginkan adalah byte stream untuk aplikasi tertentu. Tp jika anda emang ingin menggunakannya pake aja fungsi2 untuk manipulasi variant spt VarArrayLock() yg return pointer ke raw data image. Klo mo experiment, coba liat implementasi GetJPEGData() dalam sources komponen webcam itu dan berangkatlah dari situ untuk berpikir sebaliknya yaitu dari variant ke bitmap..:) Tipe OleVariant sering digunakan oleh COM based application dan jika anda konversi component ini manjadi activex (dg fasilitas Delphi sendiri bisa..), maka GetJPEGData() ini dapat digunakan oleh bahasa yg support COM secara langsung (misal unmanaged VB,C/C++) dan managed application (.NET compliant apa aja). Saya dulu uda coba di .NET lewat interop layer dg C

dan bisa digunakan dengan casting return-nya itu ke byte (array ke tipe byte) dan selanjutnya digunakan seperti biasa...case by case tentunya.

Jadi pada dasarnya GetJPEGData() dimaksudkan utk memudahkan jika menginginkan byte stream secara langsung tanpa perlu rutin2 utk transfer data dari clipboard lagi... Untuk lebih detailnya silakan baca referensi yg terkait..:) Thanks

Oke, saya sudah berhasil. Thanx :) Btw, ada pertanyaan lagi nih. Sekarang ini saya pakai ADOTable untuk menyimpan BLOB langsung ke field-nya. Ternyata hal ini masalah apabila tabel-nya menyimpan data banyak. Setiap kali mau open tabel, butuh waktu sampe hitungan menit. Dan saya lihat di Task Manager, penggunaan memory sampai 240 MB. Tabel tersebut berisi 10.000 record, fieldnya hanya integer dan longblob. Setiap record kurang lebih ukuran fotonya 20 KB. Kira-kira gimana saya bisa menyimpan dan meload gambar dari tabel tersebut tanpa menggunakan komponen ADOTable yang lambat itu? Oh ya, sori kalau OOT banget :p Thanx berat, Dermawan

Sepertinya uda pernah ada yg posting masalah optimasi itu..coba cari di forum ini lagi..:) Good luck!

lebih baik gunakan query berparameter untuk simpan / load BLOB, lebih hemat resource dibanding Table. Jika Anda masih 'bersikeras' menggunakan tabel, lebih baik field BLOB tersebut Anda split / pisahkan ke tabel tersendiri sehingga Anda dapat me-load BLOB Anda pada saat diperlukan saja. Kalau tidak salah seputar BLOB dan gambar pada database sudah pernah dibahas pada posting2 sebelumnya, coba Anda gunakan fasilitas Search di dalam onForum.

thanx atas replynya :)

mas - mas componentnya itu bisa buat capture dengan format video nggak (ex:avi atau yang lainnya) trus ada yang pernah pake DSPack nggak gimana sih cara installnya kok error terus (dah baca readme nya tapi masih error nih help dong)