Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
QR kodu ve barkod entegere etme
#1
Merhaba;

Barkod ve qr kodu bir arada olan bir sistem yapmaya çalışıyorum, github'dan (Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol) 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,

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

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



Qr ve barkod linkleri
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol  Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Hayat bazen güzel olabiliyor.
Cevapla
#2
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.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#3
(01-07-2017, Saat: 15:02)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba,
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 Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol 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;
Hayat bazen güzel olabiliyor.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  WiFi Ağlarını Tespit Etme dilo 1 144 06-04-2018, Saat: 10:17
Son Yorum: SimaWB
  Çalışma anında program kodu yazıp çalıştırmak boreas 9 524 30-10-2017, Saat: 11:17
Son Yorum: engerex
  barkod hido 8 565 22-06-2017, Saat: 12:07
Son Yorum: dilo
  Fastreport aktif etme serhat 4 369 20-06-2017, Saat: 16:11
Son Yorum: CaglarCoskun
  Delphi 7 ile yazdım program barkod otomosiyonu hattası admin02 6 630 27-03-2017, Saat: 15:50
Son Yorum: barisatalay



Konuyu Okuyanlar: 1 Ziyaretçi