Список контактов в ListBox

[Pavelok]

Привет всем! Подскажите пожалста как получить список контактов ICQ?
Пробовал как в демке

procedure TfrmMain.ICQClientServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i : LongInt;
  UserInfo: TUINEntry;
  UINNickItem : PUINNickItem;
begin
  //Список контактов может прийти по частям!
  //Версия 1.26 это не учитывала!
  //Очищаем списки только тогда, когда сделали новый запрос списка контактов
  if FullReloadContactList then
    begin
      FullReloadContactList := False;
      lstContactList.Clear;
      UINNickList.Clear;
    end;
  if SrvContactList.Count > 0 then
    for i := 0 to SrvContactList.Count - 1 do
      begin
        UserInfo := PUINEntry(SrvContactList.Items[i])^;
        if UserInfo.CType = 0 then  //если это пользователь (CType = 0), то добавляем в список
          begin
            lstContactList.AddItem(UserInfo.Nick + ' (' + IntToStr(UserInfo.UIN) + ') - ' + GetStatusFor(UserInfo.UIN), Self);
            GetMem(UINNickItem, SizeOf(UINNickItem^));
            UINNickItem^.UIN := UserInfo.UIN;
            UINNickItem^.Nick := UserInfo.Nick;
            UINNickList.Add(UINNickItem);
          end;
      end;
  AddEvent('Получен список контактов');
  ICQClient.DestroyUINList(SrvContactList);
end;

но это не работает. Поискал по форуму похожие темы, все примеры в них у меня тоже не работаеют.

[raxp]

1) демка у вас работает?
2) ваша программа соединяется?

[Pavelok]

Демка работает
Проограмма соединяется

[raxp]

значит, в своей программе вы чего-то забыли

[Pavelok]

Вот код

procedure TForm1.ICQClient1ServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i : LongInt;
  UserInfo: TUINEntry;
  UINNickItem : PUINNickItem;
begin
  //Список контактов может прийти по частям!
  //Версия 1.26 это не учитывала!
  //Очищаем списки только тогда, когда сделали новый запрос списка контактов
  if FullReloadContactList then
    begin
      FullReloadContactList := False;
      Listbox2.Clear;
      UINNickList.Clear;
    end;
  if SrvContactList.Count > 0 then
    for i := 0 to SrvContactList.Count - 1 do
      begin
        UserInfo := PUINEntry(SrvContactList.Items[i])^;
        if UserInfo.CType = 0 then  //если это пользователь (CType = 0), то добавляем в список
          begin
            Listbox2.AddItem(UserInfo.Nick + ' (' + IntToStr(UserInfo.UIN) + ') - ' + GetStatusFor(UserInfo.UIN), Self);
            GetMem(UINNickItem, SizeOf(UINNickItem^));
            UINNickItem^.UIN := UserInfo.UIN;
            UINNickItem^.Nick := UserInfo.Nick;
            UINNickList.Add(UINNickItem);
          end;
      end;
  ICQClient1.DestroyUINList(SrvContactList);
end;
end.

программа компилируется, ticqclient подключается, но список контактов не загружается...

[raxp]

оттого, что вы копируете один и тот-же текст с вариациями, он лучше станет?
...только что скопировал его же себе, список загружается в listbox2. Очевидно проблема не в этом коде, а в настройках вашего клиента... либо приведите полный код, либо прикрепите проект вложением, бум глядеть что не так

[Pavelok]

Это icq бот, только первый юнит

[raxp]

и что, мне восстанавливать по pas-у проект, чтобы посмотреть что не так работает? думаете кто-то украдет вашего бота? смотрим тут

зы: лично у меня управление через аську давно уже есть

[Pavelok]

Я не боюсь, что кто-то украдет его! Просто не хотел долго выкладывать.

[raxp]

у вас в проекте 2 ошибки:
1) отсутствует собственно запрос списка контактов с сервера после подключения (событие ICQClientLogin)...

 FullReloadContactList := True;
 ICQClient1.RequestContactList;

2) не создаются объекты списка контактов (в form.create)

 UINNickList := TList.Create;
  //UINStatusList := TList.Create;
  //UINInfoList := TList.Create;
  //UINForAvatarsToBeLoadedList := TList.Create;

исправьте и все будет работать.