Неясность с TICQClient.. Помогите :-[

[m0dE^]

Добрый день, уважаемые программисты! Я пишу ICQ-чат, используя компоненту TICQClient.. Бот в целом готов, но (!!!) если в моем чате общается около 10 человек, то бота выбивает из сети (в офф), т.е. при цикличной отправке всем пользователям онлайн, возможно, сервер не успевает обрабатывать запросы.. Пробовал юзать OnError и OnConnectionFailed, но мое «юзание» ни к чему не привело.. Хочу попытаться, что, если вдруг такая ситуация происходит с «перегрузом», то бот как бы переходит на другой уин, а тот номер тем временем будет «отдыхать».. Не знаете как можно избавиться от этого?

Заранее спасибо!

[m0dE^]

Нет никаких предложений? :'(

[Alter]

Делай паузу в несколько секунд(например 5), тогда не должно выкидывать. Сервер может частые посылы воспринять как флуд. QIP массовые рассылки когда делает, совершает паузу между отправкой сообщения пользователям.

[m0dE^]

Alter, а как сделать эту паузу в цикле на примере добавления в ListBox1 чисел от 0 до 10? (чтобы довлялись цифры какждые 5 сек)

[Alter]

Либо таймер, либо Sleep. Но sleep морозит всю программу.
C таймером:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    ListBox1: TListBox;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var N :Integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ListBox1.AddItem(IntToStr(N), Nil);
 if N=10 then Timer1.Enabled := False;
 Inc(N);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 N := 0;
 Timer1.Enabled := True;
 Timer1.Interval := 5000; // 5 Сек
end;

end.

[m0dE^]

Спасибо, Alter, все на самом деле было очень просто %)..

[m0dE^]

Спасибо.. Сделал, что отправка идет списку онлайн через определенный интервал, но:

Часть из процедуры SendMsg(Msg, UIN: string);
    UINicq:=UIN;
    bodytext:='[' + TimeToStr(Now) + '] --> ' + nick + ': ' + Msg;
    numbn:=0;
    Timer1.Enabled:=True;

procedure TForm1.TimerTimer(Sender: TObject);
begin
Try
if UINicq = Online1.Items[numbn] then begin
inc(numbn);
end;
Form1.ICQ1.SendMessage(StrToInt(Online1.Items[numbn]), bodytext);
if numbn = Online1.Items.Count-1 then Timer.Enabled:=False;
Inc(numbn);
Except end;
end;

Тут получается, что если я напишу сначала "привет", а потом вслед "привету" добавлю "как дела", то всем пользователям онлайн будет рассылаться не "привет" с "как дела", а только последнее отправленное сообщение.. Нужно создавать таймера программно что ли? 0о

[Alter]

Ещё так паузу можно делать:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Timer1: TTimer;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Timer1.Enabled := False;
 Timer1.Interval := 2000;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var I :Integer;
begin
   try
 for I:=0 to 10 do
 begin
    Timer1.Enabled := True;
   ListBox1.AddItem(IntToStr(I), Nil);
    while Timer1.Enabled do
     Application.ProcessMessages();
 end;
   finally
 Timer1.Enabled := False;
   end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Enabled := False;
end;

end.

[m0dE^]

Сделал и вторым случаем, который Вы мне подсказали, но по какой-то причине чат снова выбивает в офф

[m0dE^]

Сообщение от m0dE^

Сделал и вторым случаем, который Вы мне подсказали, но по какой-то причине чат снова выбивает в офф

Восстановил работу над проектом, но эту проблему так и не решил.. Может знает кто-нибудь или кто-то делал уже, то помогите, пожалуйста...