Yorumları: 123
Konuları: 51
Kayıt Tarihi: 07-11-2016
Rep Puanı: 66
Başlangıç
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,
Görseldeki hatayı alıyorum bu sorunda çözemedim, bu hata neden kaynaklanıyor olabilir?
Qr ve barkod linkleri
QRCode Barkod
Hayat bazen güzel olabiliyor.
Yorumları: 4.224
Konuları: 379
Kayıt Tarihi: 07-07-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 16.975
Üstad
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.
Yorumları: 123
Konuları: 51
Kayıt Tarihi: 07-11-2016
Rep Puanı: 66
Başlangıç
(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;
Hayat bazen güzel olabiliyor.