PureBoard

Code: Alles auswählen

Procedure SendFileAsData(IDConnection,file$,waittime)  
  ;file$ = OpenFileRequester("Datei auswählen...","","Text (.txt)|*.txt|All files (*.*)|*.*",0)
  If ReadFile(0, file$) 
    Protected Length = Lof(0)                            ; Länge der geöffneten Datei ermitteln
    ;Debug Length
    Protected *MemoryID = AllocateMemory(length)         ; Reservieren des benötigten Speichers
    If *MemoryID
      Protected  DatenPacket=65535                       ; 65536 ;Legt Fest wie groß dein daten Paket sein soll
      Protected i
      For i=1 To Length/DatenPacket
        Protected bytes = ReadData(0, *MemoryID, DatenPacket)   ; Einlesen aller Daten in den Speicherblock          
        ;Debug PeekS(*MemoryID)
        SendNetworkData(IDConnection,*MemoryID,65535)
        Delay(waittime)
      Next
      ;Debug Length/DatenPacket
      ;FreeMemory(*MemoryID)
      If Length-Length/DatenPacket*DatenPacket>0
        Protected *MemoryIDDD=AllocateMemory(Length-Length/DatenPacket*DatenPacket)
        ;FillMemory(*MemoryID,Length-Length/DatenPacket*DatenPacket)
        bytes = ReadData(0, *MemoryIDDD, Length-Length/DatenPacket*DatenPacket)   ; Einlesen aller Daten in den Speicherblock
        ;Debug Length-Length/DatenPacket*DatenPacket
        ;Debug PeekS(*MemoryIDDD)
        SendNetworkData(IDConnection,*MemoryID,65535)
      EndIf
    EndIf
    CloseFile(0)
  EndIf

  FreeMemory(*MemoryID)
  FreeMemory(*MemoryIDDD)
EndProcedure 

Code: Alles auswählen

Case #PB_NetworkEvent_Data
          ReceiveNetworkData(ClientID, *Buffer, 65535)
          LastName=PeekS(*Buffer)
          PrintL(NameForID(ClientID)+": "+LastName)

          If Mid(LastName,1,2)="13"
            SendNetworkString(ClientID, "wait")
          ElseIf Mid(LastName,1,5)="FILE:"
            LastFile=Mid(LastName,6)
            CreateDirectory("C:\Users\Peter\Desktop\rofl\"+NameForID(ClientID))
            CreateFile(0,"C:\Users\Peter\Desktop\rofl\"+NameForID(ClientID)+"\"+LastFile)
          ElseIf Mid(LastName,1,5)="CLOSE"
            CloseFile(0)           
          Else
            WriteData(0,*Buffer,65535)
                
          EndIf
          ;FreeMemory(*Buffer)
          ;*Buffer=AllocateMemory(65535)
          FillMemory(*Buffer, 65535)
          

Code: Alles auswählen

Structure
  LengthOfData.l
  KindOfPaket.w
  *Data
EndStructure

Code: Alles auswählen

*Send.SendStruct     = AllocateMemory(32100)
InitializeStructure(*Send, SendStruct)
*Send\Code="hi"
*Send\Nummer="du lord"
*Send\Data=234234
  Debug *Send\Code
  Debug *Send\Nummer
  Debug *Send\Data  
  SendNetworkData(ConnectionID,*Send,32100)    

Code: Alles auswählen

*Buffer.SendStruct = AllocateMemory(32100);*Buffer.SendStruct = AllocateMemory(32100)
InitializeStructure(*Buffer, SendStruct)
;----------------------------------------------------;
;----------sonstiger code entfärnt----------------;
;----------------------------------------------------;
Case #PB_NetworkEvent_Data
          ;MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has send a packet !", 0)
          ;MessageRequester("Info", "String: "+PeekS(*Buffer), 0)
          Debug "Client "+Str(ClientID)+" has send a packet !"
          ;Debug "String: "+PeekS(*Buffer)
          ReceiveNetworkData(ClientID, *Buffer.SendStruct, 32100)
          
          Debug *Buffer\Code
          Debug *Buffer\Nummer
          Debug *Buffer\Data         
          
          *Receive.SendStruct  = AllocateMemory(32100)
          ;InitializeStructure(*Buffer, SendStruct)
          
          ;CopyStructure(@*Buffer, @*Receive, SendStruct)
          ;CopyMemory(*Buffer, *Receive, 32100)
          
          Debug *Receive\Code
          Debug *Receive\Nummer
          Debug *Receive\Data         
          

Code: Alles auswählen

Structure SendStruct
  Code.s
  Nummer.s 
  *Data
EndStructure