ICQClient контакт-лист

[DOLBY]

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

procedure TForm1.ICQContactListRecv(Sender: TObject; UIN: String;
  ContactList: TStringList);
begin
 ListBox1.Items:=ContactList;
end;

Это событие не срабатывает при заходе на сервер. Как мне по-другому загрузить контакт-лист?

ЗЫ Использую компонент ICQClient 1.21

[Шаман]

Выложите пожалуйста ссылочку на компонент...

[DOLBY]

Вот ссылочка на него.

[Шаман]

Спасибо...Мне он был очень нужен...

[DOLBY]

Ну а мне никто не поможет? Я эту тему создал не для того, чтобы разрекламировать этот компонент...

[Sin3v]

ListBox1.Items:=ContactList;

ListBox1.Items:= icqclient1.ContactList;

[Dr0n1k]

uses ICQWorks;

procedure TUIK.ICQServerListRecv(Sender: TObject; SrvContactList: TList);
var
i : LongInt;
UserInfo: TUINEntry;
UINNickItem : PUINNickItem;
begin
if FullReloadContactList then
begin
FullReloadContactList := False;
lsContact.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
begin
lsContact.Items.Add(UserInfo.Nick);
GetMem(UINNickItem, SizeOf(UINNickItem^));
UINNickItem^.UIN := UserInfo.UIN;
UINNickItem^.Nick := UserInfo.Nick;
UINNickList.Add(UINNickItem);
end;
end;
ICQ.DestroyUINList(SrvContactList);
end;