QRCode erstellen
Ab R12547 kann ein verbesserter QRCode erstellt werden.
Folgender Script kann dafür verwendet werden:
Data := SimpleQRFile(Parameter1,Parameter2,Parameter3);
Es können bis zu 3 Parameter verwendet werden.
1. Parameter: Ist die Größe in mm
2. Parameter: Ist Ihr Text in ' ' eingeschlossen
3. Parameter: Optional L M Q H, Standard ist M = ~15% Correction
//Beispiel einfacher Code: begin data := SimpleQRFile(35,'Ihr Text') end. |
//Beispiel EPC-QR-Code / GiroCode: var Code: string; begin CHQRLoad;//u.a. kunde laden CHQRLoadInherited('Ihre IBAN', '', '', '', '', '', '', ''); //CHQRCodeSetup ... brauchen Sie hier nicht Code := 'BCD' + #13#10 + '001' + #13#10 + '2' + #13#10 + 'SCT' + #13#10 + '' + #13#10 + 'Ihr Name' + #13#10 + CHQRIBAN + #13#10 + 'EUR' + CHQRBrutto + #13#10 + '' + #13#10 + CHQRReferenzFormattedISO11649 + #13#10 + 'RE' + CHQRInvoiceNumber + ' vom ' + CHQRInvoiceDate('') + #13#10 + ''; data := SimpleQRFile(35,Code) end. Mehr Informationen zum Girocode finden Sie hier. |
Hier ein Beispiel:

QR Code Link auf diese Seite:
