TCP IP?

Übersicht

BlitzBasic

Beginners-Corner

	Mathias-Kwiatkowski Betreff: TCP IP?	So, Jul 31, 2005 14:16 Antworten mit Zitat
also nun habe ich volgendes feststellen müssen wenn ich es so mache kann ich was an meinem client senden BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] ClientDaten=AcceptTCPStream(Server) If ClientDaten Then befehl$= ReadString$(ClientDaten) Print befehl$ WriteString ClientDaten,\"OK\" EndIf aber wenn ich es mit hilfe von ip machen will also so BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] ClientDaten=AcceptTCPStream(Server) If ClientDaten Then befehl$= ReadString$(ClientDaten) Print befehl$ ip=TCPStreamIP(ClientDaten) WriteString ip,\"OK\" EndIf dann gehts nich aber ich muss es so haben es währe verdammt gut wenn mir jemand dabei hilfe leisten kann! also bitte helft mir muss es dringend haben dank an allen im vorraus (Das is nur ein ausschnitt meines Programmes daher bitte kein repeat forever empfehlen, natürlich habe ich es in einer schleife)

Mathias-Kwiatkowski

Betreff: TCP IP?

So, Jul 31, 2005 14:16
Antworten mit Zitat

also nun habe ich volgendes feststellen müssen

wenn ich es so mache kann ich was an meinem client senden
BlitzBasic: [AUSKLAPPEN]


ClientDaten=AcceptTCPStream(Server)
 If ClientDaten Then
 befehl$= ReadString$(ClientDaten)
 Print befehl$
 WriteString ClientDaten,\"OK\"
 EndIf

aber wenn ich es mit hilfe von ip machen will also so

BlitzBasic: [AUSKLAPPEN]


ClientDaten=AcceptTCPStream(Server)
 If ClientDaten Then
 befehl$= ReadString$(ClientDaten)
 Print befehl$

ip=TCPStreamIP(ClientDaten)
 WriteString ip,\"OK\"
EndIf

dann gehts nich aber ich muss es so haben es währe verdammt gut wenn mir jemand dabei hilfe leisten kann!

also bitte helft mir muss es dringend haben Smile

dank an allen im vorraus

(Das is nur ein ausschnitt meines Programmes daher bitte kein repeat forever empfehlen, natürlich habe ich es in einer schleife)

	BIG BUG	So, Jul 31, 2005 18:32 Antworten mit Zitat
??? Du brauchst immer eine Verbindung(Stream) um Daten zu versenden. Dein zweiter Code ist ziemlicher Quatsch, erklär mal lieber was das Ziel von dem Ganzen sein soll...
B3D-Exporter für Cinema4D!(V1.4) MD2-Exporter für Cinema4D!(final)

BIG BUG

So, Jul 31, 2005 18:32
Antworten mit Zitat

???
Du brauchst immer eine Verbindung(Stream) um Daten zu versenden. Dein zweiter Code ist ziemlicher Quatsch, erklär mal lieber was das Ziel von dem Ganzen sein soll...

B3D-Exporter für Cinema4D!(V1.4)
MD2-Exporter für Cinema4D!(final)

	DaviD4D Betreff: Re: TCP IP?	Mo, Aug 01, 2005 1:38 Antworten mit Zitat
Mathias-Kwiatkowski hat Folgendes geschrieben: also nun habe ich volgendes feststellen müssen ..... versuch mal so: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] AStep=0 Repeat ; nur damit es funktioniert If AStep=0 Connection=OpenTCPStream (\"dein Domain\") If Connection Print \"connected\" AStep=1 EndIf EndIf If AStep=1 WriteLine Connection,\"irgendwas\" ; zB test ob der Server funktioniert oder was auch immer... AStep=2 EndIf If AStep=2 FromServer$=ReadLine$(Connection) If Len(FromServer$)>0 ; da kannst du prüfen ob der Server richtig antwortet zB And FromServer=\"irgendwas\" Print FromServer$ AStep=3 EndIf EndIf If AStep=3 WriteLine Connection,\" noch irgendwas\" ;zB Login... Name und Password... AStep=4 EndIf If AStep=4 FromServer$=ReadLine$(Connection) If Len(FromServer$)>0 ; da kannst du prüfen ob der server Erlaubniss gegeben hat zB And FromServer=\"geht klar\" Print FromServer$ AStep=5 EndIf EndIf Until KeyHit(1) und so weiter... schau mal... da kannst du es noch in die Stufe setzen die du willst zum Beispiel wenn die Connection unterbrochen ist, kannst du AStep=0 machen und alles fängt von Forne an.. zB so: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If AStep>0 If Eof(Connection) Print \"disconnected\" AStep=0 EndIf EndIf oder wenn du LoginProcedure wiederholen willst (mit anderem Name vielleicht)

DaviD4D

Betreff: Re: TCP IP?

Mo, Aug 01, 2005 1:38
Antworten mit Zitat

Mathias-Kwiatkowski hat Folgendes geschrieben:

also nun habe ich volgendes feststellen müssen
.....

versuch mal so:

BlitzBasic: [AUSKLAPPEN]



AStep=0

Repeat ; nur damit es funktioniert

 If AStep=0
  Connection=OpenTCPStream (\"dein Domain\")

  If Connection 
   Print \"connected\"
   AStep=1
  EndIf
 EndIf

 If AStep=1 
  WriteLine Connection,\"irgendwas\" ; zB test ob der Server funktioniert oder was auch immer...
  AStep=2
 EndIf

 If AStep=2
  FromServer$=ReadLine$(Connection)
  If Len(FromServer$)>0 ; da kannst du prüfen ob der Server richtig antwortet zB And FromServer=\"irgendwas\" 
   Print FromServer$
   AStep=3
  EndIf
 EndIf

 If AStep=3
  WriteLine Connection,\" noch irgendwas\" ;zB Login... Name und Password...
  AStep=4
 EndIf

 If AStep=4
  FromServer$=ReadLine$(Connection)
  If Len(FromServer$)>0 ; da kannst du prüfen ob der server Erlaubniss gegeben hat zB And FromServer=\"geht klar\"
   Print FromServer$
   AStep=5
  EndIf
 EndIf

Until KeyHit(1)

und so weiter...

schau mal... da kannst du es noch in die Stufe setzen die du willst zum Beispiel wenn die Connection unterbrochen ist, kannst du AStep=0 machen und alles fängt von Forne an..

zB so:

BlitzBasic: [AUSKLAPPEN]



 If AStep>0 
  If Eof(Connection) 
   Print \"disconnected\"
   AStep=0
  EndIf
 EndIf

oder wenn du LoginProcedure wiederholen willst (mit anderem Name vielleicht)

Smile