PureBoard

Verfasst: **06.11.2013 11:19**

Hallo, guten Tag.
Ich kann jetzt Daten Empfangen mit dem Server.
Wo setze ich jetzt bitte dieses rein in meinem Programm um zu Senden?
"SendNetworkString(Verbindung, String$)"

Code: Alles auswählen

OpenConsole()

If InitNetwork() = 0
  MessageRequester("Error", "Can't initialize the network !", 0)
  End
EndIf

Port = 42001
*Buffer = AllocateMemory(100)
FillMemory(*buffer,100)

If CreateNetworkServer(0, Port)

  PrintN("Server : Port "+Str(Port))
  
  Repeat
      
    SEvent = NetworkServerEvent()
  
    If SEvent
    
      ClientID = EventClient()
  
      Select SEvent
      
        Case #PB_NetworkEvent_Connect
          PrintN("Client hat verbunden !")
  
        Case #PB_NetworkEvent_Data
          z=ReceiveNetworkData(ClientID, *Buffer, 100)
          For zz=0 To z
            Print(Chr(PeekB(*buffer+zz+17)))
          Next 
          FillMemory(*buffer,100)
          PrintN("")
          
        Case #PB_NetworkEvent_Disconnect
          PrintN("Client "+Str(ClientID)+" hat geschlossen...")
          Quit = 1
    
      EndSelect
    EndIf
    
  Until Quit = 1 
  
  CloseNetworkServer(0)
Else
  PrintN("Kann kein Server erstellen.")
EndIf

End

Danke.

Gruss

Verfasst: **06.11.2013 15:54**

Na z.b. So wenn dir ein Client etwas sendet kannst du so "OK" an ihn senden.
Kannst überall an den Client was senden sobald die Verbindung besteht.

Code: Alles auswählen

OpenConsole()

If InitNetwork() = 0
  MessageRequester("Error", "Can't initialize the network !", 0)
  End
EndIf

Port = 42001
*Buffer = AllocateMemory(100)
FillMemory(*buffer,100)

If CreateNetworkServer(0, Port)

  PrintN("Server : Port "+Str(Port))
  
  Repeat
      
    SEvent = NetworkServerEvent()
  
    If SEvent
    
      ClientID = EventClient()
  
      Select SEvent
      
        Case #PB_NetworkEvent_Connect
          PrintN("Client hat verbunden !")
  
        Case #PB_NetworkEvent_Data
          z=ReceiveNetworkData(ClientID, *Buffer, 100)
          For zz=0 To z
            Print(Chr(PeekB(*buffer+zz+17)))
          Next 
          FillMemory(*buffer,100)
          PrintN("")
         SendNetworkString(ClientID, "OK")
          
        Case #PB_NetworkEvent_Disconnect
          PrintN("Client "+Str(ClientID)+" hat geschlossen...")
          Quit = 1
    
      EndSelect
    EndIf
    
  Until Quit = 1 
  
  CloseNetworkServer(0)
Else
  PrintN("Kann kein Server erstellen.")
EndIf

End

Verfasst: **06.11.2013 18:23**

ja, danke.

Gruss

PureBoard

Serser sendet Daten.., wo kommt das bitte rein im Programm?

Serser sendet Daten.., wo kommt das bitte rein im Programm?

Re: Serser sendet Daten.., wo kommt das bitte rein im Progra

Re: Serser sendet Daten.., wo kommt das bitte rein im Progra