VPF::UserSearchWP в icqclient - Форум программистов

FAK

Дата 21.4.2006, 20:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Мне нужно сделать поиск по белым страницам в компоненте ICQClient, но че то я не могу понять как правильно сделать.
В исходнике, что прилагается с компонентом описано не подробною. Расскажите плиз как это сделать или дайте какую нить подробную статью.
Заранее благодарен

Snowy

Дата 22.4.2006, 23:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Нужно описать события OnUserFound и OnUserNotFound:

Код


procedure TICQClient1.FOnUserFound(Sender: TObject; UIN, Nick, FirstName, LastName, Email: String; 
                          Status: Word; Gender, Age: Byte; SearchComplete, Authorize: Boolean);
begin
  Memo1.Lines.Add(UIN);
  Memo1.Lines.Add(Nick);
  Memo1.Lines.Add(FirstName + ' ' + LastName);
  Memo1.Lines.Add('');
  if SearchComplete then Memo1.Lines.Add('Вот и всё');
end;

procedure TICQClient1.FOnUserNotFound(Sender: TObject);
begin
  Memo1.Lines.Add('Сющай, дарагой. Савсэм никто не нашёл...');
end;

А вызов совсем прост. Заполнять все поля SearchWhitePages не обязательно.
Поля, в которых пустые значения в поиске участвовать не будут.

Код


  SearchWhitePages('', '', 'Snowy', '', 0, 0, 0, 0, 'Moscow', '', '', '', '', '', '', '', '', '', 'Delphi', true);

FAK

Дата 23.4.2006, 20:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Ага вроде разобрался. Спасибо.
А как теперь сделать чтобы найденные юзеры отображались например в ListView?

Snowy

Дата 24.4.2006, 10:50 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Аналогично. Только добавлять не в Memo, а в ListLiew.
А как добавлять данные в листвью в несколько колонок - это уже другой вопрос.

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