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.
- Buat sebuah aplikasi baru di Delphi. Save ke sebuah folder (terserah Anda).
- Tambahkan komponen TZintBarcodeComponent ke form, beri nama ZintBarcodeComponent1. Lihat gambar berikut:
- 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.
- Tambahkan sebuah TMemo dan dua buah TButton ke form. Atur letak dan property seperti berikut:
- Kini saatnya menulis kode. Klik ganda tombol Write QRCode dan masukkan kode seperti berikut:
00010002000300040005000600070008000900100011
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
;
0001000200030004000500060007procedure
TForm1
.
Button2Click(Sender: TObject);
var
s:
String
;
begin
s := ZintBarcodeComponent1
.
Barcode
.
Data;
ShowMessage(s);
end
;
Hasilnya seperti di atas.
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.
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.
File Contoh Implementasi QRCode Pada Delphi 7 (336.9 KiB)
Jangan lupa share bila bermanfaat
sumber : http://www.cenadep.org
perbaharui lg donk link downloadnya bos, sudah mati tu
BalasHapusContoh Penggunaan Qrcode Dengan Delphi ~ Irwan-Friends17 >>>>> Download Now
BalasHapus>>>>> Download Full
Contoh Penggunaan Qrcode Dengan Delphi ~ Irwan-Friends17 >>>>> Download LINK
>>>>> Download Now
Contoh Penggunaan Qrcode Dengan Delphi ~ Irwan-Friends17 >>>>> Download Full
>>>>> Download LINK zO