Search the Community

Here a first draft for creating barcodes using the Zint.dll (v2.15.09). Mor information about Zint can be found here: https://zint.org.uk Zint, libzint and Zint Barcode Studio are Copyright © 2022 Robin Stuart. All historical versions are distributed under the GNU General Public License version 3 or later. Version 2.5 (and later) is released under a dual license: the encoding library is released under the BSD license whereas the GUI, Zint Barcode Studio, is released under the GNU General Public License version 3 or later. The code became too long to post here! -> Download from my OneDrive: Zint Zint.au3 ;Coded by UEZ ;v0.70 build 2026-07-29 beta ;IMPORTANT: You are not allowed to sell this code or just parts of it in a commercial project or modify it and distribute it with a different name! ; Distributing copies of the program in compiled format (exe) must be free of any fee! #include-once #include <GDIPlus.au3> #include "ZintDll.au3" Global $g__ZintDLL = @AutoItX64 ? (@ScriptDir & "\Zint64.dll") : (@ScriptDir & "\Zint.dll") #Region Constances ; === Barcode Symbologies === Global Const $BARCODE_CODE11 = 1 ; Code 11 Global Const $BARCODE_C25STANDARD = 2 ; 2 of 5 Standard (Matrix) Global Const $BARCODE_C25MATRIX = 2 ; Legacy Global Const $BARCODE_C25INTER = 3 ; 2 of 5 Interleaved Global Const $BARCODE_C25IATA = 4 ; 2 of 5 IATA Global Const $BARCODE_C25LOGIC = 6 ; 2 of 5 Data Logic Global Const $BARCODE_C25IND = 7 ; 2 of 5 Industrial Global Const $BARCODE_CODE39 = 8 ; Code 39 Global Const $BARCODE_EXCODE39 = 9 ; Extended Code 39 Global Const $BARCODE_EAN8 = 10 ; EAN-8 (GTIN-8) Global Const $BARCODE_EAN_2ADDON = 11 ; EAN/UPC 2-digit add-on Global Const $BARCODE_EAN_5ADDON = 12 ; EAN/UPC 5-digit add-on Global Const $BARCODE_EANX = 13 ; Legacy Global Const $BARCODE_EANX_CHK = 14 ; Legacy Global Const $BARCODE_EAN13 = 15 ; EAN-13 (GTIN-13) Global Const $BARCODE_GS1_128 = 16 ; GS1-128 Global Const $BARCODE_EAN128 = 16 ; Legacy Global Const $BARCODE_CODABAR = 18 ; Codabar Global Const $BARCODE_CODE128 = 20 ; Code 128 Global Const $BARCODE_DPLEIT = 21 ; Deutsche Post Leitcode Global Const $BARCODE_DPIDENT = 22 ; Deutsche Post Identcode Global Const $BARCODE_CODE16K = 23 ; Code 16k Global Const $BARCODE_CODE49 = 24 ; Code 49 Global Const $BARCODE_CODE93 = 25 ; Code 93 Global Const $BARCODE_FLAT = 28 ; Flattermarken Global Const $BARCODE_DBAR_OMN = 29 ; GS1 DataBar Omnidirectional Global Const $BARCODE_RSS14 = 29 ; Legacy Global Const $BARCODE_DBAR_LTD = 30 ; GS1 DataBar Limited Global Const $BARCODE_RSS_LTD = 30 ; Legacy Global Const $BARCODE_DBAR_EXP = 31 ; GS1 DataBar Expanded Global Const $BARCODE_RSS_EXP = 31 ; Legacy Global Const $BARCODE_TELEPEN = 32 ; Telepen Alpha Global Const $BARCODE_UPCA = 34 ; UPC-A Global Const $BARCODE_UPCA_CHK = 35 ; UPC-A including check digit Global Const $BARCODE_UPCE = 37 ; UPC-E Global Const $BARCODE_UPCE_CHK = 38 ; UPC-E including check digit Global Const $BARCODE_POSTNET = 40 ; USPS POSTNET Global Const $BARCODE_MSI_PLESSEY = 47 ; MSI Plessey Global Const $BARCODE_FIM = 49 ; Facing Identification Mark Global Const $BARCODE_LOGMARS = 50 ; LOGMARS Global Const $BARCODE_PHARMA = 51 ; Pharmacode One-Track Global Const $BARCODE_PZN = 52 ; Pharmazentralnummer Global Const $BARCODE_PHARMA_TWO = 53 ; Pharmacode Two-Track Global Const $BARCODE_CEPNET = 54 ; Brazilian CEPNet Postal Code Global Const $BARCODE_PDF417 = 55 ; PDF417 Global Const $BARCODE_PDF417COMP = 56 ; Compact PDF417 Global Const $BARCODE_PDF417TRUNC = 56 ; Legacy Global Const $BARCODE_MAXICODE = 57 ; MaxiCode Global Const $BARCODE_QRCODE = 58 ; QR Code Global Const $BARCODE_CODE128AB = 60 ; Code 128 (Suppress Code Set C) Global Const $BARCODE_CODE128B = 60 ; Legacy Global Const $BARCODE_AUSPOST = 63 ; Australia Post Standard Customer Global Const $BARCODE_AUSREPLY = 66 ; Australia Post Reply Paid Global Const $BARCODE_AUSROUTE = 67 ; Australia Post Routing Global Const $BARCODE_AUSREDIRECT = 68 ; Australia Post Redirection Global Const $BARCODE_ISBNX = 69 ; ISBN Global Const $BARCODE_RM4SCC = 70 ; Royal Mail 4-State Global Const $BARCODE_DATAMATRIX = 71 ; Data Matrix (ECC200) Global Const $BARCODE_EAN14 = 72 ; EAN-14 Global Const $BARCODE_VIN = 73 ; Vehicle Identification Number Global Const $BARCODE_CODABLOCKF = 74 ; Codablock-F Global Const $BARCODE_NVE18 = 75 ; NVE-18 (SSCC-18) Global Const $BARCODE_JAPANPOST = 76 ; Japanese Postal Code Global Const $BARCODE_KOREAPOST = 77 ; Korea Post Global Const $BARCODE_DBAR_STK = 79 ; GS1 DataBar Stacked Global Const $BARCODE_RSS14STACK = 79 ; Legacy Global Const $BARCODE_DBAR_OMNSTK = 80 ; GS1 DataBar Stacked Omnidirectional Global Const $BARCODE_RSS14STACK_OMNI = 80 ; Legacy Global Const $BARCODE_DBAR_EXPSTK = 81 ; GS1 DataBar Expanded Stacked Global Const $BARCODE_RSS_EXPSTACK = 81 ; Legacy Global Const $BARCODE_PLANET = 82 ; USPS PLANET Global Const $BARCODE_MICROPDF417 = 84 ; MicroPDF417 Global Const $BARCODE_USPS_IMAIL = 85 ; USPS Intelligent Mail Global Const $BARCODE_ONECODE = 85 ; Legacy Global Const $BARCODE_PLESSEY = 86 ; UK Plessey Global Const $BARCODE_TELEPEN_NUM = 87 ; Telepen Numeric Global Const $BARCODE_ITF14 = 89 ; ITF-14 Global Const $BARCODE_KIX = 90 ; Dutch Post KIX Global Const $BARCODE_AZTEC = 92 ; Aztec Global Const $BARCODE_DAFT = 93 ; DAFT Global Const $BARCODE_DPD = 96 ; DPD Global Const $BARCODE_MICROQR = 97 ; Micro QR Global Const $BARCODE_HIBC_128 = 98 ; HIBC Code 128 Global Const $BARCODE_HIBC_39 = 99 ; HIBC Code 39 Global Const $BARCODE_HIBC_DM = 102 ; HIBC Data Matrix Global Const $BARCODE_HIBC_QR = 104 ; HIBC QR Global Const $BARCODE_HIBC_PDF = 106 ; HIBC PDF417 Global Const $BARCODE_HIBC_MICPDF = 108 ; HIBC MicroPDF417 Global Const $BARCODE_HIBC_BLOCKF = 110 ; HIBC Codablock-F Global Const $BARCODE_HIBC_AZTEC = 112 ; HIBC Aztec Global Const $BARCODE_DOTCODE = 115 ; DotCode Global Const $BARCODE_HANXIN = 116 ; Han Xin Global Const $BARCODE_MAILMARK_2D = 119 ; Royal Mail 2D Mailmark Global Const $BARCODE_UPU_S10 = 120 ; UPU S10 Global Const $BARCODE_MAILMARK_4S = 121 ; Royal Mail 4-State Mailmark Global Const $BARCODE_MAILMARK = 121 ; Legacy Global Const $BARCODE_AZRUNE = 128 ; Aztec Runes Global Const $BARCODE_CODE32 = 129 ; Code 32 Global Const $BARCODE_EANX_CC = 130 ; Legacy Global Const $BARCODE_GS1_128_CC = 131 ; GS1-128 Composite Global Const $BARCODE_EAN128_CC = 131 ; Legacy Global Const $BARCODE_DBAR_OMN_CC = 132 ; DataBar Omnidirectional Composite Global Const $BARCODE_RSS14_CC = 132 ; Legacy Global Const $BARCODE_DBAR_LTD_CC = 133 ; DataBar Limited Composite Global Const $BARCODE_RSS_LTD_CC = 133 ; Legacy Global Const $BARCODE_DBAR_EXP_CC = 134 ; DataBar Expanded Composite Global Const $BARCODE_RSS_EXP_CC = 134 ; Legacy Global Const $BARCODE_UPCA_CC = 135 ; UPC-A Composite Global Const $BARCODE_UPCE_CC = 136 ; UPC-E Composite Global Const $BARCODE_DBAR_STK_CC = 137 ; DataBar Stacked Composite Global Const $BARCODE_RSS14STACK_CC = 137 ; Legacy Global Const $BARCODE_DBAR_OMNSTK_CC = 138 ; DataBar Stacked Omnidirectional Composite Global Const $BARCODE_RSS14_OMNI_CC = 138 ; Legacy Global Const $BARCODE_DBAR_EXPSTK_CC = 139 ; DataBar Expanded Stacked Composite Global Const $BARCODE_RSS_EXPSTACK_CC = 139 ; Legacy Global Const $BARCODE_CHANNEL = 140 ; Channel Code Global Const $BARCODE_CODEONE = 141 ; Code One Global Const $BARCODE_GRIDMATRIX = 142 ; Grid Matrix Global Const $BARCODE_UPNQR = 143 ; UPNQR Global Const $BARCODE_ULTRA = 144 ; Ultracode Global Const $BARCODE_RMQR = 145 ; Rectangular Micro QR Global Const $BARCODE_BC412 = 146 ; IBM BC412 Global Const $BARCODE_DXFILMEDGE = 147 ; DX Film Edge Global Const $BARCODE_EAN8_CC = 148 ; EAN-8 Composite Global Const $BARCODE_EAN13_CC = 149 ; EAN-13 Composite Global Const $BARCODE_LAST = 149 ; Max marker ; === Output options === Global Const $BARCODE_BIND_TOP = 0x00001 ; Bind top Global Const $BARCODE_BIND = 0x00002 ; Bind bottom Global Const $BARCODE_BOX = 0x00004 ; Box around symbol Global Const $BARCODE_STDOUT = 0x00008 ; Output to stdout Global Const $READER_INIT = 0x00010 ; Reader Initialisation Global Const $SMALL_TEXT = 0x00020 ; Small human readable text Global Const $BOLD_TEXT = 0x00040 ; Bold human readable text Global Const $CMYK_COLOUR = 0x00080 ; Use CMYK in EPS Global Const $BARCODE_DOTTY_MODE = 0x00100 ; Dotty mode Global Const $GS1_GS_SEPARATOR = 0x00200 ; Use GS as separator Global Const $OUT_BUFFER_INTERMEDIATE = 0x00400 ; Return intermediate data Global Const $BARCODE_QUIET_ZONES = 0x00800 ; Force quiet zones Global Const $BARCODE_NO_QUIET_ZONES = 0x01000 ; Suppress quiet zones Global Const $COMPLIANT_HEIGHT = 0x02000 ; Compliant height Global Const $EANUPC_GUARD_WHITESPACE = 0x04000 ; Guard whitespace Global Const $EMBED_VECTOR_FONT = 0x08000 ; Embed vector font Global Const $BARCODE_MEMORY_FILE = 0x10000 ; Output to memory Global Const $BARCODE_RAW_TEXT = 0x20000 ; Output raw text ; === Input modes === Global Const $DATA_MODE = 0 ; Binary input Global Const $UNICODE_MODE = 1 ; Unicode input Global Const $GS1_MODE = 2 ; GS1 input Global Const $ESCAPE_MODE = 0x0008 ; Escape sequences Global Const $GS1PARENS_MODE = 0x0010 ; GS1 parentheses Global Const $GS1NOCHECK_MODE = 0x0020 ; Skip GS1 checks Global Const $HEIGHTPERROW_MODE = 0x0040 ; Height per row Global Const $FAST_MODE = 0x0080 ; Fast mode Global Const $EXTRA_ESCAPE_MODE = 0x0100 ; Extra escape Global Const $GS1SYNTAXENGINE_MODE = 0x0200 ; GS1 syntax engine ; === Data Matrix options === Global Const $DM_SQUARE = 100 ; Square only Global Const $DM_DMRE = 101 ; DMRE only Global Const $DM_ISO_144 = 128 ; ISO 144 compliance ; === QR/Han Xin/Grid Matrix options === Global Const $ZINT_FULL_MULTIBYTE = 200 ; Full multibyte ; === Ultracode options === Global Const $ULTRA_COMPRESSION = 128 ; Compression mode ; === Warnings & Errors === Global Const $ZINT_WARN_HRT_TRUNCATED = 1 ; HRT truncated Global Const $ZINT_WARN_INVALID_OPTION = 2 ; Invalid option Global Const $ZINT_WARN_USES_ECI = 3 ; Uses ECI Global Const $ZINT_WARN_NONCOMPLIANT = 4 ; Noncompliant symbol Global Const $ZINT_ERROR = 5 ; General error Global Const $ZINT_ERROR_TOO_LONG = 5 ; Data too long Global Const $ZINT_ERROR_INVALID_DATA = 6 ; Invalid data Global Const $ZINT_ERROR_INVALID_CHECK = 7 ; Invalid check digit Global Const $ZINT_ERROR_INVALID_OPTION = 8 ; Invalid option Global Const $ZINT_ERROR_ENCODING_PROBLEM = 9 ; Encoding problem Global Const $ZINT_ERROR_FILE_ACCESS = 10 ; File access error Global Const $ZINT_ERROR_MEMORY = 11 ; Memory error Global Const $ZINT_ERROR_FILE_WRITE = 12 ; File write error Global Const $ZINT_ERROR_USES_ECI = 13 ; Uses ECI Global Const $ZINT_ERROR_NONCOMPLIANT = 14 ; Noncompliant Global Const $ZINT_ERROR_HRT_TRUNCATED = 15 ; HRT truncated ; === Warning levels === Global Const $WARN_DEFAULT = 0 ; Default warnings Global Const $WARN_FAIL_ALL = 2 ; Treat all warnings as errors ; === Capabilities === Global Const $ZINT_CAP_HRT = 0x0001 ; Has HRT Global Const $ZINT_CAP_STACKABLE = 0x0002 ; Stackable Global Const $ZINT_CAP_EANUPC = 0x0004 ; EAN/UPC Global Const $ZINT_CAP_EXTENDABLE = 0x0004 ; Extendable (legacy) Global Const $ZINT_CAP_COMPOSITE = 0x0008 ; Composite Global Const $ZINT_CAP_ECI = 0x0010 ; ECI capable Global Const $ZINT_CAP_GS1 = 0x0020 ; GS1 capable Global Const $ZINT_CAP_DOTTY = 0x0040 ; Dotty capable Global Const $ZINT_CAP_QUIET_ZONES = 0x0080 ; Quiet zones Global Const $ZINT_CAP_FIXED_RATIO = 0x0100 ; Fixed ratio Global Const $ZINT_CAP_READER_INIT = 0x0200 ; Reader Init Global Const $ZINT_CAP_FULL_MULTIBYTE = 0x0400 ; Full multibyte Global Const $ZINT_CAP_MASK = 0x0800 ; Masking Global Const $ZINT_CAP_STRUCTAPP = 0x1000 ; Structured Append Global Const $ZINT_CAP_COMPLIANT_HEIGHT = 0x2000 ; Compliant height Global Const $ZINT_CAP_BINDABLE = 0x4000 ; Bindable ; === Debug flags === Global Const $ZINT_DEBUG_PRINT = 1 ; Print debug info to stdout Global Const $ZINT_DEBUG_TEST = 2 ; Test mode ; === Source encodings for the Encode functions (see $iEncoding parameter) === Global Const $ZINT_SRC_ANSI = 1 ; Convert AutoIt string to ANSI bytes (use with $DATA_MODE) Global Const $ZINT_SRC_UTF8 = 4 ; Convert AutoIt string to UTF-8 bytes (use with $UNICODE_MODE) - default ; === Limits === Global Const $ZINT_MAX_DATA_LEN = 17400 ; Max data length Global Const $ZINT_MAX_SEG_COUNT = 256 ; Max segment count #EndRegion #Region Structs ; Vector elements Global Const $tag_zint_vector_rect = "struct;" & _ "float x;" & _ ; Top left "float y;" & _ "float height;" & _ "float width;" & _ "long colour;" & _ ; -1 foreground, 1-8 = Cyan, Blue, Magenta, Red, Yellow, Green, Black, White "ptr next;" & _ ; Pointer to next rectangle "endstruct" Global Const $tag_zint_vector_hexagon = "struct;" & _ "float x;" & _ ; Centre x "float y;" & _ ; Centre y "float diameter;" & _ ; Short diameter (inscribed circle) "long rotation;" & _ ; 0, 90, 180, 270 (0 = apex at top) "ptr next;" & _ ; Pointer to next hexagon "endstruct" Global Const $tag_zint_vector_string = "struct;" & _ "float x;" & _ ; Relative to halign "float y;" & _ ; Relative to baseline "float fsize;" & _ ; Font size "float width;" & _ ; Rendered width estimate "long length;" & _ ; Number of characters (bytes) "long rotation;" & _ ; 0, 90, 180, 270 "long halign;" & _ ; 0 = centre, 1 = left, 2 = right "ptr text;" & _ ; UTF-8, NUL-terminated "ptr next;" & _ ; Pointer to next string "endstruct" Global Const $tag_zint_vector_circle = "struct;" & _ "float x;" & _ ; Centre x "float y;" & _ ; Centre y "float diameter;" & _ ; Circle diameter (excludes width) "float width;" & _ ; Perimeter width, 0 = fill "long colour;" & _ ; 0 = foreground colour, else background "ptr next;" & _ ; Pointer to next circle "endstruct" Global Const $tag_zint_vector = "struct;" & _ "float width;" & _ ; Overall barcode width "float height;" & _ ; Overall barcode height "ptr rectangles;" & _ ; Pointer to first rectangle "ptr hexagons;" & _ ; Pointer to first hexagon "ptr strings;" & _ ; Pointer to first string "ptr circles;" & _ ; Pointer to first circle "endstruct" ; Structured Append info Global Const $tag_zint_structapp = "long index;" & _ ; Position in sequence (1-based) "long count;" & _ ; Number of symbols in sequence "char id[32];" ; Optional ID, ASCII, NUL-terminated ; Segment info Global Const $tag_zint_seg = "struct;" & _ "ptr source;" & _ ; Data pointer "long length;" & _ ; Data length (0 = NUL-terminated) "long eci;" & _ ; Extended Channel Interpretation "endstruct" ; Main symbol structure ; NOTE: this layout matches the Zint 2.15.0.9 development snapshot (errtxt[160], raw_segs present, ; encoded_data still ahead of errtxt). Zint 2.15.0 release has errtxt[100] and no raw_segs, ; Zint 2.16.0 moved encoded_data/row_height to the very end and renamed raw_segs to content_segs. ; Call ZBarcode_CheckLayout() once after ZBarcode_Create() to verify the DLL matches. Global Const $tag_zint_symbol = "struct;" & _ "long symbology;" & _ ; Symbol type "float height;" & _ ; Barcode height "float scale;" & _ ; Scale factor "long whitespace_width;" & _ ; Horizontal whitespace "long whitespace_height;" & _ ; Vertical whitespace "long border_width;" & _ ; Border width "long output_options;" & _ ; Output options "char fgcolour[16];" & _ ; Foreground colour string "char bgcolour[16];" & _ ; Background colour string "ptr fgcolor;" & _ ; Pointer to fgcolour "ptr bgcolor;" & _ ; Pointer to bgcolour "char outfile[256];" & _ ; Output filename "char primary[128];" & _ ; Primary message data "long option_1;" & _ ; Symbol-specific option "long option_2;" & _ "long option_3;" & _ "long show_hrt;" & _ ; Show (1) / hide (0) human readable text "long input_mode;" & _ ; Input encoding "long eci;" & _ ; Extended Channel Interpretation "float dpmm;" & _ ; Resolution in dots/mm "float dot_size;" & _ ; Dot size (dotty mode) "float text_gap;" & _ ; Gap between barcode and text "float guard_descent;" & _ ; EAN/UPC guard bar descent $tag_zint_structapp & _ ; Structured append info "long warn_level;" & _ ; Warning behaviour "long debug;" & _ ; Debug flags "byte text[256];" & _ ; Human-readable text (output, UTF-8) "long text_length;" & _ ; Length of text (output) "long rows;" & _ ; Number of rows (output) "long width;" & _ ; Symbol width (output) "byte encoded_data[28800];" & _ ; Encoded data (flattened 200x144) "float row_height[200];" & _ ; Row heights "char errtxt[160];" & _ ; Error text (output) "ptr bitmap;" & _ ; Bitmap pointer (output) "long bitmap_width;" & _ ; Bitmap width "long bitmap_height;" & _ ; Bitmap height "ptr alphamap;" & _ ; Alpha channel pointer "ptr vector;" & _ ; Vector header pointer "ptr memfile;" & _ ; In-memory file buffer "long memfile_size;" & _ ; Buffer length "ptr raw_segs;" & _ ; Raw segments pointer "long raw_seg_count;" & _ ; Number of raw segs "endstruct" #EndRegion #Region Internal helpers ; Convert an AutoIt string (or Binary) into a NUL-terminated byte buffer for Zint. ; Returns the payload length in BYTES (without the terminator). Func __Zint_MakeSource(Const $vInput, ByRef $tBuffer, $iEncoding = $ZINT_SRC_UTF8) Local $bData = IsBinary($vInput) ? Binary($vInput) : StringToBinary($vInput, $iEncoding) Local $iLen = BinaryLen($bData) $tBuffer = DllStructCreate("byte data[" & $iLen + 1 & "]") If @error Then Return SetError(1, 0, 0) If $iLen Then DllStructSetData($tBuffer, "data", $bData) DllStructSetData($tBuffer, "data", 0, $iLen + 1) ; NUL terminator Return $iLen EndFunc ; Read a NUL-terminated / length-limited UTF-8 string from a pointer Func __Zint_UTF8PtrToStr($pText, $iLen = 0) If Not $pText Then Return "" If $iLen < 1 Then Local $a = DllCall("msvcrt.dll", "uint_ptr:cdecl", "strlen", "ptr", $pText) If @error Then Return "" $iLen = $a[0] EndIf If $iLen < 1 Then Return "" Local $tStr = DllStructCreate("byte data[" & $iLen & "]", $pText) If @error Then Return "" Return BinaryToString(DllStructGetData($tStr, "data"), $ZINT_SRC_UTF8) EndFunc ; Only 0/90/180/270 are accepted by Zint Func __Zint_NormAngle($iAngle) Local $i = Mod(Round($iAngle / 90) * 90, 360) Return $i < 0 ? $i + 360 : $i EndFunc ; Map a zint_vector colour index to an ARGB value Func __Zint_VecColour($iColour, $iFgARGB, $iBgARGB) Switch $iColour Case -1 Return $iFgARGB Case 1 Return 0xFF00FFFF ; Cyan Case 2 Return 0xFF0000FF ; Blue Case 3 Return 0xFFFF00FF ; Magenta Case 4 Return 0xFFFF0000 ; Red Case 5 Return 0xFFFFFF00 ; Yellow Case 6 Return 0xFF00FF00 ; Green Case 7 Return 0xFF000000 ; Black Case 8 Return 0xFFFFFFFF ; White Case Else Return $iBgARGB EndSwitch EndFunc #EndRegion #Region Functions ; Create and initialize a symbol structure Func ZBarcode_Create() If Not FileExists($g__ZintDLL) Then If @AutoItX64 Then _zint64dll(True) Else _zintdll(True) EndIf EndIf Local $aCall = DllCall($g__ZintDLL, "ptr:cdecl", "ZBarcode_Create") If @error Then Return SetError(1, 0, 0) If $aCall[0] = 0 Then Return SetError(2, 0, 0) Return $aCall[0] EndFunc ; Free any output buffers that may have been created and initialize output fields Func ZBarcode_Clear($pSymbol) If IsPtr($pSymbol) And $pSymbol <> 0 Then DllCall($g__ZintDLL, "none:cdecl", "ZBarcode_Clear", "ptr", $pSymbol) Return 1 EndIf Return SetError(1, 0, 0) EndFunc ; Free any output buffers that may have been created and reset all fields to defaults Func ZBarcode_Reset($pSymbol) If IsPtr($pSymbol) And $pSymbol <> 0 Then DllCall($g__ZintDLL, "none:cdecl", "ZBarcode_Reset", "ptr", $pSymbol) Return 1 EndIf Return SetError(1, 0, 0) EndFunc ; Free a symbol structure, including any output buffers Func ZBarcode_Delete($pSymbol) If IsPtr($pSymbol) And $pSymbol <> 0 Then DllCall($g__ZintDLL, "none:cdecl", "ZBarcode_Delete", "ptr", $pSymbol) Return 1 EndIf Return SetError(1, 0, 0) EndFunc ; Verify that $tag_zint_symbol matches the loaded DLL. Returns 1 if the layout looks sane. ; A mismatch means the DLL was built from a different Zint revision than this UDF describes. Func ZBarcode_CheckLayout() Local $pSymbol = ZBarcode_Create() If @error Then Return SetError(1, 0, 0) Local $t = DllStructCreate($tag_zint_symbol, $pSymbol) ; Freshly created symbols always carry these defaults Local $bHead = ($t.symbology = $BARCODE_CODE128) And ($t.scale = 1) And ($t.show_hrt = 1) And _ (StringLeft($t.outfile, 4) = "out.") And ($t.guard_descent = 5) ; Encode a tiny symbol to validate everything behind errtxt (bitmap fields) $t.symbology = $BARCODE_CODE128 ZBarcode_Encode_and_Buffer($pSymbol, "1") Local $bTail = ($t.bitmap <> 0) And ($t.bitmap_width > 0) And ($t.bitmap_width < 100000) And _ ($t.bitmap_height > 0) And ($t.bitmap_height < 100000) ZBarcode_Delete($pSymbol) If Not $bHead Then Return SetError(2, 0, 0) ; front of the struct is wrong If Not $bTail Then Return SetError(3, 0, 0) ; errtxt size / trailing fields are wrong Return 1 EndFunc ; =================================================================== ; Encoding ; =================================================================== ; Encode a barcode. $vInput may be a string or a Binary value. Func ZBarcode_Encode($pSymbol, $vInput, $iEncoding = $ZINT_SRC_UTF8) Local $tInput, $iLength = __Zint_MakeSource($vInput, $tInput, $iEncoding) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Encode", "ptr", $pSymbol, "struct*", $tInput, "long", $iLength) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc ; Encode a barcode with multiple ECI segments Func ZBarcode_Encode_Segs($pSymbol, $pSegs, $iSegCount) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Encode_Segs", "ptr", $pSymbol, "ptr", $pSegs, "long", $iSegCount) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc ; Encode a barcode using input data from file Func ZBarcode_Encode_File($pSymbol, $sFilename) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Encode_File", "ptr", $pSymbol, "str", $sFilename) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc ; =================================================================== ; Output to file ; =================================================================== ; Output a previously encoded symbol to file Func ZBarcode_Print($pSymbol, $iRotate = 0) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Print", "ptr", $pSymbol, "long", __Zint_NormAngle($iRotate)) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc ; Encode and output a symbol to file Func ZBarcode_Encode_and_Print($pSymbol, $vInput, $iRotate = 0, $iEncoding = $ZINT_SRC_UTF8) Local $tInput, $iLength = __Zint_MakeSource($vInput, $tInput, $iEncoding) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Encode_and_Print", "ptr", $pSymbol, "struct*", $tInput, "long", $iLength, "long", __Zint_NormAngle($iRotate)) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc ; Encode a symbol with multiple ECI segments and output to file Func ZBarcode_Encode_Segs_and_Print($pSymbol, $pSegs, $iSegCount, $iRotate = 0) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Encode_Segs_and_Print", "ptr", $pSymbol, "ptr", $pSegs, "long", $iSegCount, "long", __Zint_NormAngle($iRotate)) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc ; Encode a symbol using input data from file and output to file Func ZBarcode_Encode_File_and_Print($pSymbol, $sFilename, $iRotate = 0) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Encode_File_and_Print", "ptr", $pSymbol, "str", $sFilename, "long", __Zint_NormAngle($iRotate)) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc ; =================================================================== ; Output to memory (raster/vector) ; =================================================================== Func ZBarcode_Buffer($pSymbol, $iRotate = 0) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Buffer", "ptr", $pSymbol, "long", __Zint_NormAngle($iRotate)) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc Func ZBarcode_Encode_and_Buffer($pSymbol, $vInput, $iRotate = 0, $iEncoding = $ZINT_SRC_UTF8) Local $tInput, $iLength = __Zint_MakeSource($vInput, $tInput, $iEncoding) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Encode_and_Buffer", "ptr", $pSymbol, "struct*", $tInput, "long", $iLength, "long", __Zint_NormAngle($iRotate)) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc Func ZBarcode_Encode_Segs_and_Buffer($pSymbol, $pSegs, $iSegCount, $iRotate = 0) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Encode_Segs_and_Buffer", "ptr", $pSymbol, "ptr", $pSegs, "long", $iSegCount, "long", __Zint_NormAngle($iRotate)) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc Func ZBarcode_Encode_File_and_Buffer($pSymbol, $sFilename, $iRotate = 0) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Encode_File_and_Buffer", "ptr", $pSymbol, "str", $sFilename, "long", __Zint_NormAngle($iRotate)) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc Func ZBarcode_Buffer_Vector($pSymbol, $iRotate = 0) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Buffer_Vector", "ptr", $pSymbol, "long", __Zint_NormAngle($iRotate)) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc Func ZBarcode_Encode_and_Buffer_Vector($pSymbol, $vInput, $iRotate = 0, $iEncoding = $ZINT_SRC_UTF8) Local $tInput, $iLength = __Zint_MakeSource($vInput, $tInput, $iEncoding) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Encode_and_Buffer_Vector", "ptr", $pSymbol, "struct*", $tInput, "long", $iLength, "long", __Zint_NormAngle($iRotate)) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc Func ZBarcode_Encode_Segs_and_Buffer_Vector($pSymbol, $pSegs, $iSegCount, $iRotate = 0) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Encode_Segs_and_Buffer_Vector", "ptr", $pSymbol, "ptr", $pSegs, "long", $iSegCount, "long", __Zint_NormAngle($iRotate)) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc Func ZBarcode_Encode_File_and_Buffer_Vector($pSymbol, $sFilename, $iRotate = 0) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Encode_File_and_Buffer_Vector", "ptr", $pSymbol, "str", $sFilename, "long", __Zint_NormAngle($iRotate)) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return 1 EndFunc ; =================================================================== ; Info & Validation ; =================================================================== ; Is symbol_id a recognized symbology? Func ZBarcode_ValidID($iSymbolID) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_ValidID", "long", $iSymbolID) If @error Then Return SetError(1, 0, 0) Return $aCall[0] EndFunc ; Copy BARCODE_XXX name of symbol_id into name buffer Func ZBarcode_BarcodeName($iSymbolID) Local $tName = DllStructCreate("char name[32]") Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_BarcodeName", "long", $iSymbolID, "struct*", $tName) If @error Then Return SetError(-1, 0, "") If $aCall[0] Then Return SetError($aCall[0], 0, "") Return DllStructGetData($tName, "name") EndFunc ; Return the capability flags for symbology symbol_id that match cap_flag Func ZBarcode_Cap($iSymbolID, $iCapFlag) Local $aCall = DllCall($g__ZintDLL, "uint:cdecl", "ZBarcode_Cap", "long", $iSymbolID, "uint", $iCapFlag) If @error Then Return SetError(1, 0, 0) Return $aCall[0] EndFunc ; =================================================================== ; X-dimension & Scaling ; =================================================================== Func ZBarcode_Default_Xdim($iSymbolID) Local $aCall = DllCall($g__ZintDLL, "float:cdecl", "ZBarcode_Default_Xdim", "long", $iSymbolID) If @error Then Return SetError(1, 0, 0) Return $aCall[0] EndFunc Func ZBarcode_Scale_From_XdimDp($iSymbolID, $fXDimMM, $fDpmm, $sFiletype = "") Local $aCall = DllCall($g__ZintDLL, "float:cdecl", "ZBarcode_Scale_From_XdimDp", "long", $iSymbolID, "float", $fXDimMM, "float", $fDpmm, "str", $sFiletype) If @error Then Return SetError(1, 0, 0) Return $aCall[0] EndFunc Func ZBarcode_XdimDp_From_Scale($iSymbolID, $fScale, $fXDimOrDpmm, $sFiletype = "") Local $aCall = DllCall($g__ZintDLL, "float:cdecl", "ZBarcode_XdimDp_From_Scale", "long", $iSymbolID, "float", $fScale, "float", $fXDimOrDpmm, "str", $sFiletype) If @error Then Return SetError(1, 0, 0) Return $aCall[0] EndFunc ; =================================================================== ; UTF-8 & ECI helpers ; =================================================================== ; Convert a UTF-8 source string into the given ECI encoding. $sDest receives the converted bytes as Binary. Func ZBarcode_UTF8_To_ECI($iEci, $sSource, ByRef $vDest) $vDest = "" Local $tSrc, $iLength = __Zint_MakeSource($sSource, $tSrc, $ZINT_SRC_UTF8) ; Ask Zint how big the destination buffer has to be instead of guessing Local $iNeeded = ZBarcode_Dest_Len_ECI($iEci, $sSource) If @error Then Return SetError(@error, 0, 0) Local $tDest = DllStructCreate("byte data[" & $iNeeded + 1 & "]") Local $tDestLen = DllStructCreate("int len") DllStructSetData($tDestLen, "len", $iNeeded) Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_UTF8_To_ECI", "long", $iEci, "struct*", $tSrc, "long", $iLength, "struct*", $tDest, "struct*", $tDestLen) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Local $iOut = DllStructGetData($tDestLen, "len") If $iOut < 1 Then Return SetError(0, 0, 1) ; Only return the bytes actually written, not the whole buffer $vDest = BinaryMid(DllStructGetData($tDest, "data"), 1, $iOut) Return 1 EndFunc ; Length in bytes needed to hold $sSource converted from UTF-8 to $iEci Func ZBarcode_Dest_Len_ECI($iEci, $sSource) Local $tSrc, $iLength = __Zint_MakeSource($sSource, $tSrc, $ZINT_SRC_UTF8) Local $tDestLen = DllStructCreate("int len") Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Dest_Len_ECI", "long", $iEci, "struct*", $tSrc, "long", $iLength, "struct*", $tDestLen) If @error Then Return SetError(-1, 0, 0) If $aCall[0] Then Return SetError($aCall[0], 0, 0) Return DllStructGetData($tDestLen, "len") EndFunc ; =================================================================== ; Build info ; =================================================================== Func ZBarcode_NoPng() Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_NoPng") If @error Then Return SetError(1, 0, 0) Return $aCall[0] EndFunc Func ZBarcode_HaveGS1SyntaxEngine() Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_HaveGS1SyntaxEngine") If @error Then Return SetError(1, 0, 0) Return $aCall[0] EndFunc ; Return the version of Zint linked to, e.g. "2.15.0" or "2.15.0.9" for a development build Func ZBarcode_Version() Local $aCall = DllCall($g__ZintDLL, "long:cdecl", "ZBarcode_Version") If @error Then Return SetError(1, 0, "") Local $iVer = $aCall[0] If $iVer < 10000 Then Return SetError(2, 0, "") ; Release builds encode major*10000 + minor*100 + release, ; development builds append the build number as two more digits If $iVer >= 1000000 Then Return StringFormat("%i.%i.%i.%i", Int($iVer / 1000000), Mod(Int($iVer / 10000), 100), Mod(Int($iVer / 100), 100), Mod($iVer, 100)) EndIf Return StringFormat("%i.%i.%i", Int($iVer / 10000), Mod(Int($iVer / 100), 100), Mod($iVer, 100)) EndFunc ; =================================================================== ; Convenience wrappers ; =================================================================== ; Error / warning message of the last operation Func ZBarcode_ErrTxt($t_zint_symbol) If Not IsDllStruct($t_zint_symbol) Then Return SetError(1, 0, "") Return DllStructGetData($t_zint_symbol, "errtxt") EndFunc ; Human Readable Text produced by the last encode (UTF-8) Func ZBarcode_HRT($t_zint_symbol) If Not IsDllStruct($t_zint_symbol) Then Return SetError(1, 0, "") Local $iLen = $t_zint_symbol.text_length If $iLen < 1 Then Return "" If $iLen > 256 Then $iLen = 256 Return BinaryToString(BinaryMid(DllStructGetData($t_zint_symbol, "text"), 1, $iLen), $ZINT_SRC_UTF8) EndFunc ; Content of the in-memory output file ($BARCODE_MEMORY_FILE) as Binary Func ZBarcode_GetMemFile($t_zint_symbol) If Not IsDllStruct($t_zint_symbol) Then Return SetError(1, 0, "") Local $pMem = $t_zint_symbol.memfile, $iSize = $t_zint_symbol.memfile_size If Not $pMem Or $iSize < 1 Then Return SetError(2, 0, "") Local $tMem = DllStructCreate("byte data[" & $iSize & "]", $pMem) If @error Then Return SetError(3, 0, "") Return DllStructGetData($tMem, "data") EndFunc ; Build a contiguous zint_seg array from a 2D array [[text, eci], ...]. ; $aKeepAlive receives the text buffers - it MUST stay in scope until encoding is done! Func ZBarcode_CreateSegs(Const ByRef $aSegs, ByRef $aKeepAlive) If Not IsArray($aSegs) Or UBound($aSegs, 0) <> 2 Or UBound($aSegs, 2) < 2 Then Return SetError(1, 0, 0) Local $iCount = UBound($aSegs) If $iCount < 1 Or $iCount > $ZINT_MAX_SEG_COUNT Then Return SetError(2, 0, 0) ; Derive the element size from the tag so x86 and x64 both work Local $iSegSize = DllStructGetSize(DllStructCreate($tag_zint_seg)) Local $tArray = DllStructCreate("byte seg[" & $iSegSize * $iCount & "]") If @error Then Return SetError(3, 0, 0) Local $pArray = DllStructGetPtr($tArray), $tSeg, $tText, $iLen Local $aBuffers[$iCount] For $i = 0 To $iCount - 1 $iLen = __Zint_MakeSource($aSegs[$i][0], $tText, $ZINT_SRC_UTF8) $aBuffers[$i] = $tText $tSeg = DllStructCreate($tag_zint_seg, $pArray + $i * $iSegSize) $tSeg.source = DllStructGetPtr($tText) $tSeg.length = $iLen $tSeg.eci = $aSegs[$i][1] Next $aKeepAlive = $aBuffers Return $tArray EndFunc ; =================================================================== ; GDI+ rendering ; =================================================================== ; Convert Zint raster buffer to a GDI+ bitmap / GDI bitmap. ; NOTE: $tPixel is only a scratch buffer now - the returned bitmap owns its own pixel memory. Func ZBarcode_DecodeBufferToBitmap($t_zint_symbol, ByRef $tPixel, $bGDI = False) If Not IsDllStruct($t_zint_symbol) Then Return SetError(1, 0, 0) Local $iW = $t_zint_symbol.bitmap_width, $iH = $t_zint_symbol.bitmap_height If $iW < 1 Or $iH < 1 Then Return SetError(2, 0, 0) Local $pSrc = $t_zint_symbol.bitmap If Not $pSrc Then Return SetError(2, 0, 0) ; ZBarcode_Buffer() has not been called yet ; Zint stores tightly packed rows of width * 3 bytes, GDI+ needs a DWORD aligned stride Local $iRowBytes = $iW * 3 Local $iStride = BitAND($iRowBytes + 3, BitNOT(3)) $tPixel = DllStructCreate("byte rgb[" & $iStride * $iH & "]") If @error Then Return SetError(3, 0, 0) Local $pDst = DllStructGetPtr($tPixel) If $iStride = $iRowBytes Then DllCall("msvcrt.dll", "ptr:cdecl", "memcpy", "ptr", $pDst, "ptr", $pSrc, "uint_ptr", $iRowBytes * $iH) If @error Then Return SetError(4, 0, 0) Else For $y = 0 To $iH - 1 DllCall("msvcrt.dll", "ptr:cdecl", "memcpy", "ptr", $pDst + $y * $iStride, "ptr", $pSrc + $y * $iRowBytes, "uint_ptr", $iRowBytes) If @error Then Return SetError(4, 0, 0) Next EndIf Local $hSrc = _GDIPlus_BitmapCreateFromScan0($iW, $iH, $GDIP_PXF24RGB, $iStride, $pDst) If @error Or Not $hSrc Then Return SetError(5, 0, 0) ; Zint delivers RGB, GDI+ 24bpp is BGR in memory -> swap red and blue with a colour matrix Local $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH, $GDIP_PXF24RGB) If @error Or Not $hBitmap Then _GDIPlus_ImageDispose($hSrc) Return SetError(5, 0, 0) EndIf Local $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap) Local $tCM = DllStructCreate("float m[25]") DllStructSetData($tCM, "m", 1, 3) ; new red = old blue DllStructSetData($tCM, "m", 1, 7) ; new green = old green DllStructSetData($tCM, "m", 1, 11) ; new blue = old red DllStructSetData($tCM, "m", 1, 19) ; alpha DllStructSetData($tCM, "m", 1, 25) Local $hIA = _GDIPlus_ImageAttributesCreate() _GDIPlus_ImageAttributesSetColorMatrix($hIA, 0, True, $tCM) _GDIPlus_GraphicsSetInterpolationMode($hGfx, 5) ; nearest neighbour, keep the modules crisp _GDIPlus_GraphicsSetPixelOffsetMode($hGfx, 2) _GDIPlus_GraphicsDrawImageRectRect($hGfx, $hSrc, 0, 0, $iW, $iH, 0, 0, $iW, $iH, $hIA) _GDIPlus_ImageAttributesDispose($hIA) _GDIPlus_GraphicsDispose($hGfx) _GDIPlus_ImageDispose($hSrc) If $bGDI Then Local $hBitmap_GDI = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap) If @error Or Not $hBitmap_GDI Then _GDIPlus_ImageDispose($hBitmap) Return SetError(6, 0, 0) EndIf _GDIPlus_ImageDispose($hBitmap) Return $hBitmap_GDI EndIf Return $hBitmap EndFunc ; Size of the vector output as [width, height] Func ZBarcode_VectorSize($t_zint_symbol) If Not IsDllStruct($t_zint_symbol) Then Return SetError(1, 0, 0) If Not $t_zint_symbol.vector Then Return SetError(2, 0, 0) Local $tVector = DllStructCreate($tag_zint_vector, $t_zint_symbol.vector) Local $aSize[2] = [$tVector.width, $tVector.height] Return $aSize EndFunc ; Draw a vector symbol (created with one of the *_Buffer_Vector functions) into a GDI+ graphics context. ; Handles rectangles, hexagons (MaxiCode), circles (bullseye / dotty mode) and the human readable text. Func ZBarcode_VectorDraw($t_zint_symbol, $hGraphics, $iFgARGB = 0xFF000000, $iBgARGB = 0xFFFFFFFF, $sFont = "Arial", $fOffsetX = 0, $fOffsetY = 0) If Not IsDllStruct($t_zint_symbol) Then Return SetError(1, 0, 0) If Not $t_zint_symbol.vector Then Return SetError(2, 0, 0) Local $tVector = DllStructCreate($tag_zint_vector, $t_zint_symbol.vector) Local $hBrush = _GDIPlus_BrushCreateSolid($iFgARGB) Local $tItem, $pItem ; --- Rectangles (the bars / modules) --- $pItem = $tVector.rectangles While $pItem $tItem = DllStructCreate($tag_zint_vector_rect, $pItem) _GDIPlus_BrushSetSolidColor($hBrush, __Zint_VecColour($tItem.colour, $iFgARGB, $iBgARGB)) _GDIPlus_GraphicsFillRect($hGraphics, $fOffsetX + $tItem.x, $fOffsetY + $tItem.y, $tItem.width, $tItem.height, $hBrush) $pItem = $tItem.next WEnd ; --- Hexagons (MaxiCode) --- $pItem = $tVector.hexagons If $pItem Then _GDIPlus_BrushSetSolidColor($hBrush, $iFgARGB) Local $hPath = _GDIPlus_PathCreate(), $fR, $fA, $fX1, $fY1, $fX2, $fY2 While $pItem $tItem = DllStructCreate($tag_zint_vector_hexagon, $pItem) ; diameter is the short (inscribed) one -> circumradius = r / cos(30) $fR = ($tItem.diameter / 2) / 0.866025403784439 _GDIPlus_PathStartFigure($hPath) For $i = 0 To 5 $fA = ($tItem.rotation + 90 + $i * 60) * 0.0174532925199433 $fX1 = $fOffsetX + $tItem.x + $fR * Cos($fA) $fY1 = $fOffsetY + $tItem.y - $fR * Sin($fA) $fA = ($tItem.rotation + 90 + ($i + 1) * 60) * 0.0174532925199433 $fX2 = $fOffsetX + $tItem.x + $fR * Cos($fA) $fY2 = $fOffsetY + $tItem.y - $fR * Sin($fA) _GDIPlus_PathAddLine($hPath, $fX1, $fY1, $fX2, $fY2) Next _GDIPlus_PathCloseFigure($hPath) $pItem = $tItem.next WEnd _GDIPlus_GraphicsFillPath($hGraphics, $hPath, $hBrush) _GDIPlus_PathDispose($hPath) EndIf ; --- Circles (MaxiCode bullseye, dotty mode) --- $pItem = $tVector.circles Local $iCol, $fD, $hPen While $pItem $tItem = DllStructCreate($tag_zint_vector_circle, $pItem) $iCol = $tItem.colour ? $iBgARGB : $iFgARGB $fD = $tItem.diameter If $tItem.width > 0 Then ; ring, diameter excludes the perimeter width $hPen = _GDIPlus_PenCreate($iCol, $tItem.width) _GDIPlus_GraphicsDrawEllipse($hGraphics, $fOffsetX + $tItem.x - $fD / 2, $fOffsetY + $tItem.y - $fD / 2, $fD, $fD, $hPen) _GDIPlus_PenDispose($hPen) Else _GDIPlus_BrushSetSolidColor($hBrush, $iCol) _GDIPlus_GraphicsFillEllipse($hGraphics, $fOffsetX + $tItem.x - $fD / 2, $fOffsetY + $tItem.y - $fD / 2, $fD, $fD, $hBrush) EndIf $pItem = $tItem.next WEnd ; --- Human readable text --- $pItem = $tVector.strings If $pItem Then Local $hFamily = _GDIPlus_FontFamilyCreate($sFont) If Not $hFamily Then $hFamily = _GDIPlus_FontFamilyCreate("Arial") Local $fEm = _GDIPlus_FontFamilyGetEmHeight($hFamily, 0) Local $fAscent = _GDIPlus_FontFamilyGetCellAscent($hFamily, 0) Local $fAscRatio = ($fEm > 0) ? ($fAscent / $fEm) : 0.9 Local $hFormat = _GDIPlus_StringFormatCreate() Local $hFont, $tLayout, $sText, $iAlign, $iState _GDIPlus_BrushSetSolidColor($hBrush, $iFgARGB) _GDIPlus_GraphicsSetTextRenderingHint($hGraphics, 4) ; anti aliased While $pItem $tItem = DllStructCreate($tag_zint_vector_string, $pItem) $sText = __Zint_UTF8PtrToStr($tItem.text, $tItem.length) If $sText <> "" Then ; halign: 0 = centre, 1 = left, 2 = right -> StringFormat: 0 = near, 1 = centre, 2 = far Switch $tItem.halign Case 1 $iAlign = 0 Case 2 $iAlign = 2 Case Else $iAlign = 1 EndSwitch _GDIPlus_StringFormatSetAlign($hFormat, $iAlign) ; Font size is given in pixels, y refers to the baseline $hFont = _GDIPlus_FontCreate($hFamily, $tItem.fsize, 0, 2) $tLayout = _GDIPlus_RectFCreate($fOffsetX + $tItem.x, $fOffsetY + $tItem.y - $tItem.fsize * $fAscRatio, 0, 0) If $tItem.rotation Then ; save/restore instead of reset, otherwise a transform set by the caller would be lost $iState = _GDIPlus_GraphicsSave($hGraphics) _GDIPlus_GraphicsTranslateTransform($hGraphics, $fOffsetX + $tItem.x, $fOffsetY + $tItem.y) _GDIPlus_GraphicsRotateTransform($hGraphics, $tItem.rotation) $tLayout = _GDIPlus_RectFCreate(0, -$tItem.fsize * $fAscRatio, 0, 0) _GDIPlus_GraphicsDrawStringEx($hGraphics, $sText, $hFont, $tLayout, $hFormat, $hBrush) _GDIPlus_GraphicsRestore($hGraphics, $iState) Else _GDIPlus_GraphicsDrawStringEx($hGraphics, $sText, $hFont, $tLayout, $hFormat, $hBrush) EndIf _GDIPlus_FontDispose($hFont) EndIf $pItem = $tItem.next WEnd _GDIPlus_StringFormatDispose($hFormat) _GDIPlus_FontFamilyDispose($hFamily) EndIf _GDIPlus_BrushDispose($hBrush) Return 1 EndFunc ; Render a vector symbol into a fresh GDI+ bitmap Func ZBarcode_VectorToBitmap($t_zint_symbol, $iFgARGB = 0xFF000000, $iBgARGB = 0xFFFFFFFF, $sFont = "Arial", $fPadding = 0) Local $aSize = ZBarcode_VectorSize($t_zint_symbol) If @error Then Return SetError(@error, 0, 0) Local $iW = Ceiling($aSize[0] + 2 * $fPadding), $iH = Ceiling($aSize[1] + 2 * $fPadding) If $iW < 1 Or $iH < 1 Then Return SetError(3, 0, 0) Local $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH, $GDIP_PXF32ARGB) If @error Or Not $hBitmap Then Return SetError(4, 0, 0) Local $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap) _GDIPlus_GraphicsSetSmoothingMode($hGfx, 2) _GDIPlus_GraphicsClear($hGfx, $iBgARGB) ZBarcode_VectorDraw($t_zint_symbol, $hGfx, $iFgARGB, $iBgARGB, $sFont, $fPadding, $fPadding) _GDIPlus_GraphicsDispose($hGfx) Return $hBitmap EndFunc #EndRegion Example1.au3 #AutoIt3Wrapper_UseX64=y #include "Zint.au3" Global Const $sTestFile = @ScriptDir & "\out.png" ;absolute path, otherwise the working directory decides where it lands If FileExists($sTestFile) Then FileDelete($sTestFile) Global $pZB = ZBarcode_Create() If @error Then Exit MsgBox(16, "ERROR", "An error occured!" & @CRLF & "Error code = " & @error, 10) ConsoleWrite("Zint DLL version: " & ZBarcode_Version() & @CRLF) ConsoleWrite("PNG support: " & (ZBarcode_NoPng() ? "No" : "Yes") & @CRLF) Global $t_zint_symbol = DllStructCreate($tag_zint_symbol, $pZB) If @error Then ZBarcode_Delete($pZB) Exit MsgBox(16, "ERROR", "An error occured!" & @CRLF & "Error code = " & @error, 10) EndIf With $t_zint_symbol .symbology = $BARCODE_CODE128 .scale = 2 .show_hrt = 1 .output_options = BitOR($SMALL_TEXT, $BARCODE_QUIET_ZONES) .outfile = $sTestFile EndWith ZBarcode_Encode_and_Print($pZB, "12340984576") Global $iError = @error If $iError Then ConsoleWrite("! Zint says: " & ZBarcode_ErrTxt($t_zint_symbol) & @CRLF) ConsoleWrite("HRT: " & ZBarcode_HRT($t_zint_symbol) & @CRLF) ZBarcode_Delete($pZB) If Not $iError And FileExists($sTestFile) Then ShellExecute($sTestFile) Else MsgBox(16, "Error", "Code was not created. Error: " & $iError, 5) EndIf Example2.au3 #AutoIt3Wrapper_UseX64=n #include <GDIPlus.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include "Zint.au3" Global $pZB = ZBarcode_Create() If @error Then Exit MsgBox(16, "ERROR", "An error occured!" & @CRLF & "Error code = " & @error, 10) Global $t_zint_symbol = DllStructCreate($tag_zint_symbol, $pZB) With $t_zint_symbol .symbology = $BARCODE_QRCODE .input_mode = $UNICODE_MODE ;the UDF hands the text over as UTF-8 .scale = 10 .fgcolour = "202080" ;coloured foreground - proves the red/blue channels are not swapped anymore .bgcolour = "FFFFF0" EndWith If Not ZBarcode_Encode_and_Buffer($pZB, "Hello QR World ;-)") Then Global $iErr = @error MsgBox(16, "ERROR", "Unable to encode!" & @CRLF & ZBarcode_ErrTxt($t_zint_symbol), 10) ZBarcode_Delete($pZB) Exit $iErr EndIf _GDIPlus_Startup() Global $tBitmapData = 0 Global $hBitmap = ZBarcode_DecodeBufferToBitmap($t_zint_symbol, $tBitmapData) Global $iW = $t_zint_symbol.bitmap_width, $iH = $t_zint_symbol.bitmap_height ZBarcode_Delete($pZB) ;the bitmap is independent from the symbol now $tBitmapData = 0 Global Const $hGUI = GUICreate("Test QR Code", $iW, $iH) ; a picture control keeps the image on screen - Windows repaints it for us Global Const $idPic = GUICtrlCreatePic("", 0, 0, $iW, $iH) Global $hHBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap) _WinAPI_DeleteObject(GUICtrlSendMsg($idPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hHBmp)) GUISetState(@SW_SHOW) Do Until GUIGetMsg() = $GUI_EVENT_CLOSE _WinAPI_DeleteObject($hHBmp) _GDIPlus_ImageDispose($hBitmap) _GDIPlus_Shutdown() Example3.au3 #AutoIt3Wrapper_UseX64=y #include <GDIPlus.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include "Zint.au3" Global $pZB = ZBarcode_Create() If @error Then Exit MsgBox(16, "ERROR", "An error occured!" & @CRLF & "Error code = " & @error, 10) Global $t_zint_symbol = DllStructCreate($tag_zint_symbol, $pZB), $sText = "12340984576" With $t_zint_symbol .symbology = $BARCODE_CODE128 .scale = 3 .show_hrt = 1 EndWith If Not ZBarcode_Encode_and_Buffer_Vector($pZB, $sText) Then MsgBox(16, "ERROR", "Unable to encode!" & @CRLF & ZBarcode_ErrTxt($t_zint_symbol), 10) ZBarcode_Delete($pZB) Exit EndIf Global $aSize = ZBarcode_VectorSize($t_zint_symbol) ConsoleWrite($aSize[0] & " x " & $aSize[1] & @CRLF) _GDIPlus_Startup() ;the renderer walks all rectangles (including the very last one) and draws the HRT from the symbol itself Global $hBitmap = ZBarcode_VectorToBitmap($t_zint_symbol, 0xFF000000, 0xFFFFFFFF, "Arial", 8) Global $iW = _GDIPlus_ImageGetWidth($hBitmap), $iH = _GDIPlus_ImageGetHeight($hBitmap) ZBarcode_Delete($pZB) Global Const $hGUI = GUICreate("Test Bar Code 128", $iW, $iH) ; a picture control keeps the image on screen - Windows repaints it for us Global Const $idPic = GUICtrlCreatePic("", 0, 0, $iW, $iH) Global $hHBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap) _WinAPI_DeleteObject(GUICtrlSendMsg($idPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hHBmp)) GUISetState(@SW_SHOW) Do Until GUIGetMsg() = $GUI_EVENT_CLOSE _WinAPI_DeleteObject($hHBmp) _GDIPlus_ImageDispose($hBitmap) _GDIPlus_Shutdown() Example4.au3 #AutoIt3Wrapper_UseX64=n #AutoIt3Wrapper_Change2CUI=y #include "Zint.au3" ; =================================================================== ; Zint AutoIt Demo Test ; =================================================================== ; ------------------------------------------------------------------- ; Step 1: Create a symbol and verify the struct layout ; ------------------------------------------------------------------- ConsoleWrite("Step 1: Create a symbol" & @CRLF) Global $pSymbol = ZBarcode_Create() If @error Then MsgBox(16, "Error", "Failed to create symbol") Exit EndIf Global $t_zint_symbol = DllStructCreate($tag_zint_symbol, $pSymbol) ConsoleWrite("Symbol created: " & $pSymbol & @CRLF) ConsoleWrite("Struct layout matches the DLL: " & (ZBarcode_CheckLayout() ? "yes" : "NO - error " & @error) & @CRLF) ConsoleWrite(@CRLF) ; ------------------------------------------------------------------- ; Step 2: Configure the symbol BEFORE encoding ; ------------------------------------------------------------------- ConsoleWrite("Step 2: Configure and encode" & @CRLF) With $t_zint_symbol .symbology = $BARCODE_CODE128 .input_mode = $UNICODE_MODE .height = 50 .scale = 1 .show_hrt = 1 .outfile = @ScriptDir & "\demo.png" EndWith Global $sData = "HELLO123" If ZBarcode_Encode($pSymbol, $sData) Then ConsoleWrite("Encoding succeeded, HRT: " & ZBarcode_HRT($t_zint_symbol) & @CRLF) Else ConsoleWrite("Encoding failed, error: " & @error & " - " & ZBarcode_ErrTxt($t_zint_symbol) & @CRLF) EndIf ConsoleWrite(@CRLF) ; ------------------------------------------------------------------- ; Step 3: Output to raster buffer ; ------------------------------------------------------------------- ConsoleWrite("Step 3: Output to raster buffer" & @CRLF) If ZBarcode_Buffer($pSymbol) Then ConsoleWrite("Raster buffer: " & $t_zint_symbol.bitmap_width & " x " & $t_zint_symbol.bitmap_height & @CRLF) Else ConsoleWrite("Raster buffer generation failed, error: " & @error & @CRLF) EndIf ConsoleWrite(@CRLF) ; ------------------------------------------------------------------- ; Step 4: Output to vector buffer ; ------------------------------------------------------------------- ConsoleWrite("Step 4: Output to vector buffer" & @CRLF) If ZBarcode_Buffer_Vector($pSymbol) Then Global $aSize = ZBarcode_VectorSize($t_zint_symbol) ConsoleWrite("Vector buffer: " & $aSize[0] & " x " & $aSize[1] & @CRLF) Else ConsoleWrite("Vector buffer generation failed, error: " & @error & @CRLF) EndIf ConsoleWrite(@CRLF) ; ------------------------------------------------------------------- ; Step 5: Print to file ; ------------------------------------------------------------------- ConsoleWrite("Step 5: Print to file" & @CRLF) If ZBarcode_Print($pSymbol) Then ConsoleWrite("Written to " & $t_zint_symbol.outfile & @CRLF) Else ConsoleWrite("Print failed, error: " & @error & " - " & ZBarcode_ErrTxt($t_zint_symbol) & @CRLF) EndIf ConsoleWrite(@CRLF) ; ------------------------------------------------------------------- ; Step 6: Get barcode info ; ------------------------------------------------------------------- ConsoleWrite("Step 6: Get barcode info" & @CRLF) ConsoleWrite("Valid ID for CODE128: " & ZBarcode_ValidID($BARCODE_CODE128) & @CRLF) ConsoleWrite("Barcode name for CODE128: " & ZBarcode_BarcodeName($BARCODE_CODE128) & @CRLF) ConsoleWrite("Default X-dim for CODE128: " & ZBarcode_Default_Xdim($BARCODE_CODE128) & " mm" & @CRLF) ConsoleWrite("QR supports ECI: " & (ZBarcode_Cap($BARCODE_QRCODE, $ZINT_CAP_ECI) ? "yes" : "no") & @CRLF) ConsoleWrite("QR supports Structured Append: " & (ZBarcode_Cap($BARCODE_QRCODE, $ZINT_CAP_STRUCTAPP) ? "yes" : "no") & @CRLF) ConsoleWrite("Scale for 0.5 mm X-dim at 12 dpmm: " & ZBarcode_Scale_From_XdimDp($BARCODE_CODE128, 0.5, 12, "png") & @CRLF) ConsoleWrite(@CRLF) ; ------------------------------------------------------------------- ; Step 7: UTF-8 to ECI conversion test ; ------------------------------------------------------------------- ConsoleWrite("Step 7: UTF-8 to ECI conversion test" & @CRLF) Global $vDest ConsoleWrite("Bytes needed for ECI 9 (Greek): " & ZBarcode_Dest_Len_ECI(9, "Hello") & @CRLF) If ZBarcode_UTF8_To_ECI(3, "HELLO", $vDest) Then ConsoleWrite("UTF-8 to ECI 3 (Latin-1): " & $vDest & " -> " & BinaryToString($vDest) & @CRLF) Else ConsoleWrite("UTF-8 to ECI conversion failed, error: " & @error & @CRLF) EndIf ConsoleWrite(@CRLF) ; ------------------------------------------------------------------- ; Step 8: Check Zint build info ; ------------------------------------------------------------------- ConsoleWrite("Step 8: Check Zint build info" & @CRLF) ConsoleWrite("Zint No PNG support: " & ZBarcode_NoPng() & @CRLF) ConsoleWrite("Zint GS1 support: " & ZBarcode_HaveGS1SyntaxEngine() & @CRLF) ConsoleWrite("Zint Version: " & ZBarcode_Version() & @CRLF) ConsoleWrite(@CRLF) ; ------------------------------------------------------------------- ; Step 9: Clear, reset and delete symbol ; ------------------------------------------------------------------- ConsoleWrite("Step 9: Clear, reset and delete symbol" & @CRLF) ZBarcode_Clear($pSymbol) ConsoleWrite("Symbol cleared" & @CRLF) ZBarcode_Reset($pSymbol) ConsoleWrite("Symbol reset" & @CRLF) ZBarcode_Delete($pSymbol) ConsoleWrite("Symbol deleted" & @CRLF) ConsoleWrite(@CRLF) MsgBox(64, "Demo Complete", "Zint AutoIt demo test finished successfully.") Example5.au3 #AutoIt3Wrapper_UseX64=y #include "Zint.au3" Global $pZB = ZBarcode_Create() If @error Then Exit MsgBox(16, "ERROR", "An error occured!" & @CRLF & "Error code = " & @error, 10) Global $t_zint_symbol = DllStructCreate($tag_zint_symbol, $pZB) With $t_zint_symbol .symbology = $BARCODE_AZTEC .input_mode = $UNICODE_MODE ;segment data has to be UTF-8 in this mode .scale = 6 .outfile = @ScriptDir & "\segtest.png" EndWith If FileExists($t_zint_symbol.outfile) Then FileDelete($t_zint_symbol.outfile) ; Text plus the matching ECI. The helper converts to UTF-8 and lays the segments ; out as one continuous array - writing them into a "char" struct would have ; turned every non ASCII character into a question mark. Global $aSegs[3][2] = [ _ ["Κείμενο", 9], _ ; Greek -> ISO 8859-7 ["Текст", 7], _ ; Cyrillic -> ISO 8859-5 ["文章", 29]] ; Chinese -> GB 2312 Global $aKeepAlive ;must stay alive until the encoder is done Global $tSegs = ZBarcode_CreateSegs($aSegs, $aKeepAlive) If @error Then Exit MsgBox(16, "ERROR", "Unable to build the segment array", 10) Global $iError = 0 If Not ZBarcode_Encode_Segs($pZB, DllStructGetPtr($tSegs), UBound($aSegs)) Then $iError = @error MsgBox(16, "ERROR", "ZBarcode_Encode_Segs returned error " & $iError & @CRLF & ZBarcode_ErrTxt($t_zint_symbol), 10) EndIf If Not $iError Then If ZBarcode_Print($pZB) Then ShellExecute($t_zint_symbol.outfile) Else MsgBox(16, "ERROR", "Print failed: " & ZBarcode_ErrTxt($t_zint_symbol), 10) EndIf EndIf ZBarcode_Delete($pZB) More examples on my OneDrive! Please test and reply. Feel free to post examples here!