Cara Mengakses Webcam dengan Delphi 10.3 Rio

Ada banyak cara untuk mengakses webcam di laptop Windows menggunakan Delphi, Anda bisa menggunakan komponen pihak ketiga atau menggunakan metode akses langsung melalui DirectX. Setelah beberapa kali mencoba ternyata ada satu komponen bawaan Delphi 10.3 yang dapat kita manfaatkan untuk mengakses webcam, yaitu ComponenCamera. Komponen ini pada dasarnya digunakan untuk mengakses kamera pada aplikasi Android yang dibuat dari Delphi 10 ini, namun ternyata dapat juga dimanfaatkan untuk mengakses kamera di laptop Windows juga. Bagaimana caranya, simak tutorialnya sebagai berikut:

Langkah-langkah mengakses kamera dengan Delphi 10

  • Buat project baru (pilih opsi File > New > Multi-Device Application – Delphi)
  • Ambil beberapa komponen sebagai berikut
KomponenTabProperty
CameraComponentAdditional 
Button1StandardText:= Start Camera
Button2StandardText:= Stop Camera
Image1Additional 
  • Klik event ‘OnSampleBufferReady’ milik komponen CameraComponent’ dan isikan script di bawah ini

procedure TForm1.CameraComponent1SampleBufferReady(Sender: TObject;
const ATime: TMediaTime);
begin
TThread.Synchronize(TThread.CurrentThread, GetImage);
end;

  • Tambahkan script ‘GetImage’ berikut ini

procedure TForm1.GetImage;
begin
CameraComponent1.SampleBufferToBitmap(Image1.Bitmap, True);
end;

  • Tambahkan prosedur ‘GetImage’ di bawah deklarasi ‘private’

private
{ Private declarations }
procedure GetImage;
public
{ Public declarations }
end;

  • Tambahkan script berikut di komponen Button1 dan Button2 sbb:

procedure TForm1.Button1Click(Sender: TObject);
begin
CameraCOmponent1.Active:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
CameraCOmponent1.Active:=false;
end;

Run project Anda, tekan tombol Start, dan perhatikan apakah sudah muncul preview webcam Anda di aplikasi

Untuk script selengkapnya dapat Anda download di link github di bawah ini

https://github.com/hansapw/delphi-component-camerA

Demikian sedikit tutorial sederhana mengenai cara mengakses kamera di laptop Windows dengan Delphi 10.3 Rio. Aplikasi ini masih bisa dikembangkan misalnya bagaimana cara memilih kamera lain yang terhubung laptop, meng-capture dan menyimpan ke file, melakukan zoom digital, dan sebagainya.

Untuk detailnya bisa disimak di video tutorial di bawah:

5 1 vote
Article Rating

Leave a Reply

6 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments
Belajar

mas, apakah ada file source APK nya ?

bryan

kalau VCL tetap harus directX ya om?

kasogi

mas kalu menghubungkan 2 kamera webcam apakah bisa

6
0
Would love your thoughts, please comment.x
()
x