PureBoard

Code: Alles auswählen

;__________________________________________
;
;                   Client
;
;__________________________________________
OpenFile(0,"Sendung.txt")
WriteString(0,"Alles hat großartig funktioniert!")
CloseFile(0)

If InitNetwork() = 0
  MessageRequester("Error", "Netzwerk konnt nicht initialisiert werden!", 0)
  End
EndIf

Port = 6832

versenden$ = "Sendung.txt"
If versenden$
 

ConnectionID = OpenNetworkConnection(MeineIP, Port)
If ConnectionID

 
  If SendNetworkFile(ConnectionID, versenden$)
  MessageRequester("PureBasic - Server", "Es wurde eine Datei versendet!", 0)
  DeleteFile("Sendung.txt")
  Else
  MessageRequester("PureBasic - Server", "Es wurde leider keine Datei versendet!", 0)
  DeleteFile("Sendung.txt")
  EndIf
 
 
  CloseNetworkConnection(ConnectionID)
Else
  MessageRequester("PureBasic - Client", "Server konnte nicht gefunden werden!", 0)
EndIf
EndIf
 
End 

Code: Alles auswählen

;__________________________________________
;
;                   Server
;
;__________________________________________

If InitNetwork() = 0
  MessageRequester("Error", "Netzwerk konnt nicht initialisiert werden!", 0)
  End
EndIf

Port = 6832
empfangen$ = "Sendung.txt"

If CreateNetworkServer(0, Port)

  MessageRequester("PureBasic - Server", "Server erstellt (Port "+Str(Port)+").", 0)
 
  Repeat
     Delay(10)
    SEvent = NetworkServerEvent()
 
    If SEvent
   
      ClientID = EventClient()
       
        If ReceiveNetworkFile(ClientID, empfangen$)
        MessageRequester("PureBasic - Server", "Es wurde eine Datei empfangen!", 0)
        Else
        MessageRequester("PureBasic - Server", "Es wurde leider keine Datei empfangen!", 0)
        EndIf
        Quit = 1
       
    EndIf
   
  Until Quit = 1
 
  MessageRequester("PureBasic - Server", "Klicke auf 'OK', um die Verbindung zum Server zu beenden.", 0)
 
  CloseNetworkServer(0)
Else
  MessageRequester("Error", "Server konnte nicht erstellt werden!", 0)
EndIf

 
End

Code: Alles auswählen

InitNetwork()
ExamineIPAddresses()
ip=NextIPAddress()
ipstring$=IPString(ip)
Debug ipstring$