qrcode yazdırma

[ALUCARD]

Merhaba arkadaşlar;

veritabanımda bir alanda bazı web adresleri tutuyorum. bunları qrcode ile yazdırmak istiyorum. ama bir türlü yapamadım. yardımcı olursanız sevinirim.

[AliZairov]

Merhaba. Ekteki qr oluşturma örnek işini görür. İncele istersen.

QrCode Delphi.zip

(88.31 KiB) 97 kere indirildi

[ALUCARD]

hocam oluşturulan bu barkodu acces vt ye kaydetmek ve sonrasında fast report ile yazdırmak istiyorum. ancak image1 deki görüntüyü dbye ole nesnesi olarak nasıl kaydetcem yada yol olarak kaydedebiliyorum bunu fast reportta nasıl açabilirim.

[ALUCARD]

Kod: Tümünü seç

ADOTable1.Append;
ADOTable1Karekod.Value:=MemoData.Text;
ADOTable1.Post;
ADOTable1.Edit;
Image1.Picture.SaveToFile(ADOTable1id.AsString+'karekod.bmp');
ADOTable1Resim.Value := ADOTable1id.AsString+'karekod.bmp';
ADOTable1Resim1.LoadFromFile(ADOTable1id.AsString+'karekod.bmp');
ADOTable1.Post;

şeklinde yaptım oldu.