Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Проблема с TICQClient

Автор: Sice 14.2.2011, 15:39

Пытаюсь сделать следующее:
Из файла берется номер и пароль ICQ (мой, валидный, формата - номер:пароль), подключается.
Если получилось подключится - оставляем запись в MemoGood, если нет - в MemoBad.

Но почему-то у меня в независимости, валидный номер или нет (правильный пароль ввожу, или ложный) всё уходит в MemoBad =\ не пойму почему, вот код:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin

for i:=0 to (ListBoxUinPass.Items.Count)-1 do
 begin
    gs := ListBoxUinPass.Items[i];
    ip := LastDelimiter(':', gs);
    s1 := copy(gs, 1, ip-1);     // Uin
    s2 := copy(gs, ip+1, Length(gs));    // Password

ICQClient1.UIN:=StrToInt(s1);
ICQClient1.Password:=s2;
ICQClient1.Login();

 end;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
 if ICQClient1.LoggedIn then
 begin
 MemoGood.Lines.Add(ListBoxUinPass.Items.Text);
 ICQClient1.LogOff;
 end;
end;

procedure TForm1.ICQClient1ConnectionFailed(Sender: TObject);
begin
 MemoBad.Lines.Add(ListBoxUinPass.Items.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
ListBoxUinPass.Items.LoadFromFile(OpenDialog1.FileName);
end;

Подскажите пожалуйста в чем проблема ? Заранее благодарю.

Автор: superVad 14.2.2011, 18:40

Воспользуйся дебагером.
Поставь точки останова (F5), запусти программу как остановится по F8 пройдись посмотри как твоя программа работает.
Что бы программа пошла работать дальше - F9.
Что бы зайти в процедуру - F7.

Кстати - чем тебе не понравилось такое?

Код


ListBoxUinPass.Items.NameValueSeparator := ':';
s1 := ListBoxUinPass.Items.Names[i];//имя
s2 := ListBoxUinPass.Items.Values[i];//пароль

Автор: Sice 14.2.2011, 23:09

Цитата(superVad @ 14.2.2011, 18:40)

Код


ListBoxUinPass.Items.NameValueSeparator := ':';
s1 := ListBoxUinPass.Items.Names[i];//имя
s2 := ListBoxUinPass.Items.Values[i];//пароль

Спасибо большое, я просто не разбирался в Вашем варианте, вернее не вдавался в подробности smile

начинаю только ,не хочу нагружать просто всем и сразу, учу постепенно, спасибо вам большое за ответ, буду искать проблему smile

P.S. Посмотрел, прошел по F5, F8, так и не понял в чем проблема, сразу почему-то в MemoBad всё скидывается =\