Jump to content

Barcode - UDF

Zedna

By Zedna
in AutoIt Example Scripts

 Share

Recommended Posts

  • Popular Post
Zedna Universalist

Zedna

Posted
  • Popular Post
Posted (edited)

OPENBARCODES project

http://grandzebu.net/index.php?page=/informatique/codbar-en/codbar.htm

all is under GPL - GNU license , open source and completely free...

I translated original Pascal functions to PowerBuilder syntax which is very similar to AutoIt (BARCODE_powerbuilder.zip).

Now I translated all barcode functions to AutoIt syntax (barcode_autoit.zip).

BarCode UDF + example --> you must install aproppriate TTF fonts into Windows first.

barcode.au3
barcode_test.au3
print.au3
code128.ttf
code25I.ttf
code39.ttf
ean13.ttf

Available functions:

barcode_128()
barcode_ean8()
barcode_ean13()
barcode_25i()
barcode_39()

; TTF fonts must be installed in system first

#AutoIt3Wrapper_run_obfuscator=y
#Obfuscator_parameters=/so

#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

#include <print.au3>
#include <barcode.au3>

$barcode_test = GUICreate("BarCode Test", 601, 174, -1, -1)
GUICtrlCreateLabel("Input:", 11, 10, 30, 17)
$Input = GUICtrlCreateInput("", 41, 8, 120, 21)
GUICtrlCreateLabel("Output:", 171, 10, 38, 17)
$Output = GUICtrlCreateInput("", 209, 8, 120, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$print = GUICtrlCreateButton("Print", 340, 7, 39, 23)
GUICtrlCreateLabel("Type:", 387, 10, 28, 17)
$type = GUICtrlCreateCombo("", 417, 8, 91, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Code 128|EAN 8|EAN 13|Code 2 of 5 i|Code 3 of 9", "Code 128")
GUICtrlCreateLabel("Size:", 517, 10, 25, 17)
$size = GUICtrlCreateCombo("", 543, 8, 47, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "12|18|24|36|48|60|72", "48")
$barcode = GUICtrlCreateLabel("", 10, 39, 580, 130)
GUICtrlSetFont(-1, 48, 400, 0, "Code 128")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)

GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $type
            ChangeFont()
            ApplyBarcode()
        Case $size
            ChangeFont()
        Case $print
            Print()
    EndSwitch
WEnd

Func WM_COMMAND($hWinHandle, $iMsg, $wParam, $lParam)
    If _WinAPI_HiWord($wParam) = $EN_CHANGE And _WinAPI_LoWord($wParam) = $Input Then
        ApplyBarcode()
    EndIf
EndFunc

Func ChangeFont()
    Switch GUICtrlRead($type)
        Case 'Code 128'
            $font_name = 'Code 128'
        Case 'EAN 8','EAN 13'
            $font_name = 'Code EAN13'
        Case 'Code 2 of 5 i'
            $font_name = 'Code 2 of 5 interleaved'
        Case 'Code 3 of 9'
            $font_name = 'Code 3 de 9'
    EndSwitch
    GUICtrlSetFont($barcode, GUICtrlRead($size), 400, 0, $font_name)
EndFunc

Func ApplyBarcode()
    Switch GUICtrlRead($type)
        Case 'Code 128'
            $barcode_data = barcode_128(GUICtrlRead($Input))
        Case 'EAN 8'
            $barcode_data = barcode_ean8(GUICtrlRead($Input))
        Case 'EAN 13'
            $barcode_data = barcode_ean13(GUICtrlRead($Input))
        Case 'Code 2 of 5 i'
            $barcode_data = barcode_25i(GUICtrlRead($Input))
        Case 'Code 3 of 9'
            $barcode_data = barcode_39(GUICtrlRead($Input))
    EndSwitch
    GUICtrlSetData($Output, $barcode_data)
    GUICtrlSetData($barcode, $barcode_data)
EndFunc

; print given text on default printer in given size by all available barcode types
Func Print()
    $sPrinter = _GetDefaultPrinter()
    If $sPrinter = "" Then Return

    $hPrintDC = _WinAPI_CreateDC("winspool", $sPrinter)
    _InitPrinter($hPrintDC, "Printing Barcodes from AutoIt") ; print job name

    $hFont = _CreateFont_Simple('Arial', 12, $FW_BOLD)
    $hFontOld = _WinAPI_SelectObject($hPrintDC, $hFont)
    _TextOut_Centered($hPrintDC, 500, 'Input data: ' & GUICtrlRead($Input), 0xFF0000)
    _WinAPI_SelectObject($hPrintDC, $hFontOld)
    _WinAPI_DeleteObject($hFont)

    $hFont = _CreateFont_Simple('Courier', 10, $FW_NORMAL)
    $hFontOld = _WinAPI_SelectObject($hPrintDC, $hFont)
    _WinAPI_SetTextColor($hPrintDC, 0x000000)
    _TextOut_Centered($hPrintDC, 1400, 'Code 128')
    _TextOut_Centered($hPrintDC, 2400, 'EAN 8')
    _TextOut_Centered($hPrintDC, 3400, 'EAN 13')
    _TextOut_Centered($hPrintDC, 4400, 'Code 2 of 5 i')
    _TextOut_Centered($hPrintDC, 5400, 'Code 3 of 9')
    _WinAPI_SelectObject($hPrintDC, $hFontOld)
    _WinAPI_DeleteObject($hFont)

    $hFont = _CreateFont_Simple('Code 128', GUICtrlRead($size), $FW_NORMAL)
    $hFontOld = _WinAPI_SelectObject($hPrintDC, $hFont)
    _TextOut_Centered($hPrintDC, 1500, barcode_128(GUICtrlRead($Input)))
    _WinAPI_SelectObject($hPrintDC, $hFontOld)
    _WinAPI_DeleteObject($hFont)

    $hFont = _CreateFont_Simple('Code EAN13', GUICtrlRead($size), $FW_NORMAL)
    $hFontOld = _WinAPI_SelectObject($hPrintDC, $hFont)
    _TextOut_Centered($hPrintDC, 2500, barcode_ean8(GUICtrlRead($Input)))
    _WinAPI_SelectObject($hPrintDC, $hFontOld)
    _WinAPI_DeleteObject($hFont)

    $hFont = _CreateFont_Simple('Code EAN13', GUICtrlRead($size), $FW_NORMAL)
    $hFontOld = _WinAPI_SelectObject($hPrintDC, $hFont)
    _TextOut_Centered($hPrintDC, 3500, barcode_ean13(GUICtrlRead($Input)))
    _WinAPI_SelectObject($hPrintDC, $hFontOld)
    _WinAPI_DeleteObject($hFont)

    $hFont = _CreateFont_Simple('Code 2 of 5 interleaved', GUICtrlRead($size), $FW_NORMAL)
    $hFontOld = _WinAPI_SelectObject($hPrintDC, $hFont)
    _TextOut_Centered($hPrintDC, 4500, barcode_25i(GUICtrlRead($Input)))
    _WinAPI_SelectObject($hPrintDC, $hFontOld)
    _WinAPI_DeleteObject($hFont)

    $hFont = _CreateFont_Simple('Code 3 de 9', GUICtrlRead($size), $FW_NORMAL)
    $hFontOld = _WinAPI_SelectObject($hPrintDC, $hFont)
    _TextOut_Centered($hPrintDC, 5500, barcode_39(GUICtrlRead($Input)))
    _WinAPI_SelectObject($hPrintDC, $hFontOld)
    _WinAPI_DeleteObject($hFont)

    _DeInitPrinter($hPrintDC)
EndFunc

History:

2012-06-01 - only Code 128 translated

2012-06-03 - all functions translated

2012-06-04 - added Print + some inner optimizations

Original idea comes from this topic:

Previous downloads (AutoIt): 31

BARCODE_powerbuilder.zip

post-6483-0-02548300-1338846560_thumb.pn

barcode_autoit.zip

Printing Barcodes from AutoIt.pdf

Edited by Zedna

Resources UDF   ResourcesEx UDF   AutoIt Forum Search

Zedna Universalist

Zedna

Posted
  • Author
Posted (edited)

New version:

2012-06-04 - added Print + some inner optimizations

EDIT:

I tested it also with Barcode scanner in my work (only Code 128)

and it seems there is some problem on Windows7 64bit in GUI with font.

There are 3 bars at begin which shouldn't be there.

So when I do Screenshot of GUI with barcode on label and print this screenshot then scanner can't read it.

But when I print it by TextOut API (see Print() in my example) with the same font and the same data value

then output barcode on printer/paper is OK and can be read by scanner.

At home on my WindowsXP this bug doesn't occur.

So it may be some bug in TTF font on 64bit systems

or it can be bug in AutoIt in GUICtrlSetFont() only on 64bit systems

or it can be bug in AutoIt in GUICtrlSetData() only on 64bit systems

or something else ...

I will do more tests of this bug later.

Edited by Zedna

Resources UDF   ResourcesEx UDF   AutoIt Forum Search

  • 3 months later...
Alexisss Seeker

Alexisss

Posted
Posted (edited)

i am trying to print with a zebra lp2824 printer, but when i press print button, it just print an empty label. but using a normal printer, it print a complete A4 page with the input entered and the respective barcode.

what could i do to print just the barcode on the zebra lp2824 printer.??

thank you!!!

@zedna

Zedna

Edited by Alexisss
llewxam Universalist

llewxam

Posted
Posted

Just my 2 pence - I dislike barcode fonts and prefer to manually code them. Attached is how I devised Code39 by using Wiki's table "Code Details", which saved me a huge amount of work. AFAIK there is no "limitation" to how long a Code39 can be, I capped it in my script to 16 characters because I use _ScreenCapture_CaptureWnd to grab a JPG which is used on address label sheets, so if anyone re-uses this make sure those dimensions will work for you.

Enjoy

Ian

PS @ Alexisss:

What happens if you try to print anything at all to the Zebra? Will it print plain text from Notepad? I've fixed plenty of Zebras but have never owned one to experiment.

Stripped Down Code39 Demo.au3

My projects:

  Reveal hidden contents
  • IP Scanner - Multi-threaded ping tool to scan your available networks for used and available IP addresses, shows ping times, resolves IPs in to host names, and allows individual IPs to be pinged.
  • INFSniff - Great technicians tool - a tool which scans DriverPacks archives for INF files and parses out the HWIDs to a database file, and rapidly scans the local machine's HWIDs, searches the database for matches, and installs them.
  • PPK3 (Persistent Process Killer V3) - Another for the techs - suppress running processes that you need to keep away, helpful when fighting spyware/viruses.
  • Sync Tool - Folder sync tool with lots of real time information and several checking methods.
  • USMT Front End - Front End for Microsoft's User State Migration Tool, including all files needed for USMT 3.01 and 4.01, 32 bit and 64 bit versions.
  • Audit Tool - Computer audit tool to gather vital hardware, Windows, and Office information for IT managers and field techs. Capabilities include creating a customized site agent.
  • CSV Viewer - Displays CSV files with automatic column sizing and font selection. Lines can also be copied to the clipboard for data extraction.
  • MyDirStat - Lists number and size of files on a drive or specified path, allows for deletion within the app.
  • 2048 Game - My version of 2048, fun tile game.
  • Juice Lab - Ecigarette liquid making calculator.
  • Data Protector - Secure notes to save sensitive information.
  • VHD Footer - Add a footer to a forensic hard drive image to allow it to be mounted or used as a virtual machine hard drive.
  • Find in File - Searches files containing a specified phrase.
Alexisss Seeker

Alexisss

Posted
Posted

PS @ Alexisss:

What happens if you try to print anything at all to the Zebra? Will it print plain text from Notepad? I've fixed plenty of Zebras but have never owned one to experiment.

i just try to print a text plain from note pad, so it print a blank label!!!!

there is noy way to modify the barcode udr to print on a zebra printer??, i am using a 2 inch per 1 inch label

  • 6 months later...
Jemboy Adventurer

Jemboy

Posted
Posted

Hi Zedna,

I succesfully converted your example to print text and barcodes on a label(printer).

However for every new labelsize, I need to manually change the default papersize (via Printerproberties, General Tab, Preferences)

to print correctly.

I have analyzed your print.au3 and search with Google to find a way to send the papersize automatically before printing the label,

however I am over my head with DLLs and commands like DLLStructdata .

Could you (or other forummembers) help me out with changing the papersize (and printing orientation) ?

TIA, Jemboy

Jemboy Adventurer

Jemboy

Posted
Posted

Hi FireFox thanks for helping me find a solution.

I know "assumption is the mother of all f**kups", but I assume this size is more the size of the $tDOCINFO- "record" used (like a memory reservation.)

If it has something to do with the papersize, I think it's overwritten by the default papersize, input at the properties/preference of the Windows printer.

Also the value "20" isn't documented, is it A4, Letter size?

I have to little knowledge of DLL-archicture (shiver) to find find out.

FireFox Universalist

FireFox

Posted
Posted (edited)

Well then you can't set it with the current UDF functions.

Edit: Have you tried to automate the "change paper size" part ?

Edited by FireFox
  • 5 months later...
  • Moderators
Melba23 Universalist

Melba23

Posted
  • Moderators
Posted

lishsewewe,

We do not accept adverts for payware apps. :naughty:

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

  Reveal hidden contents

 

mLipok Universalist

mLipok

Posted
Posted

strange

I have a problem to run

"barcode_test.au3"

  Quote

>"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /beta /ErrorStdOut /in "L:TOOLsMacro  TESTbarcode_autoitprint.au3" /UserParams    

+>13:02:49 Starting AutoIt3Wrapper v.2.1.2.28 SciTE v.3.3.2.0 ;  Keyboard:00000415  OS:WIN_7/Service Pack 1  CPU:X64 OS:X64    Environment(Language:0415  Keyboard:00000415  OS:WIN_7/Service Pack 1  CPU:X64 OS:X64)
>Running AU3Check (3.3.9.19)  from:C:Program Files (x86)AutoIt3Beta
"L:TOOLsMacro  TESTbarcode_autoitprint.au3"(75,75) : warning: $__WINAPCONSTANT_LOGPIXELSY: possibly used before declaration.
$PixelsPerInchY = _WinAPI_GetDeviceCaps($hDC, $__WINAPCONSTANT_LOGPIXELSY)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"L:TOOLsMacro  TESTbarcode_autoitprint.au3"(77,75) : warning: $__WINAPCONSTANT_LOGPIXELSX: possibly used before declaration.
$PixelsPerInchX = _WinAPI_GetDeviceCaps($hDC, $__WINAPCONSTANT_LOGPIXELSX)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"L:TOOLsMacro  TESTbarcode_autoitprint.au3"(75,75) : error: $__WINAPCONSTANT_LOGPIXELSY: undeclared global variable.
$PixelsPerInchY = _WinAPI_GetDeviceCaps($hDC, $__WINAPCONSTANT_LOGPIXELSY)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"L:TOOLsMacro  TESTbarcode_autoitprint.au3"(77,75) : error: $__WINAPCONSTANT_LOGPIXELSX: undeclared global variable.
$PixelsPerInchX = _WinAPI_GetDeviceCaps($hDC, $__WINAPCONSTANT_LOGPIXELSX)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
L:TOOLsMacro  TESTbarcode_autoitprint.au3 - 2 error(s), 2 warning(s)
!>13:02:49 AU3Check ended. Press F4 to jump to next error.rc:2
>Exit code: 2    Time: 1.155

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Zedna Universalist

Zedna

Posted
  • Author
Posted
  On 9/6/2013 at 11:04 AM, mlipok said:

strange

I have a problem to run

"barcode_test.au3"

 

I use old AutoIt 3.2.12.1 where these constants are declared in standard WinAPI UDF

Global Const $__WINAPCONSTANT_LOGPIXELSX = 88
Global Const $__WINAPCONSTANT_LOGPIXELSY = 90

Just add these two lines of code to the top of print.au3 and it should work for you also with new version of AutoIt.

 

Resources UDF   ResourcesEx UDF   AutoIt Forum Search

mLipok Universalist

mLipok

Posted
Posted

thanks

now its works ..... nice

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

cetipabo Wayfarer

cetipabo

Posted
Posted (edited)

Hello,

looks like the site http://grandzebu.net/informatique/codbar-en/code128.htm updated the code128.ttf font to V2.00 :
 

  Quote

 

Version 2.00 of the font : The code of characters 95 and following was modified compared to the version 1.00. The encoding function was modified consequently.

 

Unfortunately this new font is not compatible with the actual code, the code need to be updated to use it.

Edited by cetipabo
Myicq Universalist

Myicq

Posted
Posted

While this is all nice work, why don't someone port the functions of the free library Zint ?  There is a Delphi Wrapper here. There is both an exe and DLL option. My skills are not enough to port the Delphi code, unfortunately.

But you get almost all barcodes at once, even the most exotic ones. And putting Zint DLL into a zintbarcode.udf  would allow all applications to use barcodes for many projects.

Just my 2c. And it's not advertising for commercialware. Zint is opensourced.

  Reveal hidden contents

I am just a hobby programmer, and nothing great to publish right now.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing
×
×
  • Create New...