![]() |
Re: [Tool, Fun] - "Wer ist Online" - Ticker
geht nicht :( Liegt wohl am Hochschulnetzt. Dein Tool sagt, es besteht keine Internetverbindung :(
|
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...^^ |
Re: [Tool, Fun] - "Wer ist Online" - Ticker
ich habs so geändert:
Delphi-Quellcode:
Ich vermute, dass die "81" ein Zahlendreher ist und "18" sein sollte. Aber ich denke meine Abfrage ist sprechender.
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; |
Re: [Tool, Fun] - "Wer ist Online" - Ticker
also bei mir ist auch keine Verbindung möglich ;) (sitze auch hinter nem Router :mrgreen:)
|
Re: [Tool, Fun] - "Wer ist Online" - Ticker
Zitat:
Nach suchen bin ich auf:
Delphi-Quellcode:
Ist das richtig ?
const
INTERNET_CONNECTION_OFFLINE = $20; |
Re: [Tool, Fun] - "Wer ist Online" - Ticker
|
Re: [Tool, Fun] - "Wer ist Online" - Ticker
Zitat:
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. |
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.
|
Re: [Tool, Fun] - "Wer ist Online" - Ticker
Zitat:
Zitat:
Zitat:
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; |
Re: [Tool, Fun] - "Wer ist Online" - Ticker
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:15 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