TCP-Daten empfangen...

[funkheld]

Einen Client , der sich am Server anmeldet , was ist das ?

Wie sieht das denn Programmmässig aus.

Danke.

Gruss

[jojo1541]

Ein sehr einfach gehaltenes Beispiel. Nur Verbindung herstellen und trennen werden angezeigt.

Server:

Code: Alles auswählen

;Server

EnableExplicit

Define Event.i, Quit.i

InitNetwork()

OpenConsole()

If CreateNetworkServer(0,5000,#PB_Network_TCP)
  
  PrintN("Server Erstellt. Port: 5000")  
  
  Repeat
    
    Event = NetworkServerEvent()
    
    Select Event
        
      Case 1
        
        PrintN("Client verbunden. ID: " + Str(EventClient()))
        
      Case 4
        
        PrintN("Client getrennt. ID: " + Str(EventClient()))
        
    EndSelect  
     
    Delay(10)
     
  ForEver
  
  CloseConsole() 
      
EndIf
    

Client:

Code: Alles auswählen

;Client

EnableExplicit

Define Event.i, Quit.i, ConID.i

#IP = "127.0.0.1"

InitNetwork()

OpenConsole()

ConID = OpenNetworkConnection(#IP,5000,#PB_Network_TCP)

If ConID

  PrintN("Verbindung hergestellt.")
  PrintN("ServerIP: " + #IP + "  Port: 5000")
  
  Repeat
    
    Event = NetworkClientEvent(ConID)
    
    Select Event
        
     
        
    EndSelect  
     
    Delay(10)
     
  ForEver
  
  CloseConsole() 
      
EndIf

[funkheld]

Jup danke für die Info.

Den Server hab ich, das ist der Zusiserver.

Wie kann ich jetzt mit deinem Clienten Daten zum Zusiserver senden um ihn mitzuteilen, welche Daten ich bekommen möchte und er mit dann die Daten zuschickt , die ich dann mit einem Eventablauf empfangen möchte ?
Danke

Gruss

[Rings]

lies in der Protokoll-Beschreibung des Zusi servers (oder der Hersteller) einfach nach.
Wenn du keine Protokoll-Beschreibung hast, frag beim hersteller nach.
Alles andere ist Reverse Engineering und kann viel Zeit kosten.
Das schaffst du ansonsten evtl. nicht mehr.........

[funkheld]

Jup, danke.

Habe es jetzt gelöst dank eurer Hilfe hier, es funktioniert jetzt mit dem Zusiserver zusammen.


Gruss