Seite 1 von 1

Senden bleibt aufeinmal stecken

Verfasst: 11.05.2007 15:38
von Joel
Hi,

Mir ist aufgefallen dass wenn ich mir 230 MB große Videos als test schicken lasse die Verbindung automatisch unterbrochen wird.

Bei mir wird dann angezeigt dass die Verbindung unterbrochen wurde.

Liegt das an PB oder macht das ein Sicherheitsprogramm automatisch oder woran liegt dass?

Edit: Der andere Benutzer war in der Zeit extra nicht am Computer, also hat er die Verbindung nicht unterbrochen.

Verfasst: 11.05.2007 15:44
von ts-soft
Bitte genauere Angaben! Geht es um ein PB-Programm? Source?
So sieht es aus wie ein Problem mit Deinem OS, das gehört dann aber in die
Laberecke.

Verfasst: 11.05.2007 15:48
von Joel
Ja, das ist das Purebasic Example und bei Client hab ich nur das Versenden des Stringen weggelassen und in SendNetworkFile umgeändert.

Ich Poste aber trotzdem mal den Code:

Server:

Code: Alles auswählen

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

Port = 6832
Buffer = AllocateMemory(1000)

If CreateNetworkServer(0, Port)

  
  
  Repeat
      
    SEvent = NetworkServerEvent()
  
    If SEvent
    
      ClientID = EventClient()
  
      Select SEvent
      
        
  
        Case 3
          ReceiveNetworkFile(ClientID, "D:\Empfang.avi")
          Debug "Fertig"
  
        Case 4
          MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has closed the connexion...", 0)
          Quit = 1
    
      EndSelect
    EndIf
    
  Until Quit = 1 
  
  MessageRequester("PureBasic - Server", "Click to quit the server.", 0)
  
  CloseNetworkServer(0)
Else
  MessageRequester("Error", "Can't create the server (port in use ?).", 0)
EndIf

  
End   

Client :

Code: Alles auswählen

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

Port = 6832

ConnectionID = OpenNetworkConnection("127.0.0.1", Port)
If ConnectionID
  
  
  ;Filee$ = OpenFileRequester("Datei auswählen", "C:\", "*.*", 0)
  ;MessageRequester("Hinweis", "Bitte warte jetzt bis der download abgeschlossen ist, du bekommst dann eine Meldung und klicke nachdem du fertig gelesen hast auf OK", 0)
  SendNetworkFile(ConnectionID, "D:\test.avi")
  Delay(99999000)
Else
  MessageRequester("Client", "Can't find the server (Is it launched ?).", 0)
EndIf
  
End   
Und dann wurde halt plötzlich die Verbindung unterbrochen

Ich habe es mehrmal Versucht und immer das gleiche: EInmal nach ~10MB übertragenem Video, einmal bei 8...

Verfasst: 11.05.2007 16:53
von Frogger
Ja PureBasic hat probleme beim senden von großen dateien (~>30MB)
du musst die datei in kleine stücke aufteilen und per SendNetworkData verschicken :)

Verfasst: 11.05.2007 17:42
von Joel
Ok, Danke dann weiß ich jetzt bescheid!
Danke!!!!!!!!!!

Verfasst: 11.05.2007 18:43
von AND51
Frogger hat geschrieben:Ja PureBasic hat probleme beim senden von großen dateien (~>30MB)
Das ist ja Scheiße! Wurde das schon als Bug gemeldet?

Verfasst: 11.05.2007 18:54
von Joel
Hab das schonmal an PB geschreiben, es hat aber keiner zurückgeschrieben!!!!! :D :?

Verfasst: 11.05.2007 20:05
von AND51
Wundert mich nicht, ich würde es in das PB Forum schreiben, da wirds eher wahrgenommen.