Implementasi QRCode Save QRCode As Bitmap File

Print Friendly

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

Contoh Program Aplikasi Menyimpan QRCode Ke File Bitmap Dengan Delphi. Sebagai lanjutan encoding QRCode, silahkan download file ini sebagai contoh penggunaan Zint QRCode Library Wrapper for Delphi untuk menyimpan QRCode ke file Bitmap.

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 :)

Comments

comments

Powered by Facebook Comments