Video Capture dengan Delphi

Membuat aplikasi video capture dengan Delphi pada tutorial kali ini menggunakan component tsCap32 versi 3.1 dari Thomas Stüfe yang anda bisa download di alamat: http://tscap32.sourceforge.net/download.html. Web Camera yang digunakan bisa merek apa saja.
Pada saat uji coba aplikasi saya menggunakan:

• Delphi 7.0
• Web Camera merek Creative (Creative WebCam Vista) dengan spesifikasi:
  · 640x480 (VGA) sensor
  · Video capture 800 x 600 resolution
  · Quick, easy USB connection
  · Manual focus lens
  
  Langkah pembuatan aplikasi:
  
• So Pasti PC telah terinstal driver webCam dan Delphi 7.
  Install component tscap32 dengan cara ekstrak dulu folder tscap32_delphi7_release kemudian install component tscap32.dpk sehingga muncul di Tab Pallete Component Delphi (Tab tsTech beserta komponennya)
  

• Buatlah form aplikasi delphi dengan komponen sbb:
  

List Program Lengkapnya sbb:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, tscap32_rt, Menus, ExtCtrls, StdCtrls, Buttons;

type
TForm1 = class(TForm)
tsCap321: TtsCap32;
tsCap32PopupMenu1: TtsCap32PopupMenu;
tsCap32Dialogs1: TtsCap32Dialogs;
CheckBox1: TCheckBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure CheckBox1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
If checkBox1.Checked then
begin
tscap321.Connected:=true; //kondisi terhubung
//ke WebCam
end
else
tscap321.Connected:=false; //kondisi tidak terhubung
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
showMessage('simpan di c:\test.bmp');
tscap321.SaveAsBMP:='c:\test.bmp'; //capture disimpan di drive C
//dengan nama file 'tes.bmp'

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
tscap321.CapOrder:=start;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
tscap321.CapOrder:=stop;
end;

end.

• Jangan lupa Copy Paste file dcu dan frm dari folder tsCap32_delphi7_release (hasil exctract) ke Folder Project Delphi anda, yaitu :TsCap32_rt.dcu;Tstlg.dcu;VfwUnit.dcu;tsDibrel.dcu;tsMessages.dcu; serta folder tsCap32FormResources
• Lihat hasil image capture di drive c:\test.bmp serta video capturnya (File AVI) pada drive yang sama.
  
  Kemudian Run program.....Selamat mencoba.