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.

@Snkt:: Willkommen im Forum.
1. Editiere bitte Deinen 1. Post (Button Bearbeiten) und formatiere Deinen Quelltext als VB-Code - gugst Du hier.
2. Gibt es zu diesem Drucker keinen Windows-Druckertreiber?
3. Wenn nein: Gibt es eine Page, auf der die Kommunikation mit diesem Drucker beschrieben ist?

Welcher Hersteller ist das denn?

Sieht nach Epson POS-Drucker aus, der über einen Webservice angesprochen wird.

Ich würde mal nachprüfen, ob auf dem Server 192.168.178.24 nicht irgendwo eine Webservice-Definition (WSDL) verfügbar ist.

Im Moment markiert er mir das zweite "</s:Envelope>" als fehlerhaft, wenn ich es aber nur einmal verwende sind die XML Anweisungen noch offen. Einen herkömmlichen Druckertreiber von Microsoft konnte ich nicht finden.

Nicht

Snkt schrieb:

Einen herkömmlichen Druckertreiber von Microsoft

sondern einen speziellen für Deinen Drucker unter Windows.

Wenn der Drucker lokal angeschlossen ist, würde ich es mit dem Epson Acvanced Printer Driver versuchen.
Der unterstützt zumindest die aktuellen POS-Drucker.

Aber solange du keine Informationen wie Printertyp und Anschlussart preis gibst, ist das alles nur Stochern im Nebel.

Danke, denn Treiber habe ich ausprobiert er funktioniert
auch nur ist er für meine Zwecke ungeeignet.

Der Drucker befindet sich im lokalen Netzwerk, jedoch wird die Textdatei bzw.
werden die zu druckenden Inhalte auf einem Server erzeugt.

Ziel ist es ohne manuelles handeln den Druck direkt über den Server aus einer
Datenbank heraus auszuführen.
Mein bisheriges Problem konnte ich lösen indem ich die Variablen für jede Zeile einzeln zugewiesen habe.
Es scheitert nun aber an der Konvertierung von String zu XML. Ich bekomme die Meldung: "Der Wert vom Typ "String" kann nicht in "System.Xml.Linq.XElement" konvertiert werden.".

Betroffen sind reqbeg0 + reqbeg1 + reqbeg2 + reqbeg3 und req + reqend0 etc.
Außerdem ist mir unklar wie ich die Uhrzeit und das Datum in die XML bekommen soll hat da jemand eine Idee(Zeile 78 und 80)?



Anbei nochmal der aktuelle Code.

Viele Grüße

Ich sag ja:
Du möchtest nicht mit dem Drucker kommunizieren, sondern mit einem Webservice, der den Drucker bedient.

Versuch nicht, das SOAP-Protokoll von Hand nachzubilden, sondern binde den Webservice als solchen ein.
Da liegt bestimmt die entsprechende WSDL auf dem Server rum (oder ist anderweitig verfügbar).

Leider habe ich keine Ahnung von WSDL und ähnlichem. Ich habe nur den Auftrag das Programm mit VB umzusetzen mit anderen Vorschlägen bin ich abgeprallt.

Mein Programm funktioniert jetzt soweit auch ich habe nur noch ein kleines Problem.
Das Programm soll ja von allein starten wenn die .exe angesprochen wird. Deshalb habe ich das ganze in ein Modul verpackt.

Die Private Sub hatte ich zunächst in eine Sub main() umgewandelt.
Nur leider bezieht die Private Sub Bondruck_Click befehle von der Private Sub UploadStringCompletedEventHandler und ich nehme an das durch das fehlende Private diese nicht mehr bezogen werden können?

Also wollte ich in der Sub main() einfach die Private Sub Bondruck_Click starten, das funktioniert aber leider nicht er erwartet mit Call Bondruck_Click(?) irgendwelche Attribute anstelle von dem Fragezeichen.

ich weiß leider nicht mehr weiter bin auch für komplett andere Lösungsansätze offen. Vielen Dank schon mal.

VB.NET-Quellcode

1. Imports System.IO
2. Imports System
3. Imports System.Linq
4. Imports System.Net
5. Imports System.Windows.Forms
6. Imports System.Xml.Linq
7. Module Module1
10. ' URL of ePOS-Print supported TM printer
11. Private address As String = "http://192.168.178.20/cgi-bin/epos/service.cgi?devid=local_printer&timeout=10000"
13. ' XML namespace
14. Private soap As XNamespace = "http://schemas.xmlsoap.org/soap/envelope/"
15. Private epos As XNamespace = "http://www.epson-pos.com/schemas/2011/03/epos-print"
17. Sub mains()
18. Call Bondruck_Click(?)
21. End Sub
22. Private Sub Bondruck_Click(sender As Object, e As EventArgs)
24. Dim fs As New FileStream("C:\temp\bonkuech.txt", FileMode.Open)
25. Dim z(100) As String
26. Dim i As Integer
27. Dim sr As New StreamReader(fs)
28. Dim reqbeg0 As String
29. Dim reqbeg1 As String
30. Dim reqbeg2 As String
31. Dim reqbeg3 As String
32. Dim reqbeg4 As String
33. Dim reqbeg5 As String
34. Dim reqbeg6 As String
35. Dim reqbeg7 As String
37. Dim reqend0 As String
38. Dim reqend1 As String
39. Dim reqend2 As String
40. Dim reqend3 As String
41. Dim reqend4 As String
42. Dim reqend5 As String
43. Dim reqend6 As String
44. Dim reqend7 As String
45. Dim req0 As String
47. Dim req1 As String
48. Dim req2 As String
49. Dim req22 As String
50. Dim req As XElement
52. 'Bondrucker Textdatei einlesen
54. i = 0
55. Do Until i = 2
56. z(i) = sr.ReadLine
57. i = i + 1
58. Loop
59. i = 0
60. Do While i < 2
61. MessageBox.Show(z(i))
62. i = i + 1
63. Loop
66. ' Create print document
67. reqbeg0 = "<s:Envelope xmlns:s='http://schemas.xmlsoap.org/soap/envelope/'>"
68. reqbeg1 = "<s:Body>"
69. reqbeg2 = "<epos-print xmlns='http://www.epson-pos.com/schemas/2011/03/epos-print'>"
70. reqbeg3 = "<image width='512' height='102' color='color_1' mode='gray16'>Logo</image>"
71. reqbeg4 = "<text lang='en' smooth='true' align='center'>Straße</text>"
72. reqbeg5 = "<feed unit='30'/>"
73. reqbeg6 = "<text lang='en' smooth='true' align='center'>PLZ Ort</text>"
74. reqbeg7 = "<feed unit='50'/>"
76. req1 = "<text lang='en' smooth='true' align='left'>"
78. req2 = "</text>"
79. req22 = "<feed unit='30'/>"
80. reqend3 = "<feed unit='50'/>"
81. reqend4 = "<cut/>"
82. reqend5 = "</epos-print>"
83. reqend6 = "</s:Body>"
84. reqend7 = "</s:Envelope>"
86. req0 = reqbeg0 + reqbeg1 + reqbeg2 + reqbeg3 + reqbeg4 + reqbeg5 + reqbeg6 + reqbeg7
88. i = 0
89. Do While i < 2
90. req0 = req0 + req1 + z(i) + req2 + req22
91. 'Label1.Text = req0.ToString
92. i = i + 1
93. Loop
94. req0 = req0 + reqend3 + reqend4 + reqend5 + reqend6 + reqend7
96. req = XElement.Parse(req0, LoadOptions.PreserveWhitespace)
102. ' Send print document
103. Dim client As WebClient = New WebClient()
104. client.Headers.Set("Content-Type", "text/xml; charset=utf-8")
105. AddHandler client.UploadStringCompleted, AddressOf UploadStringCompletedEventHandler
106. client.UploadStringAsync(New Uri(address, UriKind.Absolute), req.ToString())
108. End Sub
112. ' Receive response document
113. Private Sub UploadStringCompletedEventHandler(sender As Object, e As UploadStringCompletedEventArgs)
115. If (e.Error IsNot Nothing) Then
116. MessageBox.Show(e.Error.Message)
117. Else
118. 'Parse response document
119. Dim res As XElement = XElement.Parse(e.Result)
120. Dim c = From el In res.Descendants(epos + "response") Select el.Attribute("success")
121. 'MessageBox.Show(c.First().Value)
122. End If
124. End
126. End Sub
127. End Module

Viele Grüße

Was darf ich mir hierunter vorstellen?

Snkt schrieb:

Das Programm soll ja von allein starten wenn die .exe angesprochen wird.

Mach Dir eien WinForm-Anwendung, mit der Du zumindest den Druckvorgang über einen Button starten kannst. Außerdem lässt sich solch wesentlich einfacher debuggen.
Dein Code als solcher ist eher suboptimal.

VB.NET-Quellcode

1. i = 0
2. Do Until i = 2
3. z(i) = sr.ReadLine
4. i = i + 1
5. Loop
6. i = 0
7. Do While i < 2
8. MessageBox.Show(z(i))
9. i = i + 1
10. Loop

könnte so aussehen, wenn wir davon ausgehen, dass die Anzahl der Zeilen nicht permanent auf 2 festgelegt ist:

RodFromGermany schrieb:

Was darf ich mir hierunter vorstellen?

Snkt schrieb:

Das Programm soll ja von allein starten wenn die .exe angesprochen wird.

Mach Dir eien WinForm-Anwendung, mit der Du zumindest den Druckvorgang über einen Button starten kannst. Außerdem lässt sich solch wesentlich einfacher debuggen.
Dein Code als solcher ist eher suboptimal.

Ich hatte ja zunächst eine WinForm-Anwendung aber ich möchte den Druckvorgang nicht durch das betätigen eines Buttons auslösen.
Mein Programm soll vom Server aus gestartet werden ohne das der Nutzer unter Windows noch einen Button betätigen muss.

Die MessageBox ist aktuell übrigens auskommentiert diente nur zur überprüfung.

Vielen Dank für den Code- Vorschlag!

Snkt schrieb:

aber ich möchte den Druckvorgang nicht durch das betätigen eines Buttons auslösen.

Das ist doch kein Grund, eine Console-Anwendung zu verwenden.
In das Form_Shown-Event kannst Du reinpacken, was "Autostart" sein soll.

Ok das klingt wesentlich einfacher :-). Nur wie genau kann ich das umsetzen?

Snkt schrieb:

Nur wie genau kann ich das umsetzen?

Generier Dir den Handler zum Form_Shown-Event:

und ruf von da aus Deinen Code auf und feddich.

Juhuu es funktioniert vielen Dank!