Hallo,
ich hab da ein seltsames Phänomen ....
Code
Const
dpIP4 : Array[0..5] of Byte = (254,1,3,150,11,200);
dpIP : String = '192.168.001.';
Var
dpCounter : Byte;
PingTime : Word;
Procedure Main3;
Begin
StrToIP(dpIP+ByteToStr(dpIP4[dpCounter]),IP1);
PingTime:=TINA_Ping(IP1,1000);
gDrawString(0,32+Integer(dpCounter*8),1,1,TxtRot0,dpIP+ByteToStr(dpIP4[dpCounter]:3:'0')+': '+
IntToStr(PingTime:5:'0')+'ms');
If not IncToLim(dpCounter,5)
then
dpCounter:=0;
EndIf;
If Life=true
then
gFillRect(235,0,239,4,$FF);
else
gFillRect(235,0,239,4,$00);
EndIf;
Toggle(Life);
gDispRefresh;
mDelay(100);
End Main3;
Wenn ich den Ping-TimeOut auf z.B. 300ms stelle, zeigt mir das Display nach kurzer Zeit für alle (!) Verbindungen 0ms an, auch bei Clients, die überhaupt nicht vorhanden sind. Ich habe jetzt eine Weile probiert und festgestellt, daß es ab 400ms funktioniert, bis runter auf etwa 310 ab und zu, unterhalb 310 überhaupt nicht. Wenn einmal 0ms angezeigt wird, bleibt das auch so.
Hat da jemand eine Idee dazu?
Gruss
Harry