software-on-demand-ita.com

Giuseppe Pischedda

Software Engineer

software-on-demand-ita.com

Giuseppe Pischedda

Software Engineer

EAN-13 Barcode Check Digit Calculator



Càpita di dover controllare al volo la validità di un codice a barre EAN13 e quindi il relativo check digit.
Ecco una semplice utility in MFC che esegue il check del carattere di controllo.




Note: Installare Microsoft Visual C++ 2010 Redistributable Package (x86);


Visual C++:
#include "stdafx.h"
#include "BCodeCheckTest.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif


// L'unico oggetto applicazione

CWinApp theApp;

using namespace std;



typedef wchar_t *(__stdcall *CHECK_NUM)(wchar_t *_ean);

int _tmain(int argc, TCHAR* argv[], TCHAR* envp[])
{
	
	//Inizializzazione MFC
	int nRetCode = 0;

	HMODULE hModule = ::GetModuleHandle(NULL);

	if (hModule != NULL)
	{
		// inizializza MFC e visualizza un messaggio in caso di errore
		if (!AfxWinInit(hModule, NULL, ::GetCommandLine(), 0))
		{
			// TODO: modificare il codice di errore in base alle esigenze
			_tprintf(_T("Errore irreversibile: inizializzazione di MFC non riuscita\n"));
			nRetCode = 1;
		}
		else
		{
			// TODO: codificare il comportamento dell'applicazione.
			HMODULE hMd = LoadLibrary(_T("bcodesupport_x86.dll"));

			if(hMd != NULL)
			{
			
	      //Chiamo la funzione GetCheckNum nella DLL
	       wchar_t *m_ean12_chars = _T("800317001479");

           CHECK_NUM CheckNumber;

	       CheckNumber = (CHECK_NUM) GetProcAddress(hMd,(LPCSTR)("GetCheckNum"));

		   wchar_t *m_CheckChar = CheckNumber(m_ean12_chars);

		   wcout << "Check digit : " << (LPCSTR)(m_CheckChar) << endl << endl;
		   
		   wcout << "EAN13 : " << m_ean12_chars << (LPCSTR)(m_CheckChar) << endl << endl << "Premere un tasto per continuare..." << endl;

		   getchar();
			}


		  FreeLibrary(hMd);
		}
	}
	else
	{
		// TODO: modificare il codice di errore in base alle esigenze.
		_tprintf(_T("Errore irreversibile: GetModuleHandle non riuscito\n"));
		nRetCode = 1;
	}


	return nRetCode;
}


C#:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Runtime.InteropServices;


namespace bcodecheck
{
 
    public partial class Form1 : Form
    {

         
         //Compilare settando : "Piattaforma di destinazione x86" 
         //se usi la versione x86;
         //"Any CPU" se usi la versione x64;

[DllImport("bcodesupport_x86.dll", CallingConvention=CallingConvention.StdCall, 
CharSet=CharSet.Unicode)]

public static extern IntPtr GetCheckNum(string bcode);

        public Form1()
        {
            InitializeComponent();
        }

     
        private void button1_Click(object sender, EventArgs e)
        {
             string val = Marshal.PtrToStringAnsi(GetCheckNum(textBox1.Text));
             textBox2.Text = val;
           

        }

      
    }
}
Delphi:
unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

  function GetCheckNum(ean:PAnsiChar):PansiChar;stdcall;external 'bcodesupport_x86.dll';

type
  TForm2 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }


  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var ean12 : PAnsiChar;
begin
ean12 := PAnsiChar(Edit1.Text);
Edit2.Text := GetCheckNum(ean12);
Edit3.Text := Edit1.Text + Edit2.Text;
end;

end.


Processing request, please wait...


download
EAN13 Check Digit Demo Application 

download
EAN13 Check Digit DLL x86 e x64 

download
EAN13 Check Digit Demo Application 

download
EAN13 Check Digit DLL x86 e x64 



Giuseppe Pischedda 2013


Ehi, se ti va puoi offrirmi un caffè.


Ehi, se ti va puoi offrirmi un caffè.

Informativa estesa art.13 d.lgs. 196/03 ed art. 13 del Regolamento UE 2016/679 del 27 aprile 2016 (privacy)