Hallo,
wie die Überschrift schon sagt möchte ich eine Textdatei mit Visual Basic einlesen und die darin enthaltenen Angaben an einen Thermo- Drucker weiterleiten.
Dieser unterstützt XML.
Die Textdatei einzulesen stellt kein Problem dar jedoch die Ausgabe bzw. weiterleitung, vielleicht erkennt ja jemand denn Fehler und kann mir weiter helfen.
Vielen Dank schon mal!
Edith: Ja es handelt sich um einen Epson Drucker um genau zu sein den "Epson TMT 88 i".
Unter download.epson-biz.com/modules…age=prod&pcat=52&pid=2773 gibt es Beispielprogramme.
wie die Überschrift schon sagt möchte ich eine Textdatei mit Visual Basic einlesen und die darin enthaltenen Angaben an einen Thermo- Drucker weiterleiten.
Dieser unterstützt XML.
Die Textdatei einzulesen stellt kein Problem dar jedoch die Ausgabe bzw. weiterleitung, vielleicht erkennt ja jemand denn Fehler und kann mir weiter helfen.
VB.NET-Quellcode
- Imports System.IO
- Imports System
- Imports System.Linq
- Imports System.Net
- Imports System.Windows.Forms
- Imports System.Xml.Linq
- Public Class Form1
- ' URL of ePOS-Print supported TM printer
- Private address As String = "http://192.168.178.24/cgi-bin/epos/service.cgi?devid=local_printer&timeout=10000"
- ' XML namespace
- Private soap As XNamespace = "http://schemas.xmlsoap.org/soap/envelope/"
- Private epos As XNamespace = "http://www.epson-pos.com/schemas/2011/03/epos-print"
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Print.Click
- Dim fs As New FileStream("ein.txt", FileMode.Open)
- Dim z(100) As String
- Dim i As Integer
- Dim sr As New StreamReader(fs)
- Dim reqbeg As String
- Dim reqend As String
- Dim req1 As String
- Dim req2 As String
- 'Bondrucker Textdatei einlesen
- Dim req As String
- i = 0
- Do Until i = 2
- z(i) = sr.ReadLine
- i = i + 1
- Loop
- i = 0
- Do While i < 2
- 'MessageBox.Show(z(i))
- i = i + 1
- Loop
- ' Create print document
- Dim reqbeg As String =
- <s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
- <s:Body>
- <epos-print xmlns="http://www.epson-pos.com/schemas/2011/03/epos-print">
- <image width="512" height="102" color="color_1" mode="gray16">Logo</image>
- <text lang="en" smooth="true" align="center">Straße Nr.</text>
- <feed unit="30"/>
- <text lang="en" smooth="true" align="center">PLZ Ort</text>
- <feed unit="50"/>
- req1 = <text lang="en" smooth="true" align="center"></text>
- req2 = <text lang="en" smooth="true" align="center"></text>
- <feed unit="50"/>
- reqend = <text lang="en" smooth="true" align="center">Datum</text>
- <feed unit="30"/>
- <text lang="en" smooth="true" align="center">Uhrzeit</text>
- <feed unit="50"/>
- <cut/>
- </s:Body>
- </s:Envelope>
- </s:Envelope>
- req = reqbeg + req1 + z(i) + req2 & reqend
- ' Send print document
- Dim client As WebClient = New WebClient()
- client.Headers.Set("Content-Type", "text/xml; charset=utf-8")
- AddHandler client.UploadStringCompleted, AddressOf UploadStringCompletedEventHandler
- client.UploadStringAsync(New Uri(address, UriKind.Absolute), req.ToString())
- End Sub
Vielen Dank schon mal!
Edith: Ja es handelt sich um einen Epson Drucker um genau zu sein den "Epson TMT 88 i".
Unter download.epson-biz.com/modules…age=prod&pcat=52&pid=2773 gibt es Beispielprogramme.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Snkt“ ()