vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
tcpClient - Header-Daten korrekt zurücksenden 
Autor: NeoGriever
Datum: 11.06.19 14:24

Ich verzweifle grad an einem eigentlich einfachen System ... Im Netz kann ich partou keine Lösung für genau das finden, was ich lösen will.

Imports System.Net
Imports System.Net.Sockets
Imports System.Collections.Specialized
Imports System.IO
Imports System.Threading
Imports System.Windows.Forms
 
Module Program
	Public tcpClient As New System.Net.Sockets.TcpClient()	
	Sub Main()
		Dim rThread As New Thread(AddressOf StartListening)
		rThread.IsBackground = True
		rThread.Start()
		Console.ReadLine()
	End Sub
 
	Sub StartListening()
		Dim myTcpListener As TcpListener
		Try
			myTcpListener = New TcpListener(5155)
		Catch exp As Exception
			Console.WriteLine("Error:")
			Console.WriteLine(exp.Message & ":" & exp.StackTrace)
			Exit Sub
		End Try
		myTcpListener.Start()
		While (True)
			Try
				Dim networkStream As NetworkStream
				Dim tcpClient As TcpClient
				If myTcpListener.Pending Then
					tcpClient = myTcpListener.AcceptTcpClient()
					networkStream = tcpClient.GetStream()
 
					If networkStream.CanRead Then
						Dim buffer(tcpClient.ReceiveBufferSize) As Byte
						networkStream.Read(buffer, 0, CInt(tcpClient.ReceiveBufferSize))
						Dim result As String = System.Text.Encoding.UTF8.GetString(buffer).Trim()
						Console.WriteLine(DateTime.Now.ToLongTimeString())
						Console.WriteLine(result)
					End If
 
					If networkStream.CanWrite Then
						Answer(networkStream, String.Format("HTTP/1.0 {0} {1}\r\n", "200", _
  "Ready"))
						Answer(networkStream, String.Format("Content-Type: {0}\r\n", _
"image/jpeg"))
						Answer(networkStream, "\r\n\r\n")
						networkStream.Flush()
 
						Dim picBuffer() As Byte = System.IO.File.ReadAllBytes( _
  "C:\Wallpaper\wald.jpg")
						networkStream.Write(picBuffer, 0, picBuffer.Length)
 
					End If
					networkStream.Close()
					tcpClient.Close()
				End If
			Catch exp As Exception
				Console.WriteLine("Error:")
				Console.WriteLine(exp.ToString())
			End Try
		End While
		myTcpListener.Stop()
	End Sub
 
	Sub Answer (ByRef strm As NetworkStream, ByVal strng As String)
		Console.WriteLine("Gesendet:")
		Console.WriteLine(" --- ")
		Console.WriteLine(strng)
		Console.WriteLine(" --- ")
		Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(strng)
		strm.Write(data, 0, data.Length)
	End Sub
End Module
Es ist ein #Dev4.4-Konsolenanwendungs-Projekt auf vb.net-basis.

Es dürfte aber klar sein, was ich versuche. Dennoch krieg ich ständig beim Aufruf von localhost:5155 application/octet-stream als datentyp ... -.- ich will nur, dass das bild angezeigt wird ... (oder entsprechend halt die daten, die ich anzeigen will)

Kann mir da wer nen Tipp geben, wie ich das mit den Header-Daten korrekt umgesetzt krieg?
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
tcpClient - Header-Daten korrekt zurücksenden262NeoGriever11.06.19 14:24
Re: tcpClient - Header-Daten korrekt zurücksenden80sv0001012.06.19 20:45
Re: tcpClient - Header-Daten korrekt zurücksenden74NeoGriever12.06.19 21:33
Re: tcpClient - Header-Daten korrekt zurücksenden70sv0001013.06.19 16:02
Re: tcpClient - Header-Daten korrekt zurücksenden71NeoGriever13.06.19 18:19
Re: tcpClient - Header-Daten korrekt zurücksenden75sv0001013.06.19 22:09
Re: tcpClient - Header-Daten korrekt zurücksenden66NeoGriever14.06.19 02:51
Re: tcpClient - Header-Daten korrekt zurücksenden66sv0001014.06.19 07:43
Re: tcpClient - Header-Daten korrekt zurücksenden59NeoGriever14.06.19 12:42
Re: tcpClient - Header-Daten korrekt zurücksenden57sv0001014.06.19 15:07
Re: tcpClient - Header-Daten korrekt zurücksenden61NeoGriever14.06.19 15:57
Re: tcpClient - Header-Daten korrekt zurücksenden51sv0001014.06.19 16:43
Re: tcpClient - Header-Daten korrekt zurücksenden55sv0001014.06.19 16:59
Re: tcpClient - Header-Daten korrekt zurücksenden55sv0001014.06.19 18:32
Re: tcpClient - Header-Daten korrekt zurücksenden56Kuno6015.06.19 22:45
Re: tcpClient - Header-Daten korrekt zurücksenden53NeoGriever16.06.19 01:50

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel