Brauche dringend Hilfe bei Netzwerkprogrammierung!

[Benni125]

Also. Ich will ein Programm schreiben, dass über ein Programm was bei mir auf dem Computer Infos erhält, und dann damit arbeiten kann.
Jetzt das Problem. Auf der Client-Seite stellt er erfolgreich eine Verbindung her. Aber das Serverprogramm reagiert garnet auf den Neuankömmling.
Der Code sieht ungefähr so aus.

Serverseite:

Code: Alles auswählen

CreateNetworkServer(1,21)

.
.
.
.
.

Repeat
event=WindowEvent()

serverevent=NetworkServerEvent()
Select serverevent
  Case #PB_NetworkEvent_Connect
      anz_user=anz_user+1
      SetGadgetText(10,"User eingeloggt: "+Str(anz_user))
    trage_clientnummer_ein(EventClient())
  Case #PB_NetworkEvent_Data
    empfange_daten(EventClient())
EndSelect   
     

Until event=#PB_Event_CloseWindow

Clientseite:

Code: Alles auswählen

InitNetwork()

If OpenNetworkConnection("192.16.178.20",21)
  MessageRequester("Verbindung erfolgreiche","")
Else
  MessageRequester("Verbindung nicht erfolgreiche","")
EndIf

Ich brauche dringend Hilfe...
Toll wäre auch ein Quelltext der vielleicht besser funzt oder mit dem das richtig geht.
Danke schonmal im vorraus.

[mk-soft]

Der Code ist schon etwas umfangreich, beinhaltet aber alles was ein Server braucht.
http://www.purebasic.fr/german/viewtopi ... =varserver

FF

[Benni125]

das is sehr hilfreich dankschön.... Ich schreibe wenn ich alle Probleme gelöst habe