ticqclient

[hacker_007]

Как правильно организовать проверку соединения? Я делал так:

procedure TForm1.Timer3Timer(Sender: TObject);
begin
TcpClient1.Active:= true;
if TcpClient1.Connected = true then
begin
ICQClient1.Login();
//ICQClient1.UIN:= *********;
ICQClient1.UIN:= **********;
ICQClient1.Password:= '******';
ICQClient1.RequestContactList;
ICQClient1.XStatus := 12;
ICQClient1.Login(S_ONLINE + S_ALLOWDAUTH, false);
Timer5.Enabled:= true;
TcpClient1.Active:= false;
Timer3.Enabled:= false;
end
else
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
if ICQClient1.LoggedIn <> true then
begin
Timer3.Enabled:= true;
end
else
IcqClient1.SendKeepAlive;
end;

Проверял так:
Запускал программу, отрубал инет, ждал и опять врубал. Бот в сети но, ни на что не реагирует. Скажите где я ошибся???



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Ломоносов]

конкретнее опиши...