zebraprinterutilities/ZebraPrinter.vb

Imports System.IO
Imports System.Text
Imports System.Threading.Tasks
Imports Zebra.Sdk.Comm
Imports Zebra.Sdk.Printer
Imports Zebra.Sdk.Printer.Discovery

Class ZebraPrinter

   Private m_FileLog As String
   Private m_Values As New Dictionary(Of String, String)
   Private m_LabelBytes As Byte()
   Private m_printerConnection As Connection = Nothing
   Private m_sDataRoot As String
   Private m_Waiting As Boolean = True

   ' dichiarazione funzione per lettura file ini
   Private Declare Auto Function GetPrivateProfileString Lib "kernel32" (
            ByVal lpAppName As String,
            ByVal lpKeyName As String,
            ByVal lpDefault As String,
            ByVal lpReturnedString As StringBuilder,
            ByVal nSize As Integer,
            ByVal lpFileName As String) As Integer


   ' inizilizzo il file di log inserendo la data dell'esecuzione
   Sub InitLog()
      ' Impostazione path radice per i dati
      m_sDataRoot = System.AppDomain.CurrentDomain.BaseDirectory
      Dim sb = New StringBuilder(500)
      If GetPrivateProfileString("Data", "DataRoot", "", sb, sb.Capacity, m_sDataRoot & "DataRoot.ini") = 0 Then
         m_sDataRoot = System.AppDomain.CurrentDomain.BaseDirectory
      Else
         m_sDataRoot = sb.ToString
      End If
      Dim ThisMoment As Date = Now
      m_FileLog = m_sDataRoot & "\Temp\ZebraPrinterUtilityLog " & ThisMoment.Day.ToString & "_" & ThisMoment.Month & "_" & ThisMoment.Year & ".txt"
      If Not File.Exists(m_FileLog) Then
         Try
            File.Create(m_FileLog).Close()
         Catch ex As Exception
         End Try
      End If
      Try
         Dim sMessage As StreamWriter = File.AppendText(m_FileLog)
         sMessage.WriteLine(DateTime.Now.ToString)
         sMessage.Close()
      Catch ex As Exception
      End Try

   End Sub

   ' Funzione per scrivere nel file di Log
   Sub EmitLog(sLine As String)
      Dim sMessage As StreamWriter = File.AppendText(m_FileLog)
      sMessage.WriteLine(sLine)
      sMessage.Close()
   End Sub

   ' collego la stampante
   Friend Function ConnectPrinter() As Boolean
      Try
         Dim discoPrinters As List(Of DiscoveredPrinterDriver) = UsbDiscoverer.GetZebraDriverPrinters()
         m_printerConnection = New DriverPrinterConnection(discoPrinters(0).PrinterName)
         Return True
      Catch ex As ConnectionException
         EmitLog("Printer connection error: " & ex.Message)
         Return False
      Catch
         EmitLog("Printer not found error")
         Return False
      End Try
   End Function

   ' creo e stampo l'etichetta (ricevo il nome del template da usare)
   Public Sub Print(FilePath As String)
      Try
         ' Connecting...
         m_printerConnection.Open()
         EmitLog("Connessione stampante: APERTA")
         ' Sending Data...
         Dim LabelFile As String = File.ReadAllText(FilePath)
         For Each Variable In m_Values
            LabelFile = LabelFile.Replace(Variable.Key, Variable.Value)
         Next
         Dim LabelBytes As Byte() = Encoding.UTF8.GetBytes(LabelFile)
         Task.Delay(200)
         ' stampo etichetta
         m_printerConnection.Write(LabelBytes)
         m_Waiting = False
         EmitLog("Etichetta pronta")
      Catch __unusedConnectionException1__ As ConnectionException
         EmitLog(__unusedConnectionException1__.ToString)
         ' Communications Error
      Catch __unusedZebraPrinterLanguageUnknownException2__ As ZebraPrinterLanguageUnknownException
         EmitLog(__unusedZebraPrinterLanguageUnknownException2__.ToString)
      Catch ex As Exception
         EmitLog(ex.ToString)
      End Try

      ' Chiudo la connessione
      Try
         'Threading.Thread.Sleep(500)
         Threading.Thread.Sleep(200)
         ' Disconnecting...
         If Not IsNothing(m_printerConnection) Then
            m_printerConnection.Close()
            EmitLog("Connessione stampante: CHIUSA")
            Threading.Thread.Sleep(1000)
         End If
         ' Not Connected
      Catch __unusedConnectionException1__ As ConnectionException
         EmitLog(__unusedConnectionException1__.ToString)
      Catch ex As Exception
         EmitLog(ex.ToString)
      End Try
   End Sub


   ' Lettura file ini
   Private Function ReadValue(FilePath As String) As Boolean
      ' verifico che il file esiste
      If Not File.Exists(FilePath) Then
         EmitLog("File '" & FilePath & "' non esiste.")
         Return False
      End If

      Dim sb = New StringBuilder(500)
      Dim Index As Integer = 1
      Dim nResult As Integer = -1
      ' leggo l'elenco delle variabili
      While nResult <> 0
         Try
            nResult = GetPrivateProfileString("Main", "Var" & Index.ToString, "", sb, sb.Capacity, FilePath)
         Catch ex As Exception
            EmitLog(ex.ToString)
            Index = Index + 1
            Continue While
         End Try
         Dim sItems As String() = sb.ToString.Split(","c)
         If sItems.Count = 2 Then
            m_Values.Add(sItems(0).Trim, sItems(1).Trim)
         End If
         Index = Index + 1
      End While

      EmitLog("Dati caricati")
      Return True
   End Function

   Sub New(args As String())

      InitLog()
      ConnectPrinter()

      ' verifico che il numero di argomenti sia superiore a 2 (migliorare l'interpretazione dell'errore)
      If args.Length < 2 Then
         EmitLog("Non sono stati esplicictati tutti i file")
         Return
      End If

      EmitLog("File template: " & args(0))
      ' verifico che l'estensione del file sia corretta
      If Path.GetExtension(args(0)) <> ".prn" Then
         EmitLog("Estensione file template non corretta, diversa da .prn")
         Return
      End If
      ' verifico che il file esiste
      If Not File.Exists(args(0)) Then
         EmitLog("File '" & args(0) & "' non esiste.")
      End If

      EmitLog("File dati: " & args(1))
      ' verifico che l'estensione del file sia corretta
      If Path.GetExtension(args(1)) <> ".ini" Then
         EmitLog("Estensione file dati non corretta, diversa da .ini")
         Return
      End If

      ' leggo l'elenco dei dati da stampare
      If Not ReadValue(args(1)) Then Return
      ' stampo etichetta
      Print(args(0))

      ' metto il programmma in attesa
      Threading.Thread.Sleep(1000)

      ' elimino il file dei dati
      Try
         File.Delete(args(1))
         EmitLog("Eliminato file " & args(1))
      Catch ex As Exception
         EmitLog(ex.ToString)
      End Try
   End Sub


End Class