VPF::Проблема с TICQClient - Форум программистов

Sice

Дата 14.2.2011, 15:39 (ссылка)

(нет голосов)

Загрузка ...

Радио Онлайн

Профиль
Группа: Участник
Сообщений: 62
Регистрация: 4.12.2007

Репутация: нет
Всего: 0

Пытаюсь сделать следующее:
Из файла берется номер и пароль 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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15

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

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

Код


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

Это сообщение отредактировал(а) superVad - 14.2.2011, 18:45

Sice

Дата 14.2.2011, 23:09 (ссылка)

(нет голосов)

Загрузка ...

Радио Онлайн

Профиль
Группа: Участник
Сообщений: 62
Регистрация: 4.12.2007

Репутация: нет
Всего: 0

Цитата(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 всё скидывается =\

Это сообщение отредактировал(а) Sice - 14.2.2011, 23:20

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »