Function receivefile$(ip, port)
   
   st$ = ReadString$(readstream)
   
   writelog("Empfange die Datei "+st$)
    packagesize = ReadInt(readstream)
    fsize#       = ReadInt(readstream)
   

   If packagesize>fsize Then packagesize = fsize
   
   pakete = Ceil(fsize#/packagesize)
   f = WriteFile(st$)

   For a=1 To pakete   

      responsetimer = MilliSecs() + 2000
      While Not RecvUDPMsg(readstream)

         If MilliSecs()>responsetimer
            writelogerror("Datei konnte nicht empfangen werden")
            CloseFile f :DeleteFile st$
            Return ""
         End If

         Delay 10
      Wend
   
      For b=1 To packagesize
         byte = ReadByte(readstream)
         WriteByte f, byte
      Next

      WriteString sendstream, "RECEIVEDPACKAGE "+a
      SendUDPMsg sendstream, ip, port

   Next
      
   CloseFile f
   
   writelog("Datei wurde erfolgreich empfangen",0,255,0)
   Return st$
End Function

Function sendfile(st$, ip, port)
   If connected
   packagesize = 7000
   
    If FileType(st$)
   
   writelog(st$+" wird gesendet...")

    ; Bereitet den Empfänger auf die Datei vor
   WriteString sendstream, "INCOMINGFILE"

    ; Filter den Teil vor der Datei heraus ( Z.B. wenn man versehentlich Currentdir$() mit sendet"
   temp$ = CurrentDir$()
   For a=1 To Len(st$)
      If Mid$(temp$,1,a)<>Mid$(st$,1,a) Then st$ = Right$(st$,Len(st$)-a+1) : Exit
   Next

   ; Sendet den Dateipfad, Paketgröße und Dateiname
   WriteString sendstream, st$
    WriteInt sendstream,packagesize
    WriteInt sendstream,FileSize(st$)

   SendUDPMsg sendstream, ip, port
   
   ; Sendet die Datei
   f = ReadFile(st$)

   While Not Eof(f)

      For a=1 To packagesize
         byte =  ReadByte(f)
         WriteByte sendstream, byte
         If Eof(f) Then Exit
      Next

      SendUDPMsg sendstream, ip, port

       responsetimer = MilliSecs() + 4000
      While Not newip
       If MilliSecs()>=responsetimer Then Exit
       newip =  RecvUDPMsg(readstream)
       If newip = ip
          ReadString$(readstream) : Exit
       Else
         If newip<>0
            Print DottedIP$(newip)
            While Not Eof(readstream)
               Print ReadString$(readstream)
            Wend
            If findclient(newip) Then client\pingtimer = MilliSecs()
              newip = 0
           End If
       End If : Delay 20
      Wend
      
      If newip = 0 Then writelogerror("Senden fehlgeschlagen") : Return False
      newip = 0
      
   Wend

   CloseFile f

   writelog("Datei wurde erfolgreich gesendet",0,255,0)
   Else
      writelogerror("Die Datei "+st$+" existiert nicht")
      Return False
   End If
   
   End If
End Function

Size = 1% Shl 16 - 9
If setsockopt_(Self.Socket, SOL_SOCKET_, SO_RCVBUF_, Varptr(Size), 4) = SOCKET_ERROR_ Or ..
   setsockopt_(Self.Socket, SOL_SOCKET_, SO_SNDBUF_, Varptr(Size), 4) = SOCKET_ERROR_ Then
   closesocket_(Self.Socket)
   Return False
EndIf