Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   TICQClient Проблема при рассылке! [DELPHI] (https://forum.antichat.xyz/showthread.php?t=64930)

De-visible 21.03.2008 01:29
TICQClient Проблема при рассылке! [DELPHI]
 
Создал Массив
ICQ:array [0..29] of TICQClient;
Делаю рассылку по диапазону
edit1 - начальный(uin)
edit2 - конечный(uin)
сначала логиню все номера которые есть в LISTBOX1
потом по таймеру (2.5минуты) пытаюсь отослать
Вот код!:
-----------------------
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
text:string;
begin
text:=edit1.Text;
For i:=0 to ListBox1.Items.Count-1 Do
  Begin
  ICQ[i].SendMessage(StrToInt(Text),'Программы на заказ!');
  If Edit1.Text=Edit2.Text Then Timer1.Enabled:=false;
  Text:=IntToStr(StrToInt(Text)+1);
  end;
end;
И рассылка не происходит!
В чем может быть проблема???

Jes 21.03.2008 01:51
а клиенты все нормально логинятся ?

Ps : может пригодиться,
TICQClient - исправления, дополнения....
Какер.ру "Тётя ася"

De-visible 21.03.2008 01:54
А вот как это просмотреть кто из них залогинился а кто нет!?:(
Никак не получается!

Jes 21.03.2008 01:58
icq.OnLogin
icq.OnConnectionFailed

De-visible 21.03.2008 02:04
Цитата:
icq.OnLogin
icq.OnConnectionFailed
__________________
Это понятно!
Вот как им пользоваться - вписываю в условие IF then else - не катит как быть?
Как правильно обрабатывать?

Ergoproxy 21.03.2008 02:10
if F_Main.ICQCl.LoggedIn = True then
ICQTox_Disconnect else
ICQTox_Login(StrToInt(Edit_Login.Text),Edit_Pass.T ext,0);

Чёто тип такого я сам писал ток давно))

Ergoproxy 21.03.2008 02:26
Нашёл весь код вот это работало всё)щяс хз непроверял

De-visible 22.03.2008 02:45
Вопрос решен!

Jes 22.03.2008 13:05
Решение в студию?

De-visible 22.03.2008 20:34
Цитата:
Сообщение от Jes
Решение в студию?
Конечно Jes:
Код:


procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: integer;
 nUin: string;
begin
 nUin := Edit1.Text;
 For i := Low(ICQ) to High(ICQ) do
 begin
  if i > High(ICQ) then break;
  if Assigned(ICQ[i]) then
  begin
  if ICQ[i].LoggedIn then
  begin
    ICQ[i].SendMessage(StrToInt(nUin), 'Darova');
    If Edit1.Text=Edit2.Text Then Timer1.Enabled := false;
    nUin := IntToStr(StrToInt(nUin)+1);
  end;
  end;
  Edit1.Text := nUin;
 end;
end;
:)


Время: 03:52