HTTP Server Antwort auf Bild anfrage

Übersicht

BlitzBasic

Beginners-Corner

	Pummelie Betreff: HTTP Server Antwort auf Bild anfrage	So, März 22, 2009 9:27 Antworten mit Zitat
Hi, ich bastle seit einiger zeit an einem keinen http server. Webseiten werden inzwischen übertragen, aber wenn diese ein bild anfragen, sendet der server dies zwar aber der browser zeigt nichts an. Der Code abschnitt zum übertragen der daten: Code: [AUSKLAPPEN] [EINKLAPPEN] Select tcp$ Case "jpg" Text 0,ee,"Content-Type: image/jpeg" Flip WriteLine client$(1),"Content-Type: image/jpeg" Delay 50 Case "png" Text 0,ee,"Content-Type: image/png" Flip WriteLine client$(1),"Content-Type: image/png" Delay 50 Case "bmp" Text 0,ee,"Content-Type: image/bmp" Flip WriteLine client$(1),"Content-Type: image/bmp" Delay 50 Default Text 0,ee,"Content-Type: text/html" Flip WriteLine client$(1),"Content-Type: text/html" End Select Delay 50 ee = ee + 12 Color 150,125,0 Text 0,ee,"-" End Select Repeat ReadBytes(bank,i_file,0,1024) WriteBytes(bank,client$(1),0,1024) Select Eof(i_file) Case 1 CloseFile i_file Goto send_file_end2 End Select Forever .send_file_end2 Danach wird die verbindung von mir beendet, da es der browser nicht tut. Was mache ich falsch?
It's done when it's done.

Pummelie

Betreff: HTTP Server Antwort auf Bild anfrage

So, März 22, 2009 9:27
Antworten mit Zitat

Hi,
ich bastle seit einiger zeit an einem keinen http server.
Webseiten werden inzwischen übertragen, aber wenn diese ein bild anfragen, sendet der server dies zwar aber der browser zeigt nichts an.

Der Code abschnitt zum übertragen der daten:
Code: [AUSKLAPPEN]

Select tcp$
                           Case "jpg"
                              Text 0,ee,"Content-Type: image/jpeg"
                              Flip
                              WriteLine client$(1),"Content-Type: image/jpeg"
                              Delay 50
                           Case "png"
                              Text 0,ee,"Content-Type: image/png"
                              Flip
                              WriteLine client$(1),"Content-Type: image/png"
                              Delay 50
                           Case "bmp"
                              Text 0,ee,"Content-Type: image/bmp"
                              Flip
                              WriteLine client$(1),"Content-Type: image/bmp"
                              Delay 50
                           Default
                              Text 0,ee,"Content-Type: text/html"
                              Flip
                              WriteLine client$(1),"Content-Type: text/html"
                        End Select
                        Delay 50
                        ee = ee + 12
                        Color 150,125,0
                        Text 0,ee,"-"
                  End Select
                  Repeat
                     ReadBytes(bank,i_file,0,1024)
                     WriteBytes(bank,client$(1),0,1024)

                     Select Eof(i_file)
                        Case 1
                           CloseFile i_file
                           Goto send_file_end2
                     End Select
                  Forever
                  .send_file_end2

Danach wird die verbindung von mir beendet, da es der browser nicht tut.

Was mache ich falsch?

It's done when it's done.

	BtbN	So, März 22, 2009 10:43 Antworten mit Zitat
Zwei sachen, die mir sofort auffallen: Was hat das Delay da zu suchen? Und wieso verwendest du Goto?

BtbN

So, März 22, 2009 10:43
Antworten mit Zitat

Zwei sachen, die mir sofort auffallen: Was hat das Delay da zu suchen? Und wieso verwendest du Goto?

	TimBo	So, März 22, 2009 10:54 Antworten mit Zitat
Hi Code: [AUSKLAPPEN] [EINKLAPPEN] End Select Delay 50 ee = ee + 12 Color 150,125,0 Text 0,ee,"-" End Select Ich zähle 2 End Select und warum sieht man Flip(1) außerhalb der Main ? Server heißt nicht , dass er Hardcoded sein muss. Grüße TimBo
mfg Tim Borowski // CPU: Ryzen 2700x GPU: Nvidia RTX 2070 OC (Gigabyte) Ram: 16GB DDR4 @ 3000MHz OS: Windows 10 Stolzer Gewinner des BCC 25 & BCC 31 hat einen ersten Preis in der 1. Runde beim BWInf 2010/2011 & 2011/12 mit BlitzBasic erreicht.

TimBo

So, März 22, 2009 10:54
Antworten mit Zitat

Code: [AUSKLAPPEN]

End Select
Delay 50
ee = ee + 12
Color 150,125,0
Text 0,ee,"-"
End Select

Ich zähle 2 End Select und warum sieht man Flip(1) außerhalb der Main ?

Server heißt nicht , dass er Hardcoded sein muss. Wink

Grüße
TimBo

mfg Tim Borowski // CPU: Ryzen 2700x GPU: Nvidia RTX 2070 OC (Gigabyte) Ram: 16GB DDR4 @ 3000MHz OS: Windows 10
Stolzer Gewinner des BCC 25 & BCC 31
hat einen ersten Preis in der 1. Runde beim BWInf 2010/2011 & 2011/12 mit BlitzBasic erreicht.

	Pummelie	So, März 22, 2009 17:32 Antworten mit Zitat
also, @TimBo: Das ist nur ein ausschnitt, von der main schleife, das 2 end select, kann ich noch außversehen mitkopiert haben. @BtbN: Delay hab ich ein gesetzt, das es wenn der Prozess durchläuft bei der anzeige besser aussieht. Und warum sollte ich goto nicht benutzen, ich habe nie verstanden warum nicht.
It's done when it's done.

Pummelie

So, März 22, 2009 17:32
Antworten mit Zitat

also,
@TimBo: Das ist nur ein ausschnitt, von der main schleife, das 2 end select, kann ich noch außversehen mitkopiert haben.
@BtbN: Delay hab ich ein gesetzt, das es wenn der Prozess durchläuft bei der anzeige besser aussieht.
Und warum sollte ich goto nicht benutzen, ich habe nie verstanden warum nicht.

It's done when it's done.

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

HTTP Server Antwort auf Bild anfrage

Pummelie

Betreff: HTTP Server Antwort auf Bild anfrage

BtbN

TimBo

Pummelie