Save And Load QRCode To/From File

Mohon maaf sebelumnya. Saya baru bisa share tentang menyimpan QRCode ke file (bitmap). Untuk pembacaan kembali QRCode dari file bitmap, seperti biasa, Anda dapat menggunakan

TBitmap.LoadFromFile(FileName);

Untuk dapat mengimplementasikan contoh di sini, Anda perlu mendownload QRCode Library For Delphi. Yang saya gunakan di sini adalah Zint QRCode Library dari http://www.theunknownones.net/, dan cara instalasi komponen QRCode Zint ini serta download QRCode Library-nya dapat Anda ikuti pada post tentang Contoh Penggunaan Free QRCode Dengan Delphi.

Oke, saya anggap Anda sudah membaca posting di atas, dan kita lanjutkan dengan kode untuk menyimpan QRCode ke file bitmap. Kodenya pendek saja:

procedure TForm1.Button3Click(Sender: TObject);
var
  b: TBitmap;
begin
  if not SavePictureDialog1.Execute then
    exit;
  b := TBitmap.Create;
  ZintBarcodeComponent1.Barcode.GetBarcode( b );
  try
    b.SaveToFile(SavePictureDialog1.FileName);
    ShowMessage('QRCode saved.');
  finally
    b.Free;
  end;
end;

Jangan lupa, tambahkan lebih dulu sebuah TSavePictureDialog ke form. Tipe class TBitmap yang digunakan sudah dimodifikasi, dan sudah saya sertakan dalam package komponent Zint QRCode Library, jadi Anda tidak perlu repot.

Download Contoh Program Aplikasi Menyimpan QRCode Ke File Bitmap Dengan Delphi

Download Contoh Program Aplikasi Menyimpan QRCode Ke File Bitmap Dengan Delphi

Untuk membaca kembali file bitmap ini dan men-dekode untuk mendapatkan kode yang tersimpan, Insya Allah saya akan posting nanti. Saya masih menguji komponennya. Masih ada error dan bug yang perlu di-fix-kan dulu.

Salam hangat

Related Topic

Membuat Smooth Slideshow Dengan DelphiContoh 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:

• qrcode menggunakan delphi
• zint qrcode delphi
• contoh membuat kode barcode di delphi
• tutorial menyimpan QRCode menjadi BITMAP dengan delphi 7
• source code program aplikasi menyimpan qrcode ke file bitmap dengan delphi
• menyimpan qr code pada database
• menampilkan record mysql di combobox delphi
• menampilkan field database pada memo – borland delphi
• contoh program save ke database pada delphi
• program pembacaan qrcode dengan delphi untuk android

Comments

comments

Powered by Facebook Comments