Hallo zusammen !

Auch auf die Gefahr den Thread um die Ohren gehauen zu bekommen, eine Lösung zu meinem Problem konnte ich hier bisher leider nicht ableiten (Anfänger..)
Ich versuche eine Datei (welche bereits die generischen Druckerbefehle beinhaltet) per IP an einen Netzwerkdrucker zu senden.
Meine ersten Gehversuche über einen TcpClient hatten keinen Erfolg.
Hat wer ne Idee das Thema professioneller anzugehen ? -hier einer meiner Versuche

Vorab Danke !



Try
Dim dataSend() As Byte

Dim myUdpClient As UdpClient = New UdpClient("192.168.2.174", 9100)
Dim myFilestream As FileStream
myFilestream = New FileStream("c:\lasertest.ptf", FileMode.Open, FileAccess.Read)
ReDim dataSend(myFilestream.Length)
myFilestream.Read(dataSend, 0, myFilestream.Length)
myUdpClient.Send(dataSend, dataSend.Length)
myFilestream.Close()
myUdpClient.Close()

Catch ex As Exception
Console.WriteLine(ex.Message)
End Try

hab's gefunden


Dim s As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
If s.Connected = True Then
s.Disconnect(True)
s.Close()
End If
s.Connect("192.168.2.174", 9100)
s.SendFile("C:\lasertest.ptf")
s.Disconnect(True)
s.Close(2)