Hm, seltsam. Der Online-Check wird wie folgt ausgeführt:
Delphi-Quellcode:
function[TForm1.IsOnline: Boolean;
var dlvFlag : DWord;
begin
Result := FALSE;
dlvFlag := Internet_Connection_Modem or
Internet_Connection_Lan or Internet_Connection_Proxy;
if InternetGetConnectedState ( @dlvFlag, 0 ) = TRUE Then
Result := dlvFlag = 81;
end;
mögliche Alternative:
If InternetGetConnectedState(nil, 0) then ...
Und da währen wir schon wieder beim Thema "Was geht bei wem wie".
Ggf. kann man ja diese Option auch ausschalten:
Delphi-Quellcode:
function[TForm1.IsOnline: Boolean;
begin
Result := TRUE;
end;
Zitat von
Daniel:
Ich habe ihn jetzt mal gezwungen, online zu gehen, aber er zeigt mir nur drei Benutzer an, obwohl gegenwärtig 25 registrierte Benutzer online sind.
Hm, k.A. event. waren zu dem Zeitpunkt des Updates nur drei online...
Kann ich nicht nachvollziehen, bei mir stimmt es...
// Edit:
Funktioniert das Prg. denn bei jemanden ausser bei mir ?
