PureBoard

Code: Alles auswählen

Structure Client
  id.l
EndStructure

Procedure SendFile(string)
  If string = 0
    Debug "invalid string"
    ProcedureReturn 0
  EndIf
  id = Val(StringField(PeekS(string), 1, "!"))
  file$ = StringField(PeekS(string), 2, "!")
  filesize = FileSize(file$)
  If filesize < 0
    Debug "invalid filesize"
    Debug filesize
    ProcedureReturn 0
  EndIf
  file = ReadFile(#PB_Any, file$)
  If file = 0
    Debug "file not found"
    Debug file$
    ProcedureReturn 0
  EndIf
  buffer = AllocateMemory(4)
  PokeL(buffer, filesize)
  If SendNetworkData(id, buffer, 4) = -1
    Debug "can't send data 1"
    ProcedureReturn 0
  EndIf
  While start+5000 < Lof(file)
    buffer = AllocateMemory(5000)
    FileSeek(file, start)
    ReadData(file, buffer, 5000)
    again2:
    If SendNetworkData(id, buffer, 5000) = -1
      If i < 2
        Delay(100)
        Goto again2
      Else
        Debug "can't send data 2"
        ProcedureReturn 0
      EndIf
    Else
      i = 0
    EndIf
    FreeMemory(buffer)
    start+5000
  Wend
  l = Lof(file)-start
  buffer = AllocateMemory(l)
  FileSeek(file, start)
  ReadData(file, buffer, l)
  If SendNetworkData(id, buffer, l) = -1
    Debug "can't send data 3"
    ProcedureReturn 0
  EndIf
  FreeMemory(buffer)
  CloseFile(file)
  Debug "file transfer complete"
EndProcedure

If InitNetwork() = 0
  End
EndIf

If CreateNetworkServer(1, 5142) = 0
  End
EndIf

Global NewList Client.Client()


Repeat
  netevent = NetworkServerEvent()
  clientid = EventClient()
  If netevent = #PB_NetworkEvent_Connect
    AddElement(Client())
    Client()\id = clientid
    string$ = Str(clientid)+"!temp.png"
    CreateThread(@SendFile(), @string$)
  EndIf
  
  Delay(10)
ForEver

Code: Alles auswählen

If InitNetwork() = 0
  End
EndIf

conid = OpenNetworkConnection("localhost", 5142)
If conid = 0
  End
EndIf

OpenWindow(1, 0, 0, 800, 600, "", #PB_Window_ScreenCentered|#PB_Window_Invisible)
CreateGadgetList(WindowID(1))

Procedure Update(conid)
  Protected all, file, p, f, buffer, len, filesize
  Repeat
    If NetworkClientEvent(conid) = #PB_NetworkEvent_Data
      all = 0
      p = 0
      Repeat
        buffer = AllocateMemory(2000)
        len = ReceiveNetworkData(conid, buffer, 2000)
        If all
          all = ReAllocateMemory(all, MemorySize(all)+len)
        Else
          all = AllocateMemory(len)
          p = 0
        EndIf
        CopyMemory(buffer, all+p, len)
        p+len
        FreeMemory(buffer)
        buffer = 0
        Delay(1)
      Until len < 2000
      Break
    EndIf
    Delay(1)
  ForEver
  
  filesize = PeekL(all)
  
  Debug filesize
  
  file = AllocateMemory(MemorySize(all)-4)
  CopyMemory(all+4, file, MemorySize(all)-4)
  f = MemorySize(all)-4
  FreeMemory(all)
  all = 0
  
  Repeat
    If NetworkClientEvent(conid) = #PB_NetworkEvent_Data
      all = 0
      p = 0
      Repeat
        buffer = AllocateMemory(2000)
        len = ReceiveNetworkData(conid, buffer, 2000)
        If all
          all = ReAllocateMemory(all, MemorySize(all)+len)
        Else
          all = AllocateMemory(len)
          p = 0
        EndIf
        CopyMemory(buffer, all+p, len)
        p + len
        FreeMemory(buffer)
        buffer = 0
        Delay(1)
      Until len < 2000
      file = ReAllocateMemory(file, MemorySize(file)+MemorySize(all))
      CopyMemory(all, file+f, MemorySize(all))
      f + MemorySize(all)
      FreeMemory(all)
      state.f = MemorySize(file)*100/filesize
      Debug state
    EndIf
    Delay(1)
  Until MemorySize(file) >= filesize
  
  CreateFile(1, "temp2.png")
  WriteData(1, file, MemorySize(file))
EndProcedure

WaitThread(CreateThread(@Update(), conid))