PureBoard

Verfasst: **08.07.2006 18:57**

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

Verfasst: **08.07.2006 19:08**

AndyX hat geschrieben:(Code ungetestet!)

Verfasst: **08.07.2006 19:21**

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.

Verfasst: **08.07.2006 19:28**

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.

Verfasst: **08.07.2006 23:33**

Verfasst: **09.07.2006 00:12**

@Joel
Wechsle die Windel, Du nervst!

Verfasst: **12.07.2006 18:27**

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

Verfasst: **12.07.2006 18:38**

> 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.

Verfasst: **12.07.2006 18:44**

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.

Verfasst: **12.07.2006 18:49**

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

PureBoard

Daten schneller übers Internet austauschen