Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > TIcqClient

Автор: Agares 4.7.2007, 21:17

Вот решил написать свою аську.
Но столкнулся с куча проблем.

Приведите пожалуйста примеры или инфу, которую мона почитать по таким вопросам:
- Как получить контакт лист с сервера?
- Как отправить сообщение пользователю

Заранее спасибо

Автор: DIMONSOFT 4.7.2007, 21:36

http://forum.sources.ru/index.php?showtopic=165755&view=showall - похожая тема. Пользуйтесь поиском. В ДРКБ была похожая статья о написании клиента аськи

Автор: Agares 4.7.2007, 21:40

Да, но мне мы по подробнее.... что-то не разберусь в том фрагменте...

Автор: DIMONSOFT 4.7.2007, 22:10

download component http://sourceforge.net/projects/ticqlib

Автор: Agares 5.7.2007, 10:18

Спасибо, но компонент я уже скачал.

Собственно, проблема у меня в следующем:

Код


procedure TForm3.ICQClient1ContactListRecv(Sender: TObject; UIN: String;
  ContactList: TStringList);
var
  i: Word;
  UserInfo: TUINEntry;
begin
  if SrvContactList.Count > 0 then
       for i := 0 to ContactList.Count - 1 do
       begin
         UserInfo := PUINEntry(SrvContactList.Items[i])^;
         ListBox1.Items.add(UserInfo.Nick);
       end;
     ICQClient1.DestroyUINList(SrvContactList);

end;

Выдает ошибки:
1) Говорит, что не знает SrvContactList

Автор: Agares 5.7.2007, 10:37

БЛИН!!!!
И опять же, моя невнимательность!!!!!

Все, нашел ошибку .... елки-палки((

Добавлено @ 10:39
Так ... теперь появились следующие вопросы:
1) Как отделить группы от пользователей? (как узнать что это групра, а как что это пользователь?)
2) Как узнать статус пользователя?

Автор: Agares 5.7.2007, 12:04

Ой, извините, ужа нашел инфу...