OBS/Adminhilfe/Pax Barcode Beispiele

Aus OBS Wiki
Version vom 15. Dezember 2020, 09:33 Uhr von Thiel (Diskussion | Beiträge) (→‎Demo)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Zur Navigation springen Zur Suche springen
Für diese Seite wurde eine Zugriffsbeschränkung eingerichtet. Falls du diese Nachricht siehst, bist du nicht berechtigt, diese Seite einzusehen.

Dies ist eine zugriffsgeschützte Seite.


Admin-Hilfe

OBS-Administration / Installation
kundenspezifische Anpassungen
OBS Protokolle
Shop-Administration

Barcodes

Grundfunktion

function CreateBarcodeImage(cText      : String;                           
                            nHeight    : Integer;
                            nScale     : Double = 0.1;
                            lShowText  : Boolean = False;
                            nTyp       : TSymbology = syEAN;
                            nPixelSize : integer = 2;                   //Pixeldichte. Je Mehr Informationen vorhanden desto höher muss dieser Wert (Data Too Long Error)
                            nSecyLevel : Integer = 4 // 4 = slDefault
                            ): TBitmap;

Typen

  TSymbology =
  (
    syCode11,
    syStandardCode2Of5,
    syInterleaved2Of5,
    syCode2Of5IATA,
    syCode2Of5DataLogic,
    syCode2Of5Industrial,
    syCode3Of9,
    syExtendedCode3Of9,
    syEAN,
    syEAN_Check,
    syGS1_128,
    syCodabar,
    syCode128,
    syDeutschePostLeitcode,
    syDeutschePostIdentcode,
    syCode16K,
    syCode49,
    syCode93,
    syFlattermarken,
    syGS1_DataBarOmni,
    syGS1_DataBarLimited,
    syGS1_DataBarExpanded,
    syTelepenAlpha,
    syUPCA,
    syUPCA_Check,
    syUPCE,
    syUPCE_Check,
    syPostNet,
    syMsiPlessey,
    syFIM,
    syLOGMARS,
    syPharmacodeOneTrack,
    syPZN,
    syPharmacodeTwoTrack,
    syPDF417,
    syPDF417Compact,
    syMaxicode,
    syQRCode,
    syCode128SubsetB,
    syAustraliaPostStandardCustomer,
    syAustraliaPostReplyPaid,
    syAustraliaPostRouting,
    syAustraliaPostRedirection,
    syISBN,
    syRoyalMail4State,
    syDataMatrix,
    syEAN14,
    syVIN,
    syCodaBlockF,
    syNVE18,
    syJapanesePost,
    syKoreaPost,
    syGS1_DataBarStacked,
    syGS1_DataBarOmniStacked,
    syGS1_DataBarExpandedStacked,
    syPLANET,
    syMicroPDF417,
    syUSPSIntelligentMail,
    syPlesseyCode,
    syTelepenNumeric,
    syITF14,
    syDutchPostKIXCode,
    syAztecCode,
    syDAFTCode,
    syDPD,
    syMicroQRCode,
    syHIBC_Code128,
    syHIBC_Code39,
    syHIBC_DataMatrix,
    syHIBC_QRCode,
    syHIBC_PDF417,
    syHIBC_MicroPDF417,
    syHIBC_BlockF,
    syHIBC_AztecCode,
    syDotCode,
    syHanXin,
    syMailmark,
    syAztecRunes,
    syCode32,
    syCompositeEAN,
    syCompositeGS1_128,
    syCompositeGS1_DataBarOmni,
    syCompositeGS1_DataBarLimited,
    syCompositeGS1_DataBarExpanded,
    syCompositeUPCA,
    syCompositeUPCE,
    syCompositeGS1_DataBarStacked,
    syCompositeGS1_DataBarOmniStacked,
    syCompositeGS1_DataBarExpandedStacked,
    syChannelCode,
    syCodeOne,
    syGridMatrix,
    syUPNQR,
    syUltracode,
    syRMQR
  );

Beispiele

    oBitmap :=  CreateBarcodeImage('4260070122811', 20);
    qRep_BildPrint(ez,oBitmap,'TEST', qRep_SAnfang(ez, 'Kastentext')-10, oBitmap.Width, oBitmap.Height, qRep_YPos(EZ,y+11));
    MyFreeAndNil(oBitmap);
    cBuffer := 'BCDCRLF002CRLF2CRLFSCTCRLFPBNKDEFF';               
    
    oBitmap := CreateBarcodeImage(cBuffer, 20, 1, False, syQRCode, 5);    
    qRep_BildPrint(EZ,oBitmap,'',290,100,100,qRep_Ypos(EZ,y-4));
    oBitmap.Free;

Demo

Mit der Demo kann der Barcode getestet werden

BarcodeDemo.png

Datei:Barcode Demo.zip