Daten schneller übers Internet austauschen

[Joel]

bei der länge: "len" wird eine fehlermeldung angezeigt : memory buffer lengt is null.

[AndyX]

(Code ungetestet!)

[Joel]

immernoch das geiche Problem, und guck dir mal bei Server unter Case 2 das an, da hast du am anfang If vergessen dass Problem besteht aber immernoch.

[AndyX]

kannst du nicht lesen? ich habe den Code nicht getestet und du kannst mir dankbar sein, dass ich deinen Code lesbarer gemacht habe. Den Rest musst du selber machen.

[Joel]

aha

[jear]

@Joel
Wechsle die Windel, Du nervst!

[Joel]

Ok aber was ist an dem Code von seite 2 falsch?


Hier isser nochma:

Wie gesagt wenn der Server eine Datei empfängt wird der Heruntergefahren.

Client:

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)
  ;MessageRequester("PureBasic - Server", "Server created (Port "+Str(Port)+").", 0)
  Repeat
      ClientID = EventServer()
      SEvent = NetworkClientEvent(ClientID)
  If SEvent
      Select SEvent
        Case 1
        OpenWindow(0, 100, 150, 200, 200, "Server zum Herunterfahren")
        SendNetworkFile(CkientID, "C:\jo.txt")
        Repeat
    Until WaitWindowEvent() = #PB_Event_CloseWindow
       EndSelect
        EndIf
       Until Quit = 1 
         EndIf 

Server:

Code: Alles auswählen

If InitNetwork() = 0
  MessageRequester("Error", "Can't initialize the network !", 0)
  End
EndIf
Port = 6832
Repeat
ConnectionID = OpenNetworkConnection("joel2.dyndns.org", Port)
If ConnectionID
EndIf 
Until Quit = 1
  Repeat
  Client = NetworkClientEvent(ConnectionID) 
If Client
ClientID = EventClient()
      Select  ClientID
      Case 3
  ExitWindowsEx_(#EWX_POWEROFF,0)
  EndSelect
  EndIf 
  Until Quit = 1
  CloseNetworkConnection(ConnectionID)
End   

[Kaeru Gaman]

> was ist an dem Code von seite 2 falsch?

fragst du das echt, oder testest du uns?

sowas zum beispiel:

Code: Alles auswählen

Repeat 
ConnectionID = OpenNetworkConnection("joel2.dyndns.org", Port) 
If ConnectionID 
EndIf 
Until Quit = 1 

ein leeres If, eine endlosschleife.....

so wird das nix, ey.

[Joel]

Ich wollte dass erst das Fenser erscheint wenn eine Verbindung besteht. Nur ich kappier das einfach nicht mit Server und Client-Event und NetworkServer und Client-Event

Das ist so schwierig weil der Server Daten an den Client sendet.

[AndyX]

menno... lern erstmal Grundlagen und schau, ob du ein HelloWorld-Proggy schaffst...