[zorazo]

Народ помогите, я пишу свой icq клиент, мне нужно чтобы моя ася загружала контакт-лист

[zorazo]

вот листинг:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TMainForm.ICQClient1ServerListRecv(Sender: TObject;   SrvContactList: TList); var   i: Word;   UserInfo: TUINEntry;   ListItem: TListItem; begin   if SrvContactList.Count > 0 then     for i := 0 to SrvContactList.Count - 1 do     begin       UserInfo := PUINEntry(SrvContactList.Items[i])^;       if UserInfo.CType = U_VISIBLE_LIST then         ICQClient1.VisibleList.Add(IntToStr(UserInfo.UIN))       else if UserInfo.CType = U_INVISIBLE_LIST then         ICQClient1.InvisibleList.Add(IntToStr(UserInfo.UIN))       else if UserInfo.CType = U_NORMAL then       begin         if ICQClient1.AddContact(UserInfo.UIN) then         begin           ListItem := ListView1.Items.Add;           ListItem.ImageIndex := ICON_OFFLINE;           ListItem.Caption := IntToStr(UserInfo.UIN);         end;       end;     end;   ICQClient1.DestroyUINList(SrvContactList); end;

Admin: Пользуемся тегами!

но все компилируется но при запросе контакт листа появляется List index out of bounds (9) помогите исправить, я вас в разработчики запишу

[TOJluK]

попробуй для начала так:

Код:

1	for i := SrvContactList.Count - 1 downto 0 do

[zorazo]

попробовал как ты сказал, все равно! тоже самое
мне люди сказали что ошибка где-то в
UserInfo := PUINEntry(SrvContactList.Items[i])^;
только где я не могу понять

[TOJluK]

откопал на другом форуме:

Код:

1 2	UserInfo:=PUINEntry(SrvContact List.Items[i])^; if UserInfo.Nick = '' then UserInfo.Nick:='No Name';

Вот ссылка
http://forum.asechka.ru/showthread.php?page=2&t=97186

[zorazo]

все сделал, но все равно(((

[Страдалецъ]

Попробуйте перед передачей значения в PUINEntry()
проверить значение SrvContactList.Items[i] на nil.

[Dronik]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

var     FullReloadContactList: Boolean; .....   procedure TuimMain.ICQClient1ServerListRecv(Sender: TObject; SrvContactList: TList); var   i : LongInt;   UserInfo: TUINEntry;   UINNickItem : PUINNickItem; begin   if FullReloadContactList then     begin       FullReloadContactList := False;       uimCList.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 =  BUDDY_NORMAL then                 begin                       uimCList.AddItem(UserInfo.Nick, Self);                       GetMem(UINNickItem, SizeOf(UINNickItem^));                       UINNickItem^.Nick := UserInfo.Nick;                       UINNickList.Add(UINNickItem);                  end;           end;       end;   UIM.DestroyUINList(SrvContactList); end;

попробуй так, у меня этот код работает

[zorazo]

а ты можешь смотря по моему листингу, написать на своем, а то чтото я заморочился

[Dronik]

я так понимаю ты хочешь сделать загрузку всех(видимый, невидимый, нормальный и игнор) КЛ?

[zorazo]

да, именно так

[zorazo]

народ, заходите на http://ric-icq-ru.tut.su/forum/ там и обсудем!