Befehl nur einmal erkannt?
Übersicht
BlitzBasic Allgemein
|
SmilyBetreff: Befehl nur einmal erkannt? |
 Di, Feb 21, 2006 14:37Antworten mit Zitat 
|
|---|---|---|
|
Hallo,
das hier ist mein Programm: Code: [AUSKLAPPEN] DesX = ClientWidth(Desktop())
DesY = ClientHeight(Desktop()) Win = CreateWindow("TCP", DesX/2 - 300, DesY/2 - 300, 600, 600, 0, 33) Ausgabe = CreateListBox(5,5,590,560,Win) Befehlszeile = CreateTextField(5,570,500,20,win) send = CreateButton("Send", 510, 570 ,80, 20, win) AddGadgetItem Ausgabe, "Versuche verbindung herzustellen..." tcp=OpenTCPStream($Server,80) If tcp Then AddGadgetItem Ausgabe, "OK" Else End Repeat WaitEvent(1) If EventID() = $803 Then End If EventID() = $401 And EventSource() = Send Then DisableGadget send AddGadgetItem Ausgabe, "Computer: " + TextFieldText(Befehlszeile) WriteLine tcp, Textfieldtext(Befehlszeile) WriteLine tcp, Chr$(10) While Not Eof(tcp) AddGadgetItem Ausgabe, ReadLine(tcp) Wend EnableGadget send End If Forever Ich hatte mal ein paar GET befehle ausprobiert. Allerdings habe ich nur beim ersten Get befehl eine antwort bekommen. Wieso? Edit: Irgendwie gehen die Tags nicht |
||
|
Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org |
||
|
Mr.Keks |
Di, Feb 21, 2006 16:07 Antworten mit Zitat
|
|---|---|---|
|
Das ist eigentlich bei ziemlich vielem PC-Zeugs wie folgt: Wenn was passiert, wird das in einen Buffer oder dergleichen gespeichert. Du kannst dir immer den ersten Eintrag aus sonem Buffer holen ... und dann den nächsten und den nächsten und so weiter. Wenn du dir aber etwas geholt hast, wäre es ja hinderlich beim Holen der nächsten Sachen, wenn das eigentlich geholte immernoch im Buffer ist ^^. Du kannst etwas nur einmal holen. Darum speichere einfach in Variablen!
Code: [AUSKLAPPEN] DesX = ClientWidth(Desktop())
DesY = ClientHeight(Desktop()) Win = CreateWindow("TCP", DesX/2 - 300, DesY/2 - 300, 600, 600, 0, 33) Ausgabe = CreateListBox(5,5,590,560,Win) Befehlszeile = CreateTextField(5,570,500,20,win) send = CreateButton("Send", 510, 570 ,80, 20, win) AddGadgetItem Ausgabe, "Versuche verbindung herzustellen..." tcp=OpenTCPStream($Server,80) If tcp Then AddGadgetItem Ausgabe, "OK" Else End Repeat WaitEvent(1) ID = EventID() SRC = EventSource If ID= $803 Then End ElseIf ID = $401 And SRC = Send Then DisableGadget send AddGadgetItem Ausgabe, "Computer: " + TextFieldText(Befehlszeile) WriteLine tcp, Textfieldtext(Befehlszeile) WriteLine tcp, Chr$(10) While Not Eof(tcp) AddGadgetItem Ausgabe, ReadLine(tcp) Wend EnableGadget send End If Forever |
||
| MrKeks.net | ||
|
|
Smily |
Mi, März 01, 2006 18:33 Antworten mit Zitat
|
|---|---|---|
|
aber ich will verschiedene Befehle an den Server schicken.
Das Problem dabei ist nach wie vor, dass nur der erste befehl erkannt wird. |
||
|
Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org |
||
|
D2006Administrator |
Mi, März 01, 2006 22:37 Antworten mit Zitat
|
|---|---|---|
|
Das Protkoll HTTP/1.0 sieht vor die Verbindung nach einer Anfrage und Antwort zu schliessen.
Mit HTTP/1.1 kann man mit dem Header "connection: keep-alive" die Verbindung beibehalten, allerdings funktioniert das auch nicht so richtig. MfG D2006 |
||
|
Intel Core i5 2500 | 16 GB DDR3 RAM dualchannel | ATI Radeon HD6870 (1024 MB RAM) | Windows 7 Home Premium
Intel Core 2 Duo 2.4 GHz | 2 GB DDR3 RAM dualchannel | Nvidia GeForce 9400M (256 MB shared RAM) | Mac OS X Snow Leopard Intel Pentium Dual-Core 2.4 GHz | 3 GB DDR2 RAM dualchannel | ATI Radeon HD3850 (1024 MB RAM) | Windows 7 Home Premium Chaos Interactive :: GoBang :: BB-Poker :: ChaosBreaker :: Hexagon :: ChaosRacer 2 |
||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group