ICQ Checker, что не так в коде?

@Zy_x3l · Регистрация: 01.07.2012

Author24 — интернет-сервис помощи студентам

На форме есть мемо, кнопка и мемо-лог, вот код, которым я пытаюсь подключиться к аське, проверить верный ли пароль и вывести сообщение в мемо-лог, но ничего не происходит(( помогите пожалуйста

Delphi

procedure TForm1.Button4Click(Sender: TObject);
    var
    s, u, p:string;
  i, g:integer;
begin
for g := 0 to Memo1.Lines.Count-1 do
begin
s:=Memo1.Lines[g];
i := Pos(';', s);
u:=Copy(s, 1, i - 1);
p:=Copy(s, i + 1, length(s));
ICQClient2.UIN:=StrToInt(u);
ICQClient2.Password:=p;
Try
ICQClient2.Login();
    except
    end;
    begin
if ICQClient2.LoggedIn
then
begin
log.Lines.Add('» UIN: '+u+' successful!');
ICQClient2.LogOff ;
    end;
    end;
  end;
end;

Добавлено через 3 часа 45 минут
ап тему!

@Filipock · 09.07.2012, 00:17

У тебя цикл не достроен.Смотри g := 0

@Zy_x3l · 09.07.2012, 12:41 **[ТС]**

Filipock, в каком месте не достроен?

@digim0n · 09.07.2012, 14:24

Zy_x3l, вместо

Delphi

Try
ICQClient2.Login();
    except
    end;
    begin
if ICQClient2.LoggedIn
then
begin
log.Lines.Add('» UIN: '+u+' successful!');
ICQClient2.LogOff ;
    end;

пиши просто
ICQClient2.Login();
жди 5 сек и проверяй на коннект... или же в обработчике, он-логин пиши в лог что залогинились...

скорее всего у тебя если не правильный пасс будет то цыкл будет висеть, если не успеет залогинится тоже будет висеть, если часто логинится с одного ип, тоже будет висеть... и еще причин причин и причин...

@Filipock 0 / 0 / 0 Регистрация: 23.06.2012 Сообщений: 26
	09.07.2012, 00:17	2
	У тебя цикл не достроен.Смотри g := 0 0

@Zy_x3l 0 / 0 / 0 Регистрация: 01.07.2012 Сообщений: 26
	09.07.2012, 12:41 [ТС]	3
	Filipock, в каком месте не достроен? 0

	09.07.2012, 14:24

Опции темы