PureBoard

Code: Alles auswählen

EnableExplicit

Define ServerName.s = "127.0.0.1" ; for example FileZilla Server
Define PortToServer = 2121

Define OwnPort = 21
Define *Buffer = AllocateMemory(10000)

Define ClientID, ServerID
Define WEvent, SEvent, CEvent, Quit
Define Size, sent
Define temp.s, temp2.s


Macro DebugBuffer
  temp="" 
  temp2="" 
  For i = 0 To Size
    temp = temp.s + Str(Asc(PeekS(*Buffer+i,1)))+" "
    temp2 = temp2.s + Chr(Asc(PeekS(*Buffer+i,1)))+" "
  Next 
  Debug ""
  Debug temp 
  Debug temp2 
  Debug "----------"  
EndMacro


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

If CreateNetworkServer(0, OwnPort)
  OpenWindow(0, 800, 50, 230, 30, "Atomic FTP Proxy Server (Port "+Str(OwnPort)+")")
  StickyWindow(0, #True) 
  TextGadget(1, 10, 8, 200, 20, "Atomic FTP Proxy Server Ready.")
  
  Repeat
    WEvent = WindowEvent()
    SEvent = NetworkServerEvent()
    
    If WEvent = #PB_Event_CloseWindow : Quit = 1 : EndIf
    
    If SEvent : ClientID = EventClient()
      
      Select SEvent
          
        Case #PB_NetworkEvent_Connect
          Debug "#PB_NetworkEvent_Connect" : Debug "----------" 
          SetGadgetText(1, "Client connected !")
          ServerID = OpenNetworkConnection(ServerName, PortToServer)
          If ServerID
            FillMemory(*Buffer, 10000) 
            Size = ReceiveNetworkData(ServerID , *Buffer, 10000) 
            
              ;If Size > 3 : PokeL(*Buffer+Size-2, 0) : EndIf
              ;Size-2
              ;DebugBuffer
            
            If Size <> -1
              Debug "< "+PeekS(*Buffer, Size) : Debug "----------"  
              sent=0
              Repeat
                sent = sent+SendNetworkData(ClientID, *Buffer, 10000)
              Until Size = sent
              Debug "<< "+PeekS(*Buffer, sent) : Debug "----------" 
            Else
              MessageRequester("Error from #PB_NetworkEvent_Connect", "ReceiveNetworkData(ServerID , *Buffer, 10000)", 0)
            EndIf
            
          Else
            MessageRequester("Error from #PB_NetworkEvent_Connect", "OpenNetworkConnection(ServerName, PortToServer)", 0)
          EndIf
          
          
        Case #PB_NetworkEvent_Disconnect
          Debug "#PB_NetworkEvent_Disconnect from Client"
          SetGadgetText(1, "Client disconnected !")
          CloseNetworkConnection(ServerID)
          ServerID=0
          
          
        Default
          Debug "Default" : Debug "----------" 
          FillMemory(*Buffer, 10000) 
          Size = ReceiveNetworkData(ClientID , *Buffer, 10000) 
          SetGadgetText(1, "Client has send data !")
          If Size <> -1
            Debug "> "+PeekS(*Buffer, Size) : Debug "----------" 
            sent=0
            Repeat
              sent = sent+SendNetworkData(ServerID, *Buffer, Size)
            Until Size = sent
            Debug ">> "+PeekS(*Buffer, sent) : Debug "----------" 
          Else
            MessageRequester("Error from Default", "ReceiveNetworkData(ClientID , *Buffer, 10000) ", 0)
          EndIf
          
          Repeat : CEvent = NetworkClientEvent(ServerID) : Debug "." : Delay (1) : Until CEvent
          
          Select  CEvent
            Case #PB_NetworkEvent_Data
              Debug "..."
              FillMemory(*Buffer, 10000) 
              Size = ReceiveNetworkData(ServerID , *Buffer, 10000) 
              
              ;If Size > 3 : PokeL(*Buffer+Size-2, 0) : EndIf
              ;Size-2
              ;DebugBuffer
              
              If Size <> -1
                Debug "< "+PeekS(*Buffer, Size) : Debug "----------" 
                sent=0
                ;Repeat ;-
                  sent = sent+SendNetworkData(ClientID, *Buffer, Size)
                ;Until Size = sent
                Debug "<< "+PeekS(*Buffer, sent) : Debug "----------" 
                SetGadgetText(1, "Client has received data !")
                
              Else
                MessageRequester("Error from Default", "ReceiveNetworkData(ServerID , *Buffer, 10000)", 0)
              EndIf
              
            Case #PB_NetworkEvent_Disconnect
              Debug "#PB_NetworkEvent_Disconnect from Server"
              
          EndSelect ; CEvent = NetworkClientEvent(ServerID)
          
      EndSelect ; SEvent = NetworkServerEvent()
      
    Else
      Delay(10)
    EndIf
    
  Until Quit = 1 
  
  If ServerID : CloseNetworkServer(0) : EndIf
Else
  MessageRequester("Error", "Can't create the server (port in use ?).", 0)
EndIf
End