Delphi-PRAXiS
Seite 2 von 4     12 34      

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)

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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:44 Uhr.
Seite 2 von 4     12 34      

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