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

• 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

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: