HTTP Image transfer

mrman34 · 8. Dezember 2013, 17:07

Hallo

Ich habe folgende Frage zum Aufbau des HTT Protkolls: Wenn ich eine html Datei verschicke könnte der Header + Content folgender sein:

HTML-Quellcode

HTTP/1.1 200 OK
Server: Apache...
Content-Length: 345
Content-Language: de
Connection: close
Content-Type: text/html
<html>
...
</html>

Wenn ich nun aber ein Bild versende ist der Header zB folgender:

Quellcode

HTTP/1.1 200 OK
Server: Apache...
Content-Length: 107849
Content-Language: de
Connection: close
Content-Type: image/png

Die Frage jetzt: wie sieht der content aus, wie funktioniert es generell ein Bild zu versenden ? Meine überlegung war, das bild in einen base64 string zu konvertieren und wie bei dem Versenden der html Datei in den content zu schrieben, hatte allerdings nicht geklappt.

Danke schonmal,
Felix

EiPott · 8. Dezember 2013, 17:28

Soweit ich weiss werden die Daten der Bilddatei als Bytes nach dem Header versendet. Also eigentlich die ganze Datei an sich bzw. das was du z. B. in einem Hex-Editor zu sehen bekommst.

Manawyrm · 8. Dezember 2013, 17:28

Ganz einfach: mit dem Header Feld "Content-Type:" wird der MIME-Type also das Dateiformat angegeben.
Die Daten werden dann binär (also nicht als Text) übertragen.

Theoretisch gäbe es zwar einige Möglichkeiten an dieser Stelle Base64 zu nutzen, das ist aber nicht zielführend, weil dabei die Dateien um 33,3% größer werden..

BlackNetworkBit · 8. Dezember 2013, 19:13

Hier ist ein kleiner snippet zum versenden von einem Bild per Html-Protocol

[VB.NET] HTTP Web-Signatur Server
einfach anschauen und weiter verwenden

mrman34 · 8. Dezember 2013, 19:45

Okay, ich steh' aufm Schlauch. Habe mich jetzt mal an den HTTP Web-Signatur Server gehalten, mein Code also:

VB.NET-Quellcode

Dim bta As Bitmap
bta = Image.FromFile(path & param)
Dim bte() As Byte = Image2ByteArray(bta, Imaging.ImageFormat.Jpeg)
header(2) &= bte.Length
Dim headerStr As String = Nothing
For i As Integer = 0 To header.Length - 1
headerStr &= header(i) & vbCrLf
Next
Dim w As New StreamWriter(pClient.GetStream)
w.Write(headerStr)
w.Flush()
w.Write(bte)
w.Flush()

Image2ByteArray:

VB.NET-Quellcode

Dim MS As New IO.MemoryStream
Bild.Save(MS, Bildformat)
MS.Flush()
Return MS.ToArray

Mein erzeugter Header:

Quellcode

HTTP/1.1 200 OK
Server: HTTPServerTest
Content-Length: 110453
Content-Language: de
Connection: close
Content-Type: image/jpeg

Der content geht ja aus dem VB Code hervor, ein Auschnitt:

Quellcode

255
146
54
0
1
43

und so weiter...

Mein Firefox Browser läd allerdings nur ewig lange und es passiert nichts, html Seiten stellt er super da, wenn ich sie ihm schicke, das heißt, generell kommt ja was an. Wo liegt mein (Denk)Fehler ?

Danke schonmal, hoffe mein Fehler ist nicht all zu gravierend.

BlackNetworkBit · 9. Dezember 2013, 16:36

du Flushts die 2 mal

1 mal nach dem w.Write(bte) reicht

und du musst unter dem Header noch ein Leerzeichen machen

dann müsste das Funktionieren

mrman34 · 10. Dezember 2013, 15:49

Habe den Code jetzt wie folge angepasst:

VB.NET-Quellcode

headerStr &= vbCrLf
Dim w As New StreamWriter(pClient.GetStream)
w.Write(headerStr)
w.Write(bte)
w.Flush()

Das Problem bleibt allerdings bestehen, der Browser läd ewig, ohne Ergebnis.

BlackNetworkBit · 10. Dezember 2013, 15:57

Zeig doch bitte deinen gesamten Code

sonnst sitzen wir noch in circa 1 Woche

so habe hier mal meinen Server vereinfacht

VB.NET-Quellcode

Imports System.Drawing
Module Module1
Dim server As System.Net.Sockets.TcpListener
Sub Main()
Console.WriteLine("Gestartet")
server = New Net.Sockets.TcpListener(New System.Net.IPEndPoint(System.Net.IPAddress.Any, 80))
server.Start()
Read()
End Sub
Public Sub Read()
Dim net As New System.Net.Sockets.TcpClient
Dim charEncoder As New System.Text.ASCIIEncoding
Dim MYFONT As New Font("Arial", 12)
Dim Grundheaderbeginn As String = "HTTP/1.0 200 OK" & Environment.NewLine & "Content-Type: "
Dim Grundheaderend As String = Environment.NewLine & "Connection: close" & Environment.NewLine & Environment.NewLine
Dim bta As New Bitmap("DEINBILD")
Do
Try
net = server.AcceptTcpClient
Dim stream As System.Net.Sockets.NetworkStream = net.GetStream
Dim sr As New IO.StreamReader(stream)
Dim dt As String = String.Empty
Dim tempval As String = String.Empty
Do
tempval = sr.ReadLine
dt &= tempval & Environment.NewLine
Loop Until tempval = String.Empty
Dim st As String() = dt.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
Dim IP_ADDRESSE As String = net.Client.RemoteEndPoint.ToString.Split({":"}, StringSplitOptions.RemoveEmptyEntries)(0)
Dim Client_OS As String = String.Empty
Dim bool As Boolean = False
For i = 0 To st.Length - 1
If st(0).ToLower.StartsWith("get /bnb.png") = True Then
bool = True
Exit For
End If
Next
If bool = True Then
Dim bte As Byte() = Image2ByteArray(bta, Imaging.ImageFormat.Png)
writebyteinstream(stream, charEncoder.GetBytes(Grundheaderbeginn & "image/png" & vbNewLine & "Content-Length: " & bte.Length.ToString & Grundheaderend))
writebyteinstream(stream, bte)
Else
Dim ERROR_String As String = "<center><h2>This site dosent exist ;)</h2><p><p>pleas try this document : /signatur-server.png</center>"
writebyteinstream(stream, charEncoder.GetBytes(Grundheaderbeginn & "text/html" & vbNewLine & "Content-Length: " & ERROR_String.Length.ToString & Grundheaderend & ERROR_String))
End If
net.Close()
Catch ex As Exception
Console.Write("Time : " & DateTime.Now.ToString & Environment.NewLine & ex.ToString & Environment.NewLine)
End Try
Loop
End Sub
Public Sub writebyteinstream(ByVal stream As System.Net.Sockets.NetworkStream, bytes As Byte())
stream.Write(bytes, 0, bytes.Length)
stream.Flush()
End Sub
Public Function Image2ByteArray(ByVal Bild As Bitmap, ByVal Bildformat As System.Drawing.Imaging.ImageFormat) As Byte()
Dim MS As New IO.MemoryStream
Bild.Save(MS, Bildformat)
MS.Flush()
Return MS.ToArray
End Function
End Module

Die Seite müsste man dann so aufrufen :

Quellcode

http://127.0.0.1/BNB.png

mrman34 · 11. Dezember 2013, 22:34

So hier der gesamte relevante Code:

VB.NET-Quellcode

Private Sub auswerten(ByVal inputText As String, ByVal pClient As TcpClient, ByVal path As String)
Dim tZeilen() As String = inputText.Split(vbCrLf)
Dim operat As String = tZeilen(0).Split(" ")(0)
Dim param As String = tZeilen(0).Split(" ")(1)
If param = "/" Then
send(pClient, File.ReadAllText(path & "\index.html"))
Else
param = param.Replace("/", "")
If IO.File.Exists(path & param) = True Then
'Header erstellen----------------------
Dim fileFormatArr() As String = param.Split(".")
Dim fileFormat As String = fileFormatArr(fileFormatArr.Length - 1)
Dim header() As String = IO.File.ReadAllLines(path & "\header")
If fileFormat = "html" Then
header(5) &= "text/" & fileFormat
Else
header(5) &= "image/" & "jpeg"
End If
'Bild laden und in byte array konvertieren
Dim bta As Bitmap
bta = Image.FromFile(path & param)
Dim bte() As Byte = Image2ByteArray(bta, Imaging.ImageFormat.Jpeg)
'Ende Bild laden + konvertieren
header(2) &= bte.Length
Dim headerStr As String = Nothing
For i As Integer = 0 To header.Length - 1
headerStr &= header(i) & vbCrLf
Next
headerStr &= vbCrLf
'Ende Header erstellen -----------------------
Dim stream As NetworkStream = pClient.GetStream
send(pClient, headerStr)
writebyteinstream(stream, bte)
End If
End If
End Sub
Public Sub writebyteinstream(ByVal stream As System.Net.Sockets.NetworkStream, ByVal bytes As Byte())
stream.Write(bytes, 0, bytes.Length)
stream.Flush()
End Sub
Public Function Image2ByteArray(ByVal Bild As Bitmap, ByVal Bildformat As System.Drawing.Imaging.ImageFormat) As Byte()
Dim MS As New IO.MemoryStream
Bild.Save(MS, Bildformat)
MS.Flush()
Return MS.ToArray
End Function

auswerten wird aufgerufen, sobald eine message vom client reinkommt, der Parameter inputText ist eben diese message der parameter pClient ist der Client von dem die message kommt und path der Pfad zu dem Verzeichnis in dem die html dokumente und bilder liegen.
die methode send funktionert ohne Probleme. Habe mit der "netzwerkanalyse" vom firefox auch rausgefunden, dass mein header richtig ankommt, es aber nicht möglich ist das Bild darzustellen da es "Fehler enthält".
Danke schonmal

BlackNetworkBit · 11. Dezember 2013, 22:43

so es gibt eine Funktion die IO.Path.combine heißt diese kombiniert 2 Files, diese Funktion solltest du Hier :

VB.NET-Quellcode

If IO.File.Exists(path & param) = True Then

auch nutzen da es momentan zu Fehler kommen kann

aber ich würde dir raten erst mal den gesamten Sub raus zu nehmen.
vielleicht wäre es auch noch gut zu wissen was in der Datei \Header drin steht

ich würde auch am besten diesen Code :

VB.NET-Quellcode

bta = Image.FromFile(path & param)

durch das ersetzen :

VB.NET-Quellcode

Dim bta As new Bitmap(IO.Path.combine(path ,param))

mrman34 · 11. Dezember 2013, 23:23

Der text aus meinem header dokument:

Quellcode

HTTP/1.1 200 OK
Server: HTTPServerTest
Content-Length:
Content-Language: de
Connection: close
Content-Type:

Außerdem habe ich nur noch ein false bei meiner if abfrage bekommen, ob die datei existiert, als ich io.path.combine benutzt habe. Habe daraufhin mal folgendes getestet:

VB.NET-Quellcode

Dim pathTest as String = IO.Path.Combine(path, param)

pathTest hat allerdings leider den wert "\emsa.jpg" also nur den wert aus param.

BlackNetworkBit · 12. Dezember 2013, 18:55

So ich habe mir mal die Zeit genommen etwas zu schreiben :

VB.NET-Quellcode

Imports System.Drawing
Module Module1
Dim server As System.Net.Sockets.TcpListener
Dim charEncoder As New System.Text.ASCIIEncoding
Sub Main()
If IO.Directory.Exists(My.Computer.FileSystem.CurrentDirectory & "\public_html") = False Then
IO.Directory.CreateDirectory(My.Computer.FileSystem.CurrentDirectory & "\public_html")
End If
Console.WriteLine("Gestartet")
server = New Net.Sockets.TcpListener(New System.Net.IPEndPoint(System.Net.IPAddress.Any, 80))
server.Start()
Read()
End Sub
Public Sub Read()
Dim Grundheaderbeginn As String = "HTTP/1.0 200 OK" & Environment.NewLine & "Content-Type: "
Dim net As New System.Net.Sockets.TcpClient
Dim MYFONT As New Font("Arial", 12)
Dim Grundheaderend As String = Environment.NewLine & "Connection: close" & Environment.NewLine & Environment.NewLine
Dim directoryfiles As New List(Of String)
Dim stea As String() = IO.Directory.GetFiles(My.Computer.FileSystem.CurrentDirectory & "\public_html")
Dim Dateitypen As String() = {"png", "jpg", "gif", "bmp", "html", "css", "txt"}
Dim bilddata As String() = {"png", "jpg", "gif", "bmp"}
Dim normaltypes As String() = {"html", "css", "txt"}
For i = 0 To stea.Count - 1
For i2 = 0 To Dateitypen.Length - 1
If stea(i).EndsWith(Dateitypen(i2)) = True Then
directoryfiles.Add(stea(i))
Exit For
End If
Next
Next
Do
Try
net = server.AcceptTcpClient
Dim stream As System.Net.Sockets.NetworkStream = net.GetStream
Dim sr As New IO.StreamReader(stream)
Dim dt As String = String.Empty
Dim tempval As String = String.Empty
Do
tempval = sr.ReadLine
dt &= tempval & Environment.NewLine
Loop Until tempval = String.Empty
Dim st As String() = dt.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
Dim requestfile As String = ""
For i = 0 To st.Length - 1
If st(i).ToLower.StartsWith("get /") = True Then
requestfile = st(i).ToLower.Replace("get /", String.Empty).Replace(" http/1.1", String.Empty)
Console.WriteLine(requestfile)
Exit For
End If
Next
Dim bool As Boolean = False
For i = 0 To directoryfiles.Count - 1
If directoryfiles.Item(i).ToLower.EndsWith(requestfile) = True Then
Dim b As Boolean = False
For i2 = 0 To bilddata.Length - 1
If directoryfiles.Item(i).EndsWith(bilddata(i2)) = True Then
b = True
SendPicture(directoryfiles.Item(i), stream, Grundheaderbeginn, Grundheaderend)
bool = True
Exit For
End If
Next
If b = False Then
Dim c As Boolean = False
For i2 = 0 To normaltypes.Length - 1
If directoryfiles.Item(i).EndsWith(normaltypes(i2)) = True Then
SendNormalData(directoryfiles.Item(i), stream, Grundheaderbeginn, Grundheaderend)
bool = True
Exit For
End If
Next
End If
Exit For
End If
Next
If bool = False Then
Dim ERROR_String As String = "<center><h2>This document dosent exist on this server</h2><p><p>Webserver by BlackNetworkBit</center>"
writebyteinstream(stream, charEncoder.GetBytes(Grundheaderbeginn & "text/html" & Environment.NewLine & "Content-Length: " & ERROR_String.Length.ToString & Grundheaderend & ERROR_String))
End If
net.Close()
Catch ex As Exception
Console.Write("Time : " & DateTime.Now.ToString & Environment.NewLine & ex.ToString & Environment.NewLine)
End Try
Loop
End Sub
Public Sub SendPicture(ByVal file As String, stream As Net.Sockets.NetworkStream, headerstart As String, headerend As String)
Dim bta As New Bitmap(file)
Dim bte As Byte()
Dim f As String = ""
If file.EndsWith(".png") = True Then
f = "png"
bte = Image2ByteArray(bta, Imaging.ImageFormat.Png)
ElseIf file.EndsWith(".jpg") = True Then
f = "jpg"
bte = Image2ByteArray(bta, Imaging.ImageFormat.Jpeg)
ElseIf file.EndsWith(".bmp") = True Then
f = "bmp"
bte = Image2ByteArray(bta, Imaging.ImageFormat.MemoryBmp)
ElseIf file.EndsWith(".gif") = True Then
f = "gif"
bte = Image2ByteArray(bta, Imaging.ImageFormat.Gif)
ElseIf file.EndsWith(".ico") = True Then
f = "ico"
bte = Image2ByteArray(bta, Imaging.ImageFormat.Icon)
Else
f = "png"
bte = Image2ByteArray(bta, Imaging.ImageFormat.Png)
End If
writebyteinstream(stream, charEncoder.GetBytes(headerstart & "image/" & f & Environment.NewLine & "Content-Length: " & bte.Length.ToString & headerend))
writebyteinstream(stream, bte)
End Sub
Public Sub SendNormalData(ByVal file As String, stream As Net.Sockets.NetworkStream, headerstart As String, headerend As String)
Dim ERROR_String As String = IO.File.ReadAllText(file)
writebyteinstream(stream, charEncoder.GetBytes(headerstart & "text/html" & Environment.NewLine & "Content-Length: " & ERROR_String.Length.ToString & headerend & ERROR_String))
End Sub
Public Sub writebyteinstream(ByVal stream As System.Net.Sockets.NetworkStream, bytes As Byte())
stream.Write(bytes, 0, bytes.Length)
stream.Flush()
End Sub
Public Function Image2ByteArray(ByVal Bild As Bitmap, ByVal Bildformat As System.Drawing.Imaging.ImageFormat) As Byte()
Dim MS As New IO.MemoryStream
Bild.Save(MS, Bildformat)
MS.Flush()
Return MS.ToArray
End Function
End Module

Aufruf über URL zum testen :

http://127.0.0.1/index.html

so müsste eigendlich selbst erklärend sein (in dem public_html Verzeichnis liegen dann die Dateien

)
ist momentan auf ein Haupt Directory beschränkt

PS für dich sollte der Sub SendPicture interessant sein

mrman34 · 18. Dezember 2013, 23:46

Okay, das ist soweit klar, was ich allerdings jetzt überhaupt nicht verstehe ist folgendes:

Ich habe mir mit SmartSniff den Traffic an meiner Netzwerkkarte angeguckt und sehe folgendes, wenn ich ein Bild im Internet lade (undzwar sehe ich wirklich nur das und nichts anderes bei SmartSniff):

Spoiler anzeigen

Brainfuck-Quellcode

GET /mwiki/images/thumb/PapierkrebsBernadette_%287%29.jpg/440px-PapierkrebsBernadette_%287%29.jpg HTTP/1.1
Host: schuchtel.net
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:26.0) Gecko/20100101 Firefox/26.0
Accept: image/png,image/*;q=0.8,*/*;q=0.5
Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip, deflate
Referer: http://schuchtel.net/mwiki/index.php?title=Datei:PapierkrebsBernadette_(7).jpg&filetimestamp=20101122174709
Connection: keep-alive
HTTP/1.1 200 OK
Date: Wed, 18 Dec 2013 21:29:31 GMT
Server: Apache/2.2.16 (Debian)
Last-Modified: Sat, 01 Oct 2011 19:11:30 GMT
ETag: "4207b3-63eb-4ae41825bbc80"
Accept-Ranges: bytes
Content-Length: 25579
Keep-Alive: timeout=15, max=100
Connection: Keep-Alive
Content-Type: image/jpeg
......JFIF.....d.d.....WFile source: http://schuchtel.net/mwiki/index.php/Datei:PapierkrebsBernadette_(7).jpg...C...............
.
...............%...#... , #&')*)..-0-(0%()(...C....
.
.
.(...((((((((((((((((((((((((((((((((((((((((((((((((((......X.............................................:......................!1..AQa.."q.2...#..3BR.br...$4.......................................................1!A..."Q............?...^.CY..d....Ux.*8.T...7.w.I,{....*Ok.-..Q.;...#.h.ll...\..4.P..s..h.W{.@'.T.S..9....V&.&.\..Ra.$...4.J.6...H..r~.I....(D.. /......5 ......"d.b.<.ZJ..Wt.}FT.G..U(k..k...-+...O6_...~...56..i2;...........=.].X.}.w.Hq........=..Y.]h....y*.kdrT..6..R.-=IR.^..0.:[...J..rTC&r~.E.$6d.+..&JI..KM...Q....).*..+:..w..'..L.C..'........T-y/..~]...9........_...U...i'.~2./x".....p..D9...4...4..t..CJ......P...,
..U.*.G..:g..f....s......=..tj.)..g;..Z.oH....tH.f.#...U.7.[y....!)..
.~.......qR}#CL1....H..i.K.0....!..\.E...F..............$V..VY.....e.C"9*F .)$D.'\{!"laD....J...Pu....U.-7Zf...T.<WF.n........9.....>.=k..
O..y5F........................./\........0...i.YL...H..yR.......]X..9..F"..H.j.Y..R..1xQWy.T..,..p.
.C.{..+..d)U6Rf......c..&..|..mk....Q.&.Y...4.q..So...t. .......d..+-E..X@...U=...@-......L.L+F..I.l:.W.9...od..s....jC....0....+Z|.........R.h=.......X....O{...R.9..2.
'...+6:E.%-......Q.%&...r.H...Qd.).. Q..]...R.78SN...Y..d.$;.)" .R...
.]...i.....7.
P.^.....H.=.>..z..X.0.H.Tv...I..&|=e[l.]i..}...at..H.&..c.....g....nl....".@. o...C...{ldB.'.....%H...e`T....U.Zw!VN...{%...).k)......._5........Aq..........H#.QVy.#..Z.........u..d......T...m.m$.Z..x...N....BF.x..Ps..PV(.j6.7...yJ..8E....E2..Z`....1!Ik.j....r.^.....$.%UJ..PKGu........a
J..6XN.Z..".V..
e.F...e....Bu.=TC6....(.').0z..QQ.r...j. -
...!$6L....n.$.e.6..vYkLcrD(Q4...a.Y .$.u
.I.Z.t."jd.+U=.L%...BJ.O$..K.2J DN.....U.%B.....gj...Aax.X...b....!.h..8y.}?NWI.....h.....*..
.0....j..X.....u....EQ~.w..... KC^!.t....V5.....Z.......RI.yR>.....Ag..%V..3.+.....T..C^....
.".I..Oc..pkM.....G[.l.+..xP...M......&..Ni...Ks$..g
H7.D .=TR
.G..M......`-.j
I..S...6...-.Rpj..z..#
& .t.i....9L.. ..Ea~......$....K.ct7
.$B..[..
MK..*..U..].bVY.U..we'....i....s...x.c..9...l.....>..:c.h..n.|...HtKC..j3T.K...[a.h...p.kQ...H...:.'...-.vQ.1.Z.......z]...s.Z s\..O.V$D.B......"..U...=I]5......k..g.Z...n..i..=.....q..Bc..oW.....SQ....J.....f..K..O
.$..'..J.|..x. ......<.
;$ ....;."...@........d.A.....n.E..... .......K'.5K....T..~!..r.&.AI6.,-......V.z..R.G...?WR. 2.D.yS5GWSc
..k...x....C..zG...f...oH..Y.q.Z..........[T.........U..4........
..X....D....{M..L..M..u*ls..!....U.......f..H.h.#.U.4..S.M.ko!.h........9 ..I.$eE4..st.^...?... ..... h...[....J.nR.e..f. .t(..;...J....RA.,.#...D.t#.`....H..@'.$......P... .[
N#.RL@HA2..b.u%..|$...
8E\].+..?+5..2..HQs...._!IZ..l)).0,..?R....E..V...j.Z.
.%....z..
+W9.0<...~...Yn9....P_.&...kM
v..BX.T.)..D.8..P..!(....N..^..I.se".$..R....).Q.,nP..?.g......uc5.............3.[s..*m.o.Lx....X)1..X..3.yjb..2s.O*1.7.....h.#..... y2.....u....I.2.....!HT?.........T;......).Y..);c..w.HB.....b..-....RH....w.. ..?..e.(6.*5..c.).<1.s[
w..=..t....f..4K....e..B.yo.....TC.;......`g...^....tP..,.}.b..n..(..w..s..8:E........(.Vk.O.......?YQ...t.-G:.A...d.P.*4.m.L{!..,pd........~.Kt..
.{.i9.w......<.vR..."
.!..6v.x@..t.1.D/.0..UD..G....N..'...... .>....k.......y....#c.=.....c..........N.....d..y.n........[..J.|..!`.M.|..(......P..x..>.P........CF.u?..dS {....%...?#.. ,.;...)....Pq.......)>>G}.\i....B.
o...t...'..

Mein Server soll jetzt, unabhängig von der Anfrage, immer das Bild senden. Ich beobachte folgendes mit SmartSniff (und wieder nur das und nichts anderes). Bis auf die unterschiede in der Anfrage(zB IP Adresse) und der Tatsache, das mein Server keine Apache ist unterscheiden sich die beiden Anfragen+Antworten doch nicht voneinander oder ??

Spoiler anzeigen

Brainfuck-Quellcode

GET / HTTP/1.1
Host: x.x.x.x
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:26.0) Gecko/20100101 Firefox/26.0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip, deflate
Connection: keep-alive
HTTP/1.1 200 OK
Date: Wed, 18 Dec 2013 21:29:31 GMT
Server: Apache/2.2.16 (Debian)
Last-Modified: Sat, 01 Oct 2011 19:11:30 GMT
ETag: "4207b3-63eb-4ae41825bbc80"
Accept-Ranges: bytes
Content-Length: 25579
Keep-Alive: timeout=15, max=100
Connection: Keep-Alive
Content-Type: image/jpeg
......JFIF.....d.d.....WFile source: http://schuchtel.net/mwiki/index.php/Datei:PapierkrebsBernadette_(7).jpg...C...............
.
...............%...#... , #&')*)..-0-(0%()(...C....
.
.
.(...((((((((((((((((((((((((((((((((((((((((((((((((((......X.............................................:......................!1..AQa.."q.2...#..3BR.br...$4.......................................................1!A..."Q............?...^.CY..d....Ux.*8.T...7.w.I,{....*Ok.-..Q.;...#.h.ll...\..4.P..s..h.W{.@'.T.S..9....V&.&.\..Ra.$...4.J.6...H..r~.I....(D.. /......5 ......"d.b.<.ZJ..Wt.}FT.G..U(k..k...-+...O6_...~...56..i2;...........=.].X.}.w.Hq........=..Y.]h....y*.kdrT..6..R.-=IR.^..0.:[...J..rTC&r~.E.$6d.+..&JI..KM...Q....).*..+:..w..'..L.C..'........T-y/..~]...9........_...U...i'.~2./x".....p..D9...4...4..t..CJ......P...,
..U.*.G..:g..f....s......=..tj.)..g;..Z.oH....tH.f.#...U.7.[y....!)..
.~.......qR}#CL1....H..i.K.0....!..\.E...F..............$V..VY.....e.C"9*F .)$D.'\{!"laD....J...Pu....U.-7Zf...T.<WF.n........9.....>.=k..
O..y5F........................./\........0...i.YL...H..yR.......]X..9..F"..H.j.Y..R..1xQWy.T..,..p.
.C.{..+..d)U6Rf......c..&..|..mk....Q.&.Y...4.q..So...t. .......d..+-E..X@...U=...@-......L.L+F..I.l:.W.9...od..s....jC....0....+Z|.........R.h=.......X....O{...R.9..2.
'...+6:E.%-......Q.%&...r.H...Qd.).. Q..]...R.78SN...Y..d.$;.)" .R...
.]...i.....7.
P.^.....H.=.>..z..X.0.H.Tv...I..&|=e[l.]i..}...at..H.&..c.....g....nl....".@. o...C...{ldB.'.....%H...e`T....U.Zw!VN...{%...).k)......._5........Aq..........H#.QVy.#..Z.........u..d......T...m.m$.Z..x...N....BF.x..Ps..PV(.j6.7...yJ..8E....E2..Z`....1!Ik.j....r.^.....$.%UJ..PKGu........a
J..6XN.Z..".V..
e.F...e....Bu.=TC6....(.').0z..QQ.r...j. -
...!$6L....n.$.e.6..vYkLcrD(Q4...a.Y .$.u
.I.Z.t."jd.+U=.L%...BJ.O$..K.2J DN.....U.%B.....gj...Aax.X...b....!.h..8y.}?NWI.....h.....*..
.0....j..X.....u....EQ~.w..... KC^!.t....V5.....Z.......RI.yR>.....Ag..%V..3.+.....T..C^....
.".I..Oc..pkM.....G[.l.+..xP...M......&..Ni...Ks$..g
H7.D .=TR
.G..M......`-.j
I..S...6...-.Rpj..z..#
& .t.i....9L.. ..Ea~......$....K.ct7
.$B..[..
MK..*..U..].bVY.U..we'....i....s...x.c..9...l.....>..:c.h..n.|...HtKC..j3T.K...[a.h...p.kQ...H...:.'...-.vQ.1.Z.......z]...s.Z s\..O.V$D.B......"..U...=I]5......k..g.Z...n..i..=.....q..Bc..oW.....SQ....J.....f..K..O
.$..'..J.|..x. ......<.
;$ ....;."...@........d.A.....n.E..... .......K'.5K....T..~!..r.&.AI6.,-......V.z..R.G...?WR. 2.D.yS5GWSc
..k...x....C..zG...f...oH..Y.q.Z..........[T.........U..4........
..X....D....{M..L..M..u*ls..!....U.......f..H.h.#.U.4..S.M.ko!.h........9 ..I.$eE4..st.^...?... ..... h...[....J.nR.e..f. .t(..;...J....RA.,.#...D.t#.`....H..@'.$......P... .[
N#.RL@HA2..b.u%..|$...
8E\].+..?+5..2..HQs...._!IZ..l)).0,..?R....E..V...j.Z.
.%....z..
+W9.0<...~...Yn9....P_.&...kM
v..BX.T.)..D.8..P..!(....N..^..I.se".$..R....).Q.,nP..?.g......uc5.............3.[s..*m.o.Lx....X)1..X..3.yjb..2s.O*1.7.....h.#..... y2.....u....I.2.....!HT?.........T;......).Y..);c..w.HB.....b..-....RH....w.. ..?..e.(6.*5..c.).<1.s[
w..=..t....f..4K....e..B.yo.....TC.;......`g...^....tP..,.}.b..n..(..w..s..8:E........(.Vk.O.......?YQ...t.-G:.A...d.P.*4.m.L{!..,pd........~.Kt..
.{.i9.w......<.vR..."
.!..6v.x@..t.1.D/.0..UD..G....N..'...... .>....k.......y....#c.=.....c..........N.....d..y.n........[..J.|..!`.M.|..(......P..x..>.P........CF.u?..dS {....%...?#.. ,.;...)....Pq.......)>>G}.\i....B.
o...t...'..

Der Content ist jeweils gekürzt, habe es aber x mal überprüft, der ist wirklich zu 100% gleich

Tatsache ist, dass Firefox das Bild nicht darstellt, da es "Fehler enthält". Warum ? : (

mrman34 · 26. Dezember 2013, 14:31

Hoffe mal ein Doppelpost an dieser Stelle ist noch nicht belästigend

Frohe Weihnachten erstmal euch allen!
Hat jemand eine Idee zu meiner in dem Post über diesem gestellten Frage ?

Danke euch,
Felix

BlackNetworkBit · 27. Dezember 2013, 17:52

Dir auch

Du willst immer das selbe Bild darstellen wenn sich jemand auf deinen Server connectet ?
wenn ja dann probiere mal das :

VB.NET-Quellcode

Imports System.Drawing
Module Module1
Dim server As System.Net.Sockets.TcpListener
Sub Main()
Console.WriteLine("Gestartet")
server = New Net.Sockets.TcpListener(New System.Net.IPEndPoint(System.Net.IPAddress.Any, 80))
server.Start()
Read()
End Sub
Public Sub Read()
Dim net As New System.Net.Sockets.TcpClient
Dim charEncoder As New System.Text.ASCIIEncoding
Dim Grundheaderbeginn As String = "HTTP/1.0 200 OK" & Environment.NewLine & "Content-Type: "
Dim Grundheaderend As String = Environment.NewLine & "Connection: close" & Environment.NewLine & Environment.NewLine
Dim bte As Byte() = Image2ByteArray(New Bitmap("HIER KOMMT DEINE GRAFIK DATEI REIN"), Imaging.ImageFormat.Png)
Do
Try
net = server.AcceptTcpClient
Dim stream As System.Net.Sockets.NetworkStream = net.GetStream
Dim sr As New IO.StreamReader(stream)
Dim dt As String = String.Empty
Dim tempval As String = String.Empty
Do
tempval = sr.ReadLine
dt &= tempval & Environment.NewLine
Loop Until tempval = String.Empty
Dim st As String() = dt.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
Dim bool As Boolean = False
For i = 0 To st.Length - 1
If st(0).ToLower.StartsWith("get /") = True Then
Console.WriteLine("Request from : " & net.Client.RemoteEndPoint.ToString.Split({":"}, StringSplitOptions.RemoveEmptyEntries)(0))
writebyteinstream(stream, charEncoder.GetBytes(Grundheaderbeginn & "image/png" & vbNewLine & "Content-Length: " & bte.Length.ToString & Grundheaderend))
writebyteinstream(stream, bte)
Exit For
End If
Next
net.Close()
Catch ex As Exception
Console.Write("Time : " & DateTime.Now.ToString & Environment.NewLine & ex.ToString & Environment.NewLine)
End Try
Loop
End Sub
Public Sub writebyteinstream(ByVal stream As System.Net.Sockets.NetworkStream, bytes As Byte())
stream.Write(bytes, 0, bytes.Length)
stream.Flush()
End Sub
Public Function Image2ByteArray(ByVal Bild As Bitmap, ByVal Bildformat As System.Drawing.Imaging.ImageFormat) As Byte()
Dim MS As New IO.MemoryStream
Bild.Save(MS, Bildformat)
MS.Flush()
Return MS.ToArray
End Function
End Module

Firefox stellt das Bild bei mir da und ich muss sagen das ich schon schönere Exemplare gesehen habe

HTTP Image transfer

HTTP Image transfer

HTML-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Brainfuck-Quellcode

Brainfuck-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben