PureBoard

Code: Alles auswählen

InitNetwork()
Global erg.w
Global id.w
id=OpenNetworkConnection("84.180.53.114",6832)
If id
   SendNetworkString(id,"String vom Client empfangen!")
   MessageRequester("Mitteilung","Ein String wurde zum Server gesendet!",#PB_MessageRequester_Ok)
   MessageRequester("Ende","OK drücken um die Verbindung zu trennen!",#PB_MessageRequester_Ok)
   CloseNetworkConnection(id)
Else
 MessageRequester("Error","Konnte keine Verbindung mit Server aufbauen! (Ist er gestartet?)",#PB_MessageRequester_Ok)
EndIf

Code: Alles auswählen

InitNetwork()
Global buf.w
Global sev.l
Global id.w
Global quit.w
*buf=AllocateMemory(1000)
If CreateNetworkServer(6832)
   Repeat
    sev=NetworkServerEvent()
    If sev
     id=NetworkClientID()
     Select sev
      Case 1
       MessageRequester("Mitteilung","Eingehende Verbindung!",#PB_MessageRequester_Ok)
      Case 2
       MessageRequester("Mitteilung","Client "+Str(id)+" hat Daten gesendet!",#PB_MessageRequester_Ok)
       ReceiveNetworkData(id,*buf,1000)
       MessageRequester("Mitteilung","Inhalt: "+PeekS(*buf),#PB_MessageRequester_Ok)
      Case 3
       MessageRequester("Mitteilung","Client "+Str(id)+" hat eine Datei gesendet!",#PB_MessageRequester_Ok)
       ReceiveNetworkFile(id,"C:\")
      Case 4
       MessageRequester("Mitteilung","Client "+Str(id)+" hat die Verbindung getrennt!",#PB_MessageRequester_Ok)
       quit=1
     EndSelect
    EndIf
   Until quit=1
   MessageRequester("Mitteilung","Server schließt sich nach 'OK'!",#PB_MessageRequester_Ok)
   CloseNetworkServer()
Else
 MessageRequester("Error","Konnte keinen Server starten! (Port(6832) besetzt?)",#PB_MessageRequester_Ok)
EndIf