Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   [Tool, Fun] - "Wer ist Online" - Ticker (https://www.delphipraxis.net/72111-%5Btool-fun%5D-wer-ist-online-ticker.html)

turboPASCAL 25. Jun 2006 22:48


[Tool, Fun] - "Wer ist Online" - Ticker
 
Liste der Anhänge anzeigen (Anzahl: 3)
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 25. Jun 2006 22:51

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Hi!

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

Daniel 25. Jun 2006 22:52

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
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 25. Jun 2006 22:54

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
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 25. Jun 2006 23:48

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
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 25. Jun 2006 23:55

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Warum genau willst du kein Indy verwenden? Das ist eigentlich ziemlich zuverlässig.

turboPASCAL 26. Jun 2006 00:00

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
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 26. Jun 2006 00:02

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
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 26. Jun 2006 00:44

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
auch nach obiger Änderung (ohne [ :D) funktionokelt

Daniel G 26. Jun 2006 01:05

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Zitat:

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

Dito. Ich find's nett...

MagicAndre1981 26. Jun 2006 09:13

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
geht nicht :( Liegt wohl am Hochschulnetzt. Dein Tool sagt, es besteht keine Internetverbindung :(

HuxXx 26. Jun 2006 13:02

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Hi!

Bei mir isses das gleiche, es meldet dass die onlineverbindung nicht aktiv ist.
Aber stellt das Tool überhaupt eine Verbindung ins Internet, denn meine Firewall meldet nichts, und die Windows Firewall hab ich extra dafür ausgeschaltet...

Greetz by Hux...^^

Jasocul 26. Jun 2006 13:41

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
ich habs so geändert:
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 := not ((dlvFlag and INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE);
end;
Ich vermute, dass die "81" ein Zahlendreher ist und "18" sein sollte. Aber ich denke meine Abfrage ist sprechender.

fLaSh11 26. Jun 2006 14:11

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
also bei mir ist auch keine Verbindung möglich ;) (sitze auch hinter nem Router :mrgreen:)

turboPASCAL 26. Jun 2006 16:14

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Zitat:

Zitat von Jasocul
ich habs so geändert:
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 := not ((dlvFlag and INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE);
end;
Ich vermute, dass die "81" ein Zahlendreher ist und "18" sein sollte. Aber ich denke meine Abfrage ist sprechender.

Wo hast du denn die Constante her (Unit)?

Nach suchen bin ich auf:
Delphi-Quellcode:
const
  INTERNET_CONNECTION_OFFLINE = $20;
Ist das richtig ?

teebee 26. Jun 2006 16:23

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Schau Dir mal diese Geschichte an...

Gruß, teebee

Jasocul 26. Jun 2006 16:25

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Zitat:

Zitat von turboPASCAL
Wo hast du denn die Constante her (Unit)?

InternetGetConnectedState + F1
Da wird in der D2005-Hilfe eine passende Liste angezeigt.

@teebee:
Das habe ich jetzt nicht geprüft, da ich mich einfach mal auf den Funktionsnamen verlassen habe. Aber prüfen sollte man das sicher nochmal.

Daniel 26. Jun 2006 16:32

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Ich weiß jetzt, warum ich nur wenige User zu sehen bekomme. ;-) Ich sehe ein wenig mehr als ihr und meine Liste besteht nicht nur aus homogen aufgebauten Links. Beim ersten "Dingens", das dieses Programm nicht erkennt, hört es offenbar auf.

turboPASCAL 26. Jun 2006 16:58

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Zitat:

Zitat von Jasocul
Zitat:

Zitat von turboPASCAL
Wo hast du denn die Constante her (Unit)?

InternetGetConnectedState + F1
Da wird in der D2005-Hilfe eine passende Liste angezeigt.

Nunja, nicht bei mir. ( D6 PE )

Zitat:

Zitat von Daniel
Ich weiß jetzt, warum ich nur wenige User zu sehen bekomme. ;-) Ich sehe ein wenig mehr als ihr und meine Liste besteht nicht nur aus homogen aufgebauten Links.

Das Prg liest ja auch nur die eingelogten, reg. Benutzer und dann auch nur die die die sich nicht verstecken. ;)

Zitat:

Zitat von Daniel
Beim ersten "Dingens", das dieses Programm nicht erkennt, hört es offenbar auf.

Ja, dem ist so. Es werden nur die Umschliessenden Href's gelöscht.

Delphi-Quellcode:
if length(s) > 0 then // Simple Parse HTML
  begin
    s := Copy(s, 1, Pos('</span>', s) - 1);
    for i := 1 to length(s) do
      if s[i] < #32 then delete(s, i, 1);
    i := 1;
    repeat
      i := _PosEx('<', s, i);
      n := _PosEx('>', s, i);
      delete(s, i, n - i + 1);
    until not (i <> 0);
    Result := Trim(s) + ', ';
  end;

Jasocul 26. Jun 2006 17:02

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Zitat:

Zitat von turboPASCAL
Nach suchen bin ich auf:
Delphi-Quellcode:
const
  INTERNET_CONNECTION_OFFLINE = $20;
Ist das richtig ?

Jepp.

turboPASCAL 26. Jun 2006 17:31

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
@Jasocul, danke.

Kleines Update hochgeladen. Verbesserung der Onlineerkennung (abschaltbar / ruft ggf. den Einwahldialog auf). Downloadcode Fehlerbehandlung verbessert.

CodenameCookie 27. Jun 2006 19:20

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Super nice Programm ! Die Art wie das Programm die user abruft finde ich auch i.O. .

Thx 4 OpenSource ;).

Grüsse

turboPASCAL 28. Jun 2006 15:31

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Hi,

tut das jetzt bei euch besser oder gibt es noch andere Probleme ?

PS.: Eigentlich wollte ich noch ein DotMatrix-Display bauen aber die Zeit zum Programieren ist ein wenig dünn. Kent jemand eine kostenlose mit Sourcecode ?

MagicAndre1981 28. Jun 2006 15:40

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
NUn gehts, hatte ich vergessen zu posten :oops: . Cool fände ich noch, wenn das Scrollen aufhören könnte wenn man mit dem Mauszeiger auf einen Namen fährt und dann das Profil abrufen könnte :thumb:

mOzZzI 28. Jun 2006 16:40

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Bei mir geht die Meldung nicht wenn Daniel online geht...

Quelltext unverändert...

turboPASCAL 28. Jun 2006 18:11

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Zitat:

Zitat von MagicAndre1981
Cool fände ich noch, wenn das Scrollen aufhören könnte wenn man mit dem Mauszeiger auf einen Namen fährt und dann das Profil abrufen könnte :thumb:

:gruebel: Uh, das wird ein bisschen viel. Ausserdem mag mich der IE nicht und ihn !*§%$ (psst) ich...


Zitat:

Zitat von mOzZzI
Bei mir geht die Meldung nicht wenn Daniel online geht...

Wird ja auch nur leise angezeigt, habe mal was lauteres eingebaut. (Im Moment nur bei der Exe)

Zitat:

Zitat von mOzZzI
Quelltext unverändert...

Hä, wie was wo ?

mOzZzI 28. Jun 2006 19:46

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Wäre es vill möglich anzeigen zu lassen ob sich jemand ab- oder angemeldet hat?

turboPASCAL 28. Jun 2006 19:56

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Ja, das ist doch schon so, also im Fall von Daniel. Man kann das durchaus noch erweitern auf jeden bel. Benutzer. Ist halt eine Frage des Programierzietaufwandes. ;)

mOzZzI 28. Jun 2006 19:58

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Zitat:

Zitat von turboPASCAL
Ja, das ist doch schon so, also im Fall von Daniel. Man kann das durchaus noch erweitern auf jeden bel. Benutzer. Ist halt eine Frage des Programierzietaufwandes. ;)

ach ja, stimmt, dann fang ich da jetzt mal an :stupid:

MagicAndre1981 28. Jun 2006 20:51

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Zitat:

Zitat von turboPASCAL
Zitat:

Zitat von MagicAndre1981
Cool fände ich noch, wenn das Scrollen aufhören könnte wenn man mit dem Mauszeiger auf einen Namen fährt und dann das Profil abrufen könnte :thumb:

:gruebel: Uh, das wird ein bisschen viel. Ausserdem mag mich der IE nicht und ihn !*§%$ (psst) ich...

:cry: Schade! :cry:

turboPASCAL 28. Jun 2006 23:26

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Zitat:

Zitat von MagicAndre1981
:cry: Schade!

Tja, ja... :cry:


So, erst einmal letztes Update hochgeladen (Version 1.2).

- Kleinen Bug beseitigt
- Wave-Sound hinzugefügt
- Speichern in Ini.-File hinzugefügt

turboPASCAL 5. Jul 2006 11:23

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
So, wieder mal ein kleines Update.

- speichern der Fensterposition
- "Mod's auf einen Blick"
- Stay on Top Optional

turboPASCAL 9. Jul 2006 15:41

Re: [Tool, Fun] - "Wer ist Online" - Ticker
 
Zitat:

Zitat von turboPASCAL
So, wieder mal ein kleines Update.

Ne, ich geb nich auf. Noch 'n Update auf Version 1.4 (siehe erster Post).

Was noch fehlt ist ein (sanf) scrolling Text. :-D


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:59 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz