TICQClient Контакт лист

[aesoem]

Добрый день, подскажите как опредилить в сети контакт или нет, я запрашиваю список контактов вот так(с горем попалам загрузил)...

var
i:word;
UserInfo:TUINEntry;
begin
for i:=0 to SrvContactList.Count-1 do
  begin
  UserInfo:=PUINEntry(SrvContactList.Items[i])^;
    if userinfo.CType=0 then
     begin
      with form2.sListView1.Items.Add do
      begin
      imageindex:=12;
      end;

      with form2.sListView2.Items.Add do
      begin
       imageindex:=36;
      subitems.Add(userinfo.Nick);
      subitems.Add(inttostr(userinfo.UIN));
      end;
     end;
  end;

  ICQ.DestroyUINList(SrvContactList);
end;

В демке каторая идет с компанентом написана Х И Н Е Я полная... Третий день нимагу там разобратся, все методам тыка пишу ... вот что там написано:

procedure TfrmMain.ICQClientServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i : LongInt;
  UserInfo: TUINEntry;
  UINNickItem : PUINNickItem;
begin
  //Список контактов может прийти по частям!
  //Версия 1.26 это не учитывала!
  //Очищаем списки только тогда, когда сделали новый запрос списка контактов
  if FullReloadContactList then
    begin
      FullReloadContactList := False;
      lstContactList.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  //если это пользователь (CType = 0), то добавляем в список
          begin
            lstContactList.AddItem(UserInfo.Nick + ' (' + IntToStr(UserInfo.UIN) + ') - ' + GetStatusFor(UserInfo.UIN), Self);
            GetMem(UINNickItem, SizeOf(UINNickItem^));
            UINNickItem^.UIN := UserInfo.UIN;
            UINNickItem^.Nick := UserInfo.Nick;
            UINNickList.Add(UINNickItem);
          end;
      end;

  ICQClient.DestroyUINList(SrvContactList);
end;

я так понимаю в примере, статус пользователя опредиляет

GetStatusFor(UserInfo.UIN)

я нигде нинашол объевления этой процедуры!!! А по другому она не работает... что делать помагите

[aesoem]

Ответа на форуме я не нашол! ! !

[aesoem]

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

procedure TForm1.ICQStatusChange(Sender: TObject; UIN: String;
  Status: Cardinal);
var
i:Integer;
begin
 for i:=0 to slistview1.Items.Count-1 do
if slistview1.Items.Item[i].SubItems[1]=uin then
begin
if status=$00000000 then
  begin
slistview1.Items.Item[i].Caption:='â ñåòè';
slistview1.Items.Item[i].ImageIndex:=0;
  end;
if status=$00005000 then
  begin
slistview1.Items.Item[i].Caption:='Â ñåòè, äîìà';
slistview1.Items.Item[i].ImageIndex:=9;
  end;
if status=$00006000 then
  begin
slistview1.Items.Item[i].Caption:='Â ñåòè, íà ðàáîòå';
slistview1.Items.Item[i].ImageIndex:=10;
  end;
if status=$00004000 then
  begin
slistview1.Items.Item[i].Caption:='Â ñåòè, äåïðåñèÿ';
slistview1.Items.Item[i].ImageIndex:=8;
  end;
if status=$00003000 then
  begin
slistview1.Items.Item[i].Caption:='Â ñåòè, çëîé';
slistview1.Items.Item[i].ImageIndex:=0;
  end;
if status=$00000100 then
  begin
slistview1.Items.Item[i].Caption:='Â ñåòè, íåâèäèìûé';
slistview1.Items.Item[i].ImageIndex:=6;
  end;
if status=$00000011 then
  begin
slistview1.Items.Item[i].Caption:='Â ñåòè, çàíÿò';
slistview1.Items.Item[i].ImageIndex:=4;
  end;
if status=$00000001 then
  begin
slistview1.Items.Item[i].Caption:='Â ñåòè, îòàøîë';
slistview1.Items.Item[i].ImageIndex:=2;
  end;
if status=$00000005 then
  begin
slistview1.Items.Item[i].Caption:='Â ñåòè, íåäîñòóïåí';
slistview1.Items.Item[i].ImageIndex:=3;
  end;
if status=$00000013 then
  begin
slistview1.Items.Item[i].Caption:='Â ñåòè, íå áåñïàêîèòü';
slistview1.Items.Item[i].ImageIndex:=5;
  end;
if status=$00000020 then
  begin
slistview1.Items.Item[i].Caption:='Â ñåòè, ãîòîâ ïîáàëòàòü';
slistview1.Items.Item[i].ImageIndex:=1;
  end;


smemo1.SelAttributes.Color:=sColorSelect5.ColorValue;
smemo1.Lines.Add(uin + ' контак в сети.');
end;

end;

в отчете выбиваются намера, типа они в онлайне... а в listview ничего неменяется...типа все OFF .. Я так понимаю это происходит из за неверно установленной костанты? впринципе они подходят...может там еще какието есть? если в них проблема

[hacknet]

у меня вопрос...мне нужно чтоб я мог вписать номер в Edit1, и на него отправить сообщение! при коде

ICQClient2.sendMessage(Edit1.text, memo1.Lines.Text);

даёт ошибку!

помогите плзз! зарание спасибо!

[Пепел Феникса]

там параметр UIN типа Cardinal(если все верно помню)
так что переводите текст в число(StrToInt)

[xakkkkker]

на delphiexpert.ru был исходник аськи там все подробно было описано. Ищи в разделе исходники и компоненты на delphiexpert.ru

[hacknet]

Сообщение от Пепел Феникса

там параметр UIN типа Cardinal(если все верно помню)
так что переводите текст в число(StrToInt)

не мог ли бы с этим помочь...не получается перевести!?

p.s конечно если вам не трудно!

[Пепел Феникса]

ICQClient2.sendMessage(StrToInt(Edit1.text), memo1.Lines.Text);

[andrush-karamush]

В демке каторая идет с компанентом написана Х И Н Е Я полная... Третий день нимагу там разобратся, все методам тыка пишу ... вот что там написано:

procedure TfrmMain.ICQClientServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i : LongInt;
  UserInfo: TUINEntry;
  UINNickItem : PUINNickItem;
begin
  //Список контактов может прийти по частям!
  //Версия 1.26 это не учитывала!
  //Очищаем списки только тогда, когда сделали новый запрос списка контактов
  if FullReloadContactList then
    begin
      FullReloadContactList := False;
      lstContactList.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  //если это пользователь (CType = 0), то добавляем в список
          begin
            lstContactList.AddItem(UserInfo.Nick + ' (' + IntToStr(UserInfo.UIN) + ') - ' + GetStatusFor(UserInfo.UIN), Self);
            GetMem(UINNickItem, SizeOf(UINNickItem^));
            UINNickItem^.UIN := UserInfo.UIN;
            UINNickItem^.Nick := UserInfo.Nick;
            UINNickList.Add(UINNickItem);
          end;
      end;

  ICQClient.DestroyUINList(SrvContactList);
end;

я так понимаю в примере, статус пользователя опредиляет

GetStatusFor(UserInfo.UIN)

я нигде нинашол объевления этой процедуры!!! А по другому она не работает... что делать помагите[/QUOTE]

А я нашёл объявление к этой процедуре))) Она находится в той же папке с демкой, в отдельном модуле) ток я его имя не помню. Я определяю так: придерживая клавишу Ctrl жму на ту процедуру или функцию или переменную или любую другую вещь, и делфи сам указывает где она находится, открывая если надо тот самый модуль и переводя курсор прямо в начало строки, где находится описание этой переменной или подпрограммы ))

[Pasha_Sh]

много причин почему может не работать. пиши в асю.