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

[turboPASCAL]

Zitat von Jasocul:

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 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 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;