Seite 1 von 2

Ping Beispiel

Verfasst: 29.11.2012 18:34
von Moxl
Halli Hallo,

ich suche ein Ping Beispiel was ich in mein Server Client Programm einbauen kann... leider fällt mir nichts ein wie ich das bewerkstelligen kann...
also wenn der server mal aus irgend einem grund mal off geht und der client immernoch mit ihm verbunden ist, dann soll der client automatisch in eine repeat schleife gehn wo er immer wieder versucht sich neu zu verbinden (solang bis der server halt wieder läuft)

das hab ich ja soweit nur ich hab keine ahnung wie genau ich das ping pong prinzip schreiben soll..

vielleicht könnt ihr mir ja mit ein paar tipps und tricks helfen ;)


danke schonmal :allright:

Re: Ping Beispiel

Verfasst: 29.11.2012 18:37
von Moxl
also so viel hab ich schonmal:

Code: Alles auswählen

If  ElapsedMilliseconds()-timer>5000
        SendNetworkString(verbindung, "ping")
        timer=ElapsedMilliseconds()
      EndIf
und auf der server seite wird dann ein "pong" zurück gesendet wenn "ping" empfangen wurde...

soweit, sogut :allright:

Re: Ping Beispiel

Verfasst: 29.11.2012 19:39
von mk-soft
Ich verwende immer das hier...

http://www.purebasic.fr/german/viewtopi ... =8&t=23445

Dann bekommt man auch "PB_NetworkEvent_Disconnect" am Client.

FF

Re: Ping Beispiel

Verfasst: 29.11.2012 20:03
von Moxl
hm also das hilft mir ehrlich gesagt nicht weiter :/

hat noch jemand was einfacheres und nich so aufwändiges?

aber trotzdem danke ;)

Re: Ping Beispiel

Verfasst: 29.11.2012 20:14
von mk-soft
Einfach "IncludeFile" und die PB Networkfunction verwenden.
Nicht über den Code nachdenken... <)

P.S. Einfacher hiermit
http://forums.purebasic.com/german/view ... =3&t=25849

Re: Ping Beispiel

Verfasst: 29.11.2012 20:22
von kunstlust
ich habe das so gemacht:

Code: Alles auswählen

Ping = RunProgram("Ping", "www.purebasic.com"+" -n 1", "", #PB_Program_Open | #PB_Program_Read|#PB_Program_Hide )

If Ping
  While ProgramRunning(Ping)
    Output.s + ReadProgramString(Ping) + Chr(13)
  Wend
EndIf
If FindString(Output,"TTL",1)
  Debug "OK"
Else
  Debug "Fehler"
EndIf

Re: Ping Beispiel

Verfasst: 29.11.2012 20:53
von Moxl
@mk-soft:
mit dem einfachereren code ist es eig recht gut nur TestConnectionTCP() nimmt leider kein DNS Server name an :/ in dem Beitrag steht zwar das man das leicht nachrüsten kann aber keine ahnung wie :/

@kunstlust:
theoretisch eigentlich ganz gut aber wenn ich bei "www.purebaisc.com", mein DNS Server name eintrage kommt trotzdem immer OK raus weil der ja quasi ein ping an meinen pc schickt und nicht an das programm :)

Re: Ping Beispiel

Verfasst: 30.11.2012 12:38
von mk-soft
Schau mal hier rein. Finde ich auch sehr gut

http://forums.purebasic.com/german/view ... 2&start=38

Re: Ping Beispiel

Verfasst: 30.11.2012 15:27
von Moxl
hm auch eig ganz gut und funktioniert auch wie es soll nur jetzt hab ich das problem das bei meinem server zweimal angezeigt wird das sich n client connected und wieder disconnected hat^^ das is halt nicht so gut^^

hat vielleicht sonst noch jemand was? :)

Re: Ping Beispiel

Verfasst: 03.12.2012 20:01
von Moxl
keiner ne idee? :cry: :praise: