Проверка валидности ICQ номеров

[jone]

Доброго время суток !
У меня есть много асек и мне нужно проверить какие работают а какие нет., Вот и решил зделать прожку..=)
Делаю так вот только не получается =( должны быть потоки которые берут по очереди каждый номер из мемо 1 конектятся и отсеивают работате в мемо2 неробит мемо3 но почемуто этого делать не хочет ( что делаю не так? исправте меня

var
Form1: TForm1;
icqclient: array[1..208] of ticqclient;
tPass, tLine: string;
fuin,fpwd:string;
i,u:integer;
iUIN,sPos: integer;
TOnline: boolean;


    implementation

{$R *.dfm}






procedure TForm1.Button1Click(Sender: TObject);
begin
TOnline := icqclient[u].LoggedIn;
 for i := 0 to memo1.Lines.Count - 1 do
 begin
  tLine := memo1.Lines[i];
  sPos := Pos(';', tLine);
  if (sPos <> 0) then
  begin
   iUIN := StrToIntDef(Copy(tLine, 0, sPos - 1), 0);
   tPass := Copy(tLine, sPos + 1, Length(tLine));
   if (iUIN > 10000) and (tPass <> '') then
  begin
Label1.Caption:=inttostr(iUIN);
//u:=u+1;
Label2.Caption:=inttostr(i);//+'__'+inttostr(u);
icqclient[u]:=ticqclient.Create(nil);
icqclient[u].uin :=   iUIN  ;
icqclient[u].password :=tPass;
icqclient[u].ICQServer:='login.oscar.aol.com' ;
icqclient[u].OnLogin :=OnLogin;
icqclient[u].Login();
icqclient[u].OnConnectionFailed :=OnFailed;
  TOnline:=true;
end;     end;end;end;

procedure TForm1.onLogin(Sender: TObject);
begin
 Label1.Caption:='podKoHEKtilSA';
 Memo2.Lines.Add(inttostr(icqclient[u].uin)+';'+icqclient[u].password) ;
 TOnline:=false;
icqclient[u].Login();
end;



procedure TForm1.OnFailed(Sender: TObject);
begin
 Label1.Caption:='Faild';
 Memo3.Lines.Add(inttostr(icqclient[u].uin)+';'+icqclient[u].password) ;

end;

[Jeni]

Во-первых - непонятно, при чем здесь потоки? При использовании потоков создаются классы на основе TThread и уже внутри них выполняется работа, а в коде потоками и не пахнет, это просто некий перебор объектов при нажатии кнопки.

Во-вторых - имеется ошибка в порядке работы с объектами: сначала объект используется TOnline := icqclient[u].LoggedIn, а потом только создается icqclient[u]:=ticqclient.Create(nil)! Или нужно раскомментировать строку //u:=u+1

В-третьих - непонятно когда и чем инициализируется переменная u, которая весьма интенсивно используется в разных процедурах. По сути - это основная переменная и с этим, кстати, связаны главные проблемы, ведь она меняется в произвольные моменты времени, и каким будет её значение в обработчиках никто не знает - может получиться полное рассогласование в работе всех объектов. В таких случаях вообще нежелательно использовать глобальные переменные (кроме массива клиентов).

[Stilet]

Достань себе компонент работы с аськой и проверяй наздоровье.

[jone]

Как исправить мне?

[Квэнди]

Вам уже ответили в 2-м посте

[eskander]

И ошибка, которая сразу бросилась в глаза - ты пребираешь номера в цикле, не заботясь, успеет ли клиент в это время законектиться или нет, рекомендую переходить к следующему уину только в процедуре onLogin либо в OnFailed.

[Alex88888]

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

Достань себе компонент работы с аськой и проверяй наздоровье.

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

[eskander]

Alex88888, для работы с аськой - http://forum.asechka.ru/showthread.php?t=97186 (к сожалению точной сылки сейчас не дам, т.к. давно не слежу за темой)
А для работы с почтой - стандартный IdSMTP.

[hacknet]

а не могли бы Вы исправить код Jone, как должно быть правильно?
или просто чекер номера, в сети или нет?
если кому то не сложно сделайте исходник! спасибо!

[W0LF]

В бородатый 2010 год, я быдлокодил что-то подобное. Сорц предоставляю. Возьмешь то что нужно и допилишь до ума и все будет гуд.