[Tool, Fun] - "Wer ist Online" - Ticker

[turboPASCAL]

Nur aus reiner Neugier und da ich heute nix anderes zu tun hatte habe ich eines Tool geschireben
welches die registrierten Benutzer der DP auf den PC holt.
Natürlich ist das Programm Open Source damit es zum Weiterentwickeln oder zum "gucken wie es geht" verwendet werden kann.
Was braucht es ? Nicht viel, eine Form auf dem ein Timer und ein Label sind, das ist alles.
Natürlich auch ein wenig Sourcecode. ;)
Als kleines Danke an Daniel & Co wird er, wenn Online, auch extra gemeldet angezeigt.

Das Programm legt keine Temp. Datei an oder benutzt die Registrie um Einträge zu speichern.

Ein Update findet alle zwei Minuten statt, das sollte ausreichen.

Ok, das wars. :hi:

PS.: Da is noch 'n Thread dazu. +

Update auf Version 1.4

• Neues Mainmenu
• Speichern der Einstellungen verbessert
• anzeige der Minuten/Sek. bis zum nächsten Update
• Grösse der Exe nochmals verkleinert

[Ultimator]

Hi!

Ich hab nen Router, und es wird mir angezeigt, ich hätte keine Verbinding ;)
Welche Ports muss ich freischalten, damit das klappt?

[Daniel]

Bei mir leider das gleiche Resultat - angeblich keine Verbindung zur DP.

[edit]
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.
[/edit]

[3_of_8]

Bei mir heißts immer "Verbindung zur Zeit nicht aktiv", allerdings bin ich ziemlich sicher, dass die Verbindung aktiv ist, sonst würde ich nämlich nicht hier schreiben. ;)

EDIT: Ich denke mal, gar kein Port. Portforwarding würde man IMHO nur brauchen, wenn die DP auf deinen PC zugreifen würde, was sie denke ich mal nicht tut. (Zumindest nicht tun sollte. :shock:). Und selbst dann würde der HTTP Port ausreichen, der standardmäßig sowieso meistens freigegeben ist.

[turboPASCAL]

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:

Delphi-Quellcode:

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:

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.

:gruebel:
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 ? :gruebel: :stupid:

[3_of_8]

Warum genau willst du kein Indy verwenden? Das ist eigentlich ziemlich zuverlässig.

[turboPASCAL]

Zitat:

Zitat von 3_of_8

Warum genau willst du kein Indy verwenden? Das ist eigentlich ziemlich zuverlässig.

Das ist mir zu "dick" und alles vorgerkaut. ;) (und in der nonVCL gibts och kein Indy)

[Hobby-Programmierer]

Nabend ..., :)

Zitat:

Zitat von turboPASCAL

mögliche Alternative:

Delphi-Quellcode:

function[TForm1.IsOnline: Boolean;
begin
  Result := TRUE;
end;

nach obiger Änderung funktioniert es bei mir !! Die Laufschrift nervt ein wenig aber sonst Super Tool :thumb:
Ps: Hänge auch hinter einem Router.

LG Mario :dancer:

[pacman1986]

auch nach obiger Änderung (ohne [ :D) funktionokelt

[Daniel G]

Zitat:

Zitat von pacman1986

auch nach obiger Änderung (ohne [ :D) funktionokelt

Dito. Ich find's nett...