TICQClient Проблема при рассылке! [DELPHI]

FORUMS

MEMBERS

RECENT POSTS

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
TICQClient Проблема при рассылке! [DELPHI]

Опции темы

Поиск в этой теме

Опции просмотра

TICQClient Проблема при рассылке! [DELPHI]

21.03.2008, 01:29

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

С нами: 9655526

Репутация: 1821

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;
И рассылка не происходит!
В чем может быть проблема???

𝕏 Twitter Reddit Telegram Копировать ссылку

Последний раз редактировалось De-visible; 21.03.2008 в 01:32.. Причина: код в теги записать забыл

21.03.2008, 01:51

Jes

Постоянный

Регистрация: 16.04.2007

Сообщений: 398

С нами: 10037186

Репутация: 1462

а клиенты все нормально логинятся ?

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

21.03.2008, 01:54

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

С нами: 9655526

Репутация: 1821

А вот как это просмотреть кто из них залогинился а кто нет!?

Никак не получается!

21.03.2008, 01:58

Jes

Постоянный

Регистрация: 16.04.2007

Сообщений: 398

С нами: 10037186

Репутация: 1462

icq.OnLogin
icq.OnConnectionFailed

21.03.2008, 02:04

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

С нами: 9655526

Репутация: 1821

Цитата:

icq.OnLogin
icq.OnConnectionFailed
__________________

Это понятно!
Вот как им пользоваться - вписываю в условие IF then else - не катит как быть?
Как правильно обрабатывать?

21.03.2008, 02:10

Ergoproxy

Постоянный

Регистрация: 18.01.2008

Сообщений: 383

С нами: 9638148

Репутация: 476

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

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

22.03.2008, 02:45

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

С нами: 9655526

Репутация: 1821

Вопрос решен!

22.03.2008, 13:05

Jes

Постоянный

Регистрация: 16.04.2007

Сообщений: 398

С нами: 10037186

Репутация: 1462

Решение в студию?

22.03.2008, 20:34

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

С нами: 9655526

Репутация: 1821

Цитата:

Сообщение от 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;

#10

21.03.2008, 02:26

Ergoproxy

Постоянный

Регистрация: 18.01.2008

Сообщений: 383

С нами: 9638148

Репутация: 476

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

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
химия своими руками	silveran	Болталка	43	11.01.2006 22:05
ВАЖНАЯ ПРОБЛЕМА!!!	Sn_key	Уязвимости	13	08.06.2005 15:50