Отправка и прием TCP пакетов

If InitNetwork() = 0
  MessageRequester("Error", "Can't initialize the network !", 0)
  End
EndIf
;Port = 17890
Port = 6832
*Buffer = AllocateMemory(1000)
 
If CreateNetworkServer(0, Port)
 
  ;MessageRequester("PureBasic - Server", "Server created (Port "+Str(Port)+").", 0)
   
  Repeat
      
    SEvent = NetworkServerEvent()
  
    If SEvent
    
      ClientID = EventClient()
  
      Select SEvent
      
        Case #PB_NetworkEvent_Connect
                 
          AddGadgetItem(0,-1,IPString(GetClientIP(ClientID)) + ":" + Str(ClientID))
                 Case #PB_NetworkEvent_Data
               Debug (PeekS(*Buffer, -1, #PB_UTF8))
             ReceiveNetworkData(ClientID, *Buffer, 1000)
 
If FindString(PeekS(*Buffer, -1, #PB_UTF8),"[stroka]",1)
         For i = 0 To CountGadgetItems(0)-1
             FindString(GetGadgetItemText(0,i,0), Str(ClientID),1)          
             SetGadgetItemText(0,i,StringField(PeekS(*Buffer, -1, #PB_UTF8), 2, ":"),1)
              Debug PeekS(*Buffer, -1, #PB_UTF8)
          Next
        EndIf
If FindString(PeekS(*Buffer, -1, #PB_UTF8),"[stroka1]",1)
         For i = 0 To CountGadgetItems(0)-1
             FindString(GetGadgetItemText(0,i,0), Str(ClientID),1)          
             SetGadgetItemText(0,i,StringField(PeekS(*Buffer, -1, #PB_UTF8), 2, ":"),2)
              Debug PeekS(*Buffer, -1, #PB_UTF8)
          Next
        EndIf

InitNetwork()
Global Port = 6832
*Buffer = AllocateMemory(1000)
 
  ConnectionID = OpenNetworkConnection("127.0.0.1", Port) 
 If ConnectionID
 SendNetworkString(ConnectionID, "[stroka]:строка1:[stroka]", #PB_UTF8)
 Delay(1000)
SendNetworkString(ConnectionID, "[stroka1]:строка2:[stroka1]", #PB_UTF8)
 Delay(1000)

Debug PeekS(@*|/1/>Data\Buff[0], (*|/1/>Data\Header\Size-OffsetOf(NetPacket_Data\Buff))/2)