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

[Pavelok]

Все сделал как вы сказали, но вылетает ошибка

[raxp]

забирайте свой проект... после соединения нажмете кнопочку под списком контактов

[mustang007]

Спасибо!!! Работает!!! Только одна проблема, он показывает, что все пользователи в оффлайн статусе, но это не так. И так-же в демке

[raxp]

там есть такая процедурка в демке, проверка статуса... поюзайте.

зы: а куда делся Pavelok? съели аборигены?

[Pavelok]

Нет просто я черз тот зашел. У меня два аккаунта, просто я от pavelok пароль забыл давно ещё

[Pavelok]

Привет ещё раз.
Получаю контакт лист так чтоб были только онлайн контакты:

procedure TForm1.ICQClient1ServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
i : LongInt;
UserInfo: TUINEntry;
UINNickItem : PUINNickItem;
begin
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 GetStatusFor(UserInfo.UIN)= 'Онлайн' then
begin
Listbox2.AddItem(UserInfo.Nick + '(' + IntToStr(UserInfo.UIN) + ')', Self);
GetMem(UINNickItem, SizeOf(UINNickItem^));
UINNickItem^.UIN := UserInfo.UIN;
UINNickItem^.Nick := UserInfo.Nick;
UINNickList.Add(UINNickItem);
end;
end;

Но в итоге процедура StatusChange:

procedure TForm1.ICQClient1StatusChange(Sender: TObject; UIN: String;
  Status: Cardinal);
var
i : LongInt;
begin
SetStatusToStatusList(UIN, Status);
if UINNickList.Count > 0 then
for i := 0 to UINNickList.Count - 1 do
if PUINNickItem(UINNickList.Items[i])^.UIN = StrToInt(UIN) then
ListBox2.Items.Strings[i] := PUINNickItem(UINNickList.Items[i])^.Nick + ' (' + IntToStr(PUINNickItem(UINNickList.Items[i])^.UIN) + ')';
end;

Не добавляет новые онлайн контакты, который только вошли