Brauche dringend Hilfe bei Netzwerkprogrammierung!
Verfasst: 01.09.2007 11:45
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:
Clientseite:
Ich brauche dringend Hilfe...
Toll wäre auch ein Quelltext der vielleicht besser funzt oder mit dem das richtig geht.
Danke schonmal im vorraus.
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.
