PureBoard

Code: Alles auswählen

@*Send

Code: Alles auswählen

Structure _MY_SEND_MSG_
  LengthOfData.l
  KindOfPaket.w
  *Data
EndStructure

*Send._MY_SEND_MSG_ = AllocateMemory($10000)

;Wir senden ein Hallo, Welt
Text$ = "Hallo, Welt!"
*Send\KindOfPaket = 1 ;<- Chat msg
*Send\LengthOfData = StringByteLength(Text$, #PB_UTF8) + 1 ;<- Am besten immer im UTF8-Format senden, und nicht das abschliessende Nullbyte vergessen
;Sodele, nun nur noch den Text als *Data anhängen:
PokeS(*Send + OffsetOf(_MY_SEND_MSG_\Data), Text$, -1, #PB_UTF8)
;Dann versenden
SendNetworkData(ClientID, *Send, *Send\LengthOfData + OffsetOf(_MY_SEND_MSG_\Data))
;Bemerkung:
;Wenn man mit OffsetOf() arbeitet, hat es den Vorteil, das der Code auch dann funktioniert, wenn man in die
; _MY_SEND_MSG_-Struktur noch Felder einfügen muss.
; Allerdings muss *Data IMMER am Ende stehen!

;Beim Empfänger, zupft man das Paket einfach wieder raus:
*Receive._MY_SEND_MSG_ = AllocateMemory($10000)
R = ReceiveNetworkData(ClientID, *Receive, $10000)
If R > OffsetOf(_MY_SEND_MSG_\Data)
	;O.k., wir haben mindestens ein Paket, ohne *Data
	If *Receive\LengthOfData + OffsetOf(_MY_SEND_MSG_\Data) <= R
		;O.k., Paket ist vollständig
		Select *Receive\KindOfPaket
			Case 1
				;Chat-Msg
				Text$ = PeekS(*Receive + OffsetOf(_MY_SEND_MSG_\Data), -1, #PB_UTF8) ;Da wir das Nullbyte mitgesendet haben, lesen wir einfach bis dort.
				Debug Text$
				
				;....

Code: Alles auswählen

Server created (Port 25565).
A new client has connected !
Client 32841264 has send a packet !
1
56
234234
0
0
0
Client 32841264 has send a packet !
0
0
0
0
0
0
Client 32841264 has send a packet !
0
0
0
0
0
0
Client 32841264 has closed the connection...

Code: Alles auswählen

Structure SendStruct
  Code.l
  Nummer.w
  *Data
EndStructure  

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


Port = 25565
*Send.SendStruct = AllocateMemory(32100)
*Send\Data       = AllocateMemory(32100)
;InitializeStructure(*Send, SendStruct)

*Send\Code=1
*Send\Nummer=56


File$ = OpenFileRequester("Bitte Datei zum Laden auswählen", "", "Alle Dateien (*.*)|*.*",0)
If OpenFile(0,File$)
  Debug Lof(0)
  ReadData(0,*Send\Data,32100)
EndIf
  CloseFile(0)
  
;*Send\Data=234234
;CopyMemory(*Datei,*Send\Data,32100)

ConnectionID = OpenNetworkConnection("127.0.0.1", Port)
If ConnectionID  
  ;Debug "Client connected to server..."  
  ;Debug *Send\Code
  ;Debug *Send\Nummer
  ;Debug *Send\Data
  
  SendNetworkData(ConnectionID,*Send,32100)    
  ;Debug "A string has been sent to the server, please check it before quit..."  
  CloseNetworkConnection(ConnectionID)
  
Else  
  Debug "Can't find the server (Is it launched ?)."
EndIf
  
End   

Code: Alles auswählen

Structure SendStruct
  Code.l
  Nummer.w
  *Data
EndStructure  


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

Port = 25565
*Buffer.SendStruct = AllocateMemory(32100)
*Buffer\Data       =AllocateMemory(32100)
;InitializeStructure(*Buffer, SendStruct)
If CreateNetworkServer(0, Port)

  ;MessageRequester("PureBasic - Server", "Server created (Port "+Str(Port)+").", 0)
  Debug "Server created (Port "+Str(Port)+")."
  Repeat
      
    SEvent = NetworkServerEvent()
    If SEvent
    
      ClientID = EventClient()
  
      Select SEvent
      
        Case #PB_NetworkEvent_Connect
          ;MessageRequester("PureBasic - Server", "A new client has connected !", 0)
          Debug "A new client has connected !"
      
        Case #PB_NetworkEvent_Data
          ReceiveNetworkData(ClientID, *Buffer.SendStruct, 32100)
          If *Buffer\Code<>0
            Debug "Client "+Str(ClientID)+" has send a packet !"
            ;Debug "String: "+PeekS(*Buffer)
            
            
            Debug *Buffer\Code
            Debug *Buffer\Nummer
            Debug *Buffer\Data        
            OpenFile(0,"lolol.txt")
            WriteData(0,*Buffer\Data,32100)
            CloseFile(0)
            ;*Receive.SendStruct  = AllocateMemory(32100)
            ;InitializeStructure(*Buffer, SendStruct)
            
            ;CopyStructure(@*Buffer, @*Receive, SendStruct)
            ;CopyMemory(*Buffer, *Receive, 32100)
            
            ;Debug *Receive\Code
            ;Debug *Receive\Nummer
            ;Debug *Receive\Data         
          EndIf
        Case #PB_NetworkEvent_File
          ;MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has send a file via the network !", 0)
          Debug "Client "+Str(ClientID)+" has send a file via the network !"
          ReceiveNetworkFile(ClientID, "C:\TEST_Network.ftp3")
  
        Case #PB_NetworkEvent_Disconnect
          ;MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has closed the connection...", 0)
          Debug "Client "+Str(ClientID)+" has closed the connection..."
          ;Quit = 1
    
      EndSelect
    EndIf
    
  Until Quit = 1 
  
  MessageRequester("PureBasic - Server", "Click to quit the server.", 0)
  
  CloseNetworkServer(0)
Else
  MessageRequester("Error", "Can't create the server (port in use ?).", 0)
EndIf

  
End