Contoh Penggunaan Free QRCode Dengan Delphi

Sudah banyak komponen VCL yang mengimplementasikan QRCode, tapi tampaknya sulit untuk menemukan yang gratis (free). Berikut kita akan melihat sebuah library QRCode gratis untuk Delphi, zint.dll, yang sudah dilengkapi Pascal wrapper dan VCL control.

Saya sudah pula menambahkan sebuah package untuk Delphi 7 yang siap diinstall (kita akan lihat di bawah nanti). Sebelum mulai, silahkan download komponen qrcode for Delphi: 

Free QRCode Component For Delphi 7 and Delphi 2009 (390.9 KiB)

Setelah download, silahkan diekstrak (menggunakan WinZip atau Winrar atau 7zip) ke sebuah folder, misalnya di C:\KomponenDelphi\ZIntQRCode. Kini jalankan Delphi 7 atau Delphi 2009, lalu tutup semua file yang terbuka dari menu File>Close All.

Berikut instalasi ZintQRCode Component untuk tiap versi Delphi:

Ok. Bila sudah selesai instalasi, kita buat sebuah aplikasi baru. Di tulisan ini, saya menggunakan Delphi 7.

1. Buat sebuah aplikasi baru di Delphi. Save ke sebuah folder (terserah Anda).
2. Tambahkan komponen TZintBarcodeComponent ke form, beri nama ZintBarcodeComponent1. Lihat gambar berikut:
   
3. Klik pada komponen tersebut, dan lihat property Barcode (di Object Inspector). Klik tanda [+] di depannya, dan di dalamnya ada sub property BarcodeType. Pilih tipe tBARCODE_QRCODE. Ini akan mengubah tampilan barcode menjadi QRCode. Lihat juga sub property Data, di mana kita akan menulis dan membaca data. Biarkan sub property ini apa adanya, tidak usah diubah, kita akan mengisinya lewat kode. Sub property Scale dapat digunakan untuk mengatur skala (ukuran) QRCode. Masukkan nilai 3 untuk sub property ini.
4. Tambahkan sebuah TMemo dan dua buah TButton ke form. Atur letak dan property seperti berikut:
   
5. Kini saatnya menulis kode. Klik ganda tombol Write QRCode dan masukkan kode seperti berikut:

   procedure TForm1.Button1Click(Sender: TObject);
   begin
    if Memo1.Text = '' then
    begin
    ShowMessage('Teks masih kosong.');
    Memo1.SetFocus;
    exit;
    end;
    ZintBarcodeComponent1.Barcode.BarcodeType := tBARCODE_QRCODE;
    ZintBarcodeComponent1.Barcode.Data := Memo1.Text;
   end;
   

   Sedangkan untuk tombol Read QRCode ketikkan kode seperti berikut:

   procedure TForm1.Button2Click(Sender: TObject);
   var
    s: String;
   begin
    s := ZintBarcodeComponent1.Barcode.Data;
    ShowMessage(s);
   end;
   

   Sekarang silahkan Run projek Anda dengan menekan F9.

   

   Hasilnya seperti di atas.

Cukup mudah. Kini Anda dapat membuat aplikasi barcode menggunakan komponen QRCode gratis ini.

[important]Harap Diperhatikan
File Zint.dll adalah library untuk komponen ini. Saya sudah menambahkan wrapper dalam resource, sehingga file ini akan otomatis diekstrak ke direktori sistem Windows. Namun ada baiknya bila Anda menyertakan file ini dengan projek Anda.[/important]

Bila Anda malas dan ingin mendownload demo program di atas, silahkan saja: 

File Contoh Implementasi QRCode Pada Delphi 7 (336.9 KiB)

Jangan lupa share bila bermanfaat

[tip]Save/Load QRCode Dari File?
Sering kita perlu untuk melakukan save QRCode ke file sebagai backup, dan menampilkannya lagi lain waktu. Caranya? Ikuti di Save And Load QRCode To/From File.[/tip]

Related Topic

Save And Load QRCode To/From FileContoh Program Aplikasi Menjalankan Perintah Command Prompt Dengan Sekali KlikSource Code Delphi – Steganografi Metode LSB Pada Bitmap (Delphi 2009 – XE2)Video Tutorial Membuat Aplikasi Buku TeleponExecute Command Line and Capture The Output (Compatible Delphi7/Delphi 2009)

Incoming search terms:

• contoh program delphi 7
• kumpulan contoh program delphi 7
• contoh program menggunakan delphi 7
• aplikasi delphi 7
• cara membuat barcode di delphi
• barcode dengan delphi
• membuat barcode dengan delphi
• delphi component qr code freeware
• contoh program QR code
• contoh qr code

Comments

comments

Powered by Facebook Comments