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:

Delphi 7Delphi 2009

• Klik menu Tools>Environment Options. Jendela opsi akan tampil. Klik tab Library dan klik tombol elipsis di sebelah kanan combobox Library path. Lihat gambar agar lebih jelas:
  
• Setelah tombol elipsis diklik, akan tampil sebuah window baru untuk mengedit Library Path:
  
  Klik tombol elipsi lagi yang berada di atas  tombol “Delete Invalid Paths”. Pilih direktori tempat Anda mengekstrak hasil download komponen ZIntQRCode, yaitu C:\KomponenDelphi\ZIntQRCode.
• Klik Add untuk menambahkan direktori ini ke daftar Library Path Delphi. Sudah? Klik OK. Kembali ke Environment Options, klik OK lagi.
• Kembali ke Delphi. Klik menu File>Open, pilih file C:\KomponenDelphi\ZIntQRCode\ZIntQRCode_D7.dpk, lalu klik Compile, dan klik Install. Bila semuanya oke, sebuah komponen baru TZintBarcodeComponent akan diinstall dan tersedia di Component Palette, di tab System.

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:

   0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011

   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:
   

   0001 0002 0003 0004 0005 0006 0007

   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.

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.

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

sumber : http://www.cenadep.org