Delphi Can

Orjinalini görmek için tıklayınız: QR kodu ve barkod entegere etme
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
Merhaba;

Barkod ve qr kodu bir arada olan bir sistem yapmaya çalışıyorum, github'dan (Barkod) indirdiğim Qrcode ve barkod editörü yok.
Bende kedin editörümü yapmaya çalışıyorum qrcode oluşturduğum imege barkod sitemine entegre etmeye çalıştığımda,

dGX88Z.jpg

Görseldeki hatayı alıyorum bu sorunda çözemedim, bu hata neden kaynaklanıyor olabilir?



Qr ve barkod linkleri
QRCode  Barkod
Merhaba,
Hataya bakılırsa; .png dosyası doğru bir şekilde oluşturulamamış. (Dosya header'ı png formatına uygun değil) 
Image oluşturma yönteminizi gözden geçirin. Png formatı şart değilse, bitmap kullanın.
(01-07-2017, Saat: 15:02)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: [ -> ]Merhaba,
Hataya bakılırsa; .png dosyası doğru bir şekilde oluşturulamamış. (Dosya header'ı png formatına uygun değil) 
Image oluşturma yönteminizi gözden geçirin. Png formatı şart değilse, bitmap kullanın.

Resim sorununu çözdüm, fakat github indirdiğim Qrcodeyi bir türlü kendi projeme entegre edemedim, VCL ye sadece Qrcodeyi nasıl entegere edebilirim? çıkamadım işin içinden yardımcı olabilirimsiniz.

procedure TForm2.Button1Click(Sender: TObject);
var
 Bitmap: TBitmap;
 Source: TRect;
 Dest: TRect;
begin
  Bitmap := TBitmap.Create;
   try
     with Bitmap do
     begin
       Width := 160;
       Height := 160;
       Dest := Rect(0, 0, Width, Height);
     end;
     with PaintBox1 do
     begin
       Source := Rect(0, 0, Width, Height);
       Bitmap.Canvas.CopyRect(Dest, PaintBox1.Canvas, Source);
       Bitmap.SaveToFile('C:\Users\Dost\Desktop\'QR.bmp');
     end;
   finally
     Bitmap.Free;
   end;
 end;
end;