Public Sub print_file(ByVal sender As Object, ByVal e As EventArgs)
'Nastavení komunikace IP ADRESA TISKÁRNY + PORT
Dim clientSocket As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
clientSocket.NoDelay = True
Dim ip As IPAddress = IPAddress.Parse("192.168.11.117")
Dim ipep As IPEndPoint = New IPEndPoint(ip, 9100)
'Otevření spojení
Try
clientSocket.Connect(ipep)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
'Načtení etikety dle ascii tabulky (SOH)FMB---rTEXTBOX1.TEXT(ETB)
Dim s As String = Assy_line_light.split_char.Text
Dim bytes = Encoding.ASCII.GetBytes(s)
Dim bytesToSend As Byte() = New Byte(7) {&H1, &H46, &H4D, &H42, &H2D, &H2D, &H2D, &H52}
Dim bytesToSend2 As Byte() = New Byte(0) {&H17}
Dim load = bytesToSend.Concat(bytes).ToArray()
Dim load2 = load.Concat(bytesToSend2).ToArray()
Try
clientSocket.Send(load2)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
'Tisk etikety dle ascii tabulky (SOH)FBC---r--------(ETB)
System.Threading.Thread.Sleep(500)
Dim print As Byte() = New Byte(15) {&H1, &H46, &H42, &H44, &H2D, &H2D, &H2D, &H53, &H2D, &H2D, &H2D, &H2D, &H2D, &H2D, &H2D, &H17}
Try
clientSocket.Send(print)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
'Uzavření spojení
clientSocket.Close()
End Sub