Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

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

Код:

procedure TForm1.bConnectClick(Sender: TObject);
begin
  ICQClient1.Login();
end;

procedure TForm1.bSendMessageClick(Sender: TObject);
begin
  with ICQClient1 do
    if LoggedIn then
      SendMessage(361796, edText1.Text + ':' + edText2.Text);
end;

Либо, как вариант использовать таймер, чтобы каждые N секунд проверять, удалось установить подключение или нет.

Код:

procedure TForm1.bConnectClick(Sender: TObject);
begin
  ICQClient1.Login();
  Timer1.Enabled := true;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with ICQClient1 do
    if LoggedIn then
      begin
        SendMessage(361796, edText1.Text + ':' + edText2.Text);
        Timer1.Enabled := false;
      end;
end;

Хотя с компонентом IcqClient чудеса творятся... Днем наотрез отказался подключаться...

Спасибо