Code:

 Provera online statusa
~~~~~~~~~~~~~~~~~~~~~~~

Ovaj clanak je napisan za potpune pocetnike, a oni malo bolji mogu i da ga menjaju.
PAZNJA! Pisem u Notepad-u tako da moze doci do gresaka U KODU!!!

Sve sto ce nam trebati je:
TIpIdWatch - 1 komad = ova komponenta je na kartici Indy Misc
TTimer - 1 komad = ova komponenta je na kartici System
TPanel - 1 komad = ova je na Standard
Pobacajte ovo na form i ne dirajte nazive (ako nemate pojma).

Podesite sledece parametre:

IpIdWatch1 - active: true
         historyenabled: false

Timer1 - interval: 1
Panel1 - caption: "" <<-prazno

Predjimo na kod:
ovde cemo obraditi dogadjaj OnTimer komponente Timer1, ako ne znate kako da dodjete do
njega - kliknite dva puta na Timer1

procedure Timer1.Ontimer (bla bla bla,...)
begin
//odavde vi kopirajte
{http://www.crazymix.tk/}
if idipwatch1.currentip='127.0.0.1' then begin
panel1.color:=clred;
panel1.caption:='OFFLINE';
end else begin
panel1.color:=cllime;
panel1.caption:='ONLINE';
end;
//dovde
end;

Avram the veliki ;]