Delphi ile QrCode Uygulaması

Delphi sürümlerinde qrcode desteği şuanlık componentler dışında bildiğim kadarıyla yok, fastreport un yeni sürümlerinde gelmiş bulunmakta fakat bildiğiniz gibi o da ücretli bir component, bizim burada ki amacımız ücretsiz bir dosya ile bu yapıyı kullanabilmemiz.

 

Bunun için öncelikle, delphi programımızı açıyor ve File->New VCL Forms Application Delphi diyoruz ve aşağıda ki adımları uygulamaya başlıyoruz.
1) Formumuza öncelikle 3 tane label, 1 tane button, 1 tane image, 1 tane memo ve 2 tane combobox atıyoruz.


2) Daha sonra object inspector kısmında label'lara resimlerdeki isimleri caption veriyoruz,
comboboxlardan 1 tanesine items kısmından


Oto=0 //Auto
Sayisal=1 //Numeric
SayisalSozel=2 //Alphanumeric
ISO=2 //ISO-8859-1
UTF8=3 //UTF-8 without BOM
UTF8W=4 //UTF-8 with BOM

değerlerini koyuyoruz, bu combobx bizim qrcode içindeki verilerin tipini belirtmemize yardımcı olacaktır, name kısmına ise cbEncoding diyoruz.
3) Diğer combobox'ımıza ise items kısmından


QuietZone1=1
QuietZone2=2
QuietZone3=3
QuietZone4=4
QuietZone5=5
QuietZone6=6
QuietZone7=7
QuietZone8=8
QuietZone9=9
QuietZone10=10

değerlerini koyuyoruz, burada ki amaç ise qrcode oluşurken boşluk payının belirtmemizi sağlamaktır, name kısmına ise cbQuietZone diyoruz.


4) Daha sonra memo'ya name kısmından mmIcerik diyoruz ve project manager kısmından projemize sağ tuş yapıp aşağıda ki işlemleri yapmaya başlıyoruz.

5) Bu işlemleri bitirdikten sonra code sayfamıza gelip implementation kısmına aşağıdaki değeri ekliyoruz.


6) İşlemler bittikten sonra buttonumuza çift tıklayıp kod penceresine aşağıdaki kodları yazıp projemizi derliyoruz.

 

Projeye eklemeniz gereken dosyalar için İndirmeniz gereken dosyalar ve örnek bir proje (Delphi Xe8) ile yazıldı şu indir tuşuna basınız.

 

Gürkan PAYDAŞ | 2018-08-29 11:57:56