LAPORAN

PRAKTIKUM TEKNIK ANTARMUKA

PERCOBAAN 9

ANTARMUKA DENGAN WEBCAM

OLEH

Nama                           : Anita Rini Astuti

NIM                            : 120534400679

Prodi                            : S1 PTE D Elektronika 2012

Kelompok                    : 4

FAKULTAS TEKNIK

JURUSAN TEKNIK ELEKTRO

PRODI S1 PENDIDIKAN TEKNIK ELEKTRO

UNIVERSITAS NEGERI MALANG

Maret 2014

LAPORAN

PRAKTIKUM TEKNIK ANTARMUKA

ANTARMUKA DENGAN WEBCAM

A.       TUJUAN

§  Mahasiswa mampu menggunakan mengantarmukakan PC dengan webcam.

§  Mahasiswa mampu membuat aplikasi menggunakan Borland Delphi untuk antarmuka dengan webcam.

B.       DASAR TEORI

Sistem pengawasan menggunakan kamera lebih interaktif, kita bisa melihat langsung kondisi yang kita awasi tanpa harus ke tempat yang bersangkutan. Sistem ini akan lebih efektif jika kamera terhubung langsung ke PC, namun akan mengalami kendala jika dilewatkan melalui internet karena masalah bandwidth kecepatan transfer data. Apabila bandwidth tidak mencukupi gambar video yang ditampilkan akan kelihatan patah-patah. Dalam percobaan ini akan dibahas bagaimana membuat program capture video menggunakan delphi yang terhubung langsung ke PC. Untuk membuat antarmuka antara webcam dengan PC menggunakan delphi7, kita membutuhkan sebagai komponen video yaitu DSPACK 2.3.4. File DSPACK dapat di download di www.progdigy.com. Package DSPACK memiliki beberapa komponen yaitu:

§  TsampleGrabber didesain untuk membuat snapshoot dari data video atau audio.

§  TVideoWindow digunakan untuk manajemen Video Renderer atau Video Mixer Renderer (VMR) Filter untuk menampilkan sebuah video pada aplikasi yang dibuat.

§  Tfilter adalah digunakan untuk menambahkan filter spesific pada sebuah filter graph.

§  TFilterGraph adalah komponen pokok dalam DirectShow, Filter Graph menangani sinkronisasi, notifikasi kejadian, dan aspek laindarim pengaturan filter graph.

C.       ALAT DAN BAHAN

§   Kamera 1 buah

§   PC

D.      PROSEDUR PERCOBAAN

Buat Program untuk PC

1.      Buatlah program seperti berikut :

2. Komponen/Objek yang digunakan dan pengaturan propertiesnya adalah :

Komponen	Tab Komponen	Properti	Nilai Properti
Button1	Standar	Caption	Mulai
Combobox1	Standar	Enable	False
Timer1	System	Interval	500
Image1	Additional	Strech	TRUE
Videowindow1	Dspack	FilterGraph	FilterGraph1
Filtergraph1	Dspack	GraphEdit	TRUE
		LinearVolume	TRUE
		Mode	GmCapture
Filter1	Dspack	FilterGraph	FilterGraph1
SampleGrabber1	Dspack	FilterGraph	FilterGraph2

3.        Masukkan perintah-perintah pada kejadian/event disetiap komponen di bawah ini.

Komponen	Properti	Nilai Properti
Bagian uses	Oncreate	Tambahkan  DirectShow9, DsUtil
Inisalisasi variabel		Var Form1: TForm1; CapEnum: TSysDevEnum; j : integer;
Button1	onClick	procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin j:=0; combobox1.Enabled:=true; CapEnum:=TSysDevEnum.Create(CLSID_VideoInputDeviceCa tegory); for i:=0 to CapEnum.CountFilters-1 do begin combobox1.Items.Add(CapEnum.Filters[i].Friendlyname); end; end;
Combobox 1	Onselect	procedure TForm1.ComboBox1Select(Sender: TObject); begin FilterGraph1.ClearGraph; FilterGraph1.Active:=false; Filter1.BaseFilter.Moniker:=CapEnum.GetMoniker(Combobo x1.ItemIndex); FilterGraph1.Active:=true; with FilterGraph1 as IcaptureGraphBuilder2 do Renderstream(@PIN_CATEGORY_PREVIEW,nil,Filter1 as IBaseFIlter,SampleGRabber1 as IBaseFilter, VideoWindow1 as Ibasefilter); FilterGraph1.Play; timer1.Enabled:=true; end;
Timer1	Ontimer	procedure TForm1.Timer1Timer(Sender: TObject); begin SampleGrabber1.GetBitmap(Image1.Picture.Bitmap); Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeNa me)+inttostr(j)+'.bmp'); j:=j+1;// Image2. end;

4.    Jalankan system. Amati tampilan program.

E.       HASIL DAN PEMBAHASAN

§   Program untuk menampilkan video ke VideoWindow dapat dilihat pada listing :

procedure TForm1.ComboBox1Select(Sender: TObject);

begin

FilterGraph1.ClearGraph;

FilterGraph1.Active:=false;

Filter1.BaseFilter.Moniker:=CapEnum.GetMoniker(Combobo

x1.ItemIndex);

FilterGraph1.Active:=true;

with FilterGraph1 as IcaptureGraphBuilder2 do

Renderstream(@PIN_CATEGORY_PREVIEW,nil,Filter1 as

IBaseFIlter,SampleGRabber1 as IBaseFilter, VideoWindow1

as Ibasefilter);

FilterGraph1.Play;

timer1.Enabled:=true;

end;

§  Tampilan program setelah dijalankan :

Video dari PC Camera                                     Hasil capture

§  Sebelum kita klik mulai kita setting camera webcam yang akan digunkan terlebih dahulu. Disini menggunakan fungsi timer untuk dapat mengambil gambar setiap 5 secon, Dalam praktikum kali ini  ini digunakan timer1. Setelah pengambilan gambar maka secara otomatis gambar akan tersimpan. Adapun program yang digunakan untuk mengcapture setiap 5 secon dapat dilihat pada listing :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

SampleGrabber1.GetBitmap(Image1.Picture.Bitmap);

Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeNa

me)+inttostr(j)+'.bmp');

j:=j+1;// Image2.

end;

§  Selanjutnya yaitu pada saat aplikasi ini di close, maka ada tambahan program untuk menonaktifkan FilterGraph dengan listing program :

procedure TForm1.ComboBox1Select(Sender: TObject);

begin

FilterGraph1.ClearGraph;

FilterGraph1.Active:=false;

F.        KESIMPULAN

§  Langkah pertama yang dilakukan dalam pembuatan antarmuka webcam dengan PC menggunakan Delphi adalah menginstal komponen video yaitu DSPACK 2.3.4

§  Setelah diinstall dengan benar maka akan tampil tab DSPACK dengan komponen seperti berikut :

§  DSPACK TSCap32 berfungsi untuk capture image/mengambil gambar melalui camera dengan delphi 

§  TFilterGraph adalah komponen pokok dalam DirectShow, Filter Graph menangani sinkronisasi, notifikasi kejadian, dan aspek laindarim pengaturan filter graph.

G.      DAFTAR RUJUKAN

§  Ari E.Z, Ilham, dkk. 2012. Teknik Antarmuka. Malang : Teknik Elektro - FT –Universitas Negeri Malang