Подскажите процедуру в Ticqclient
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Подскажите процедуру в Ticqclient - 2008-11-27 11:55:33.983333
|
|
|
CooL AleX
Сообщений: 85
Оценки: 0
Присоединился: 2008-06-22 16:07:11.976666
|
Какой процедурой можно сделать, что-бы при подключении, список контактов отображался на ListBox1.
Заранее большое спс
|
|
|
|
|
RE: Подскажите процедуру в Ticqclient - 2008-11-27 14:16:07.113333
|
|
|
xaxa89
Сообщений: 287
Оценки: 0
Присоединился: 2008-05-18 00:30:38.240000
|
Одной процедурой нельзя, на сколько я знаю…
|
|
|
|
|
RE: Подскажите процедуру в Ticqclient - 2008-11-27 16:16:09.443333
|
|
|
VENOM4X
Сообщений: 246
Оценки: 0
Присоединился: 2008-02-18 22:49:08.960000
|
Кажется
TICQClient.RequestContactList(); - чтоб получить список контактов.
после этого
TICQCLient.ContactList должен содержать контакты (TStrings), ну а загнать его в ListBox - одна строчка.
|
|
|
|
|
RE: Подскажите процедуру в Ticqclient - 2008-11-27 16:21:39.130000
|
|
|
CooL AleX
Сообщений: 85
Оценки: 0
Присоединился: 2008-06-22 16:07:11.976666
|
xaxa89, В основном исходники компонента это сделано одной процедурой
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)^;
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;
Тока чето ошибок много у меня с делфи выявляет…То U_VISIBLE_LIST опознать не может, то еще что-нибудь
|
|
|
|
|
RE: Подскажите процедуру в Ticqclient - 2008-11-27 21:29:20.120000
|
|
|
xaxa89
Сообщений: 287
Оценки: 0
Присоединился: 2008-05-18 00:30:38.240000
|
Скузи тупонул(((
|
|
|
|
|
RE: Подскажите процедуру в Ticqclient - 2008-11-28 16:22:12.103333
|
|
|
CooL AleX
Сообщений: 85
Оценки: 0
Присоединился: 2008-06-22 16:07:11.976666
|
quote:
VENOM4X quote:
ORIGINAL: VENOM4X
Кажется
TICQClient.RequestContactList(); - чтоб получить список контактов.
после этого
TICQCLient.ContactList должен содержать контакты (TStrings), ну а загнать его в ListBox - одна строчка.
VENOM4X, спасибо большое…код конечно чУть-чуть не правильный, но мне пойдет.
|
|
|
|
|
|
