ICQ-Client Anzeige ob Online?

[Nicolai1234]

Ich benutze eine ICQ Komponente (siehe Anhang(TICQClient Version 1.18f)) von torry.net!
Die Grundfunktionen funktionieren auch! Aber wie kann ich herausbekommen, welcher User gerade online ist?
Wie kann ich meine Userliste vom Server laden? Ich habe gehört, dass das geht!

Ich hoffe ihr versteht, was ich meine!
Danke

[Nicolai1234]

Weiß keiner einen Rat?

[StefanDP]

ich weiß nur soviel:
ich hab mir selbst so ein icq dingsbums programmiert (mit der gleichen komponente) und bin dann auch daran gescheitert, dass ich das mit on/offline von anderen nicht hinbekommen hab!

in dem example das beiliegt funzt es schon, aber ich blick überhaupt nicht durch, wie das alles zusammenhängt, was der da programmiert hat

[Nicolai1234]

So gehts mir auch, aber irgendeiner, wird das doch erklären könne, oder?

[StefanDP]

ich hab vor ein paar monaten dem autor der komponente mal ne mail geschrieben, er hat sich aber nie gemeldet

[a.vollmer]

dann zeigt doch mal den source des beispieles!

Alex

[sakura]

Das Runterladen der Kontaktliste funktioniert über ICQClient1.RequestContactList; . Das Ergebnis sollte dann über das Ereignis ICQClient1ServerListRecv eintrudeln. Hier der Demo-Code:

Delphi-Quellcode:

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;

......

[toms]

Hi,

Lade die doch mal die aktuelle Version 1.20f TICQClient von Sourceforge runter.
Vielleicht ist der Online Status einfacher abzufragen.

http://switch.dl.sourceforge.net/sou...icqlib/icq.zip


Zudem hat der Entwickler von TICQClient ein Forum auf seiner Seite eingerichtet.
Könntest ja auch mal dort nachfragen.

http://www.cobans.net

[TheRealSnake]

...würde mich auch mal interessieren wie das mit dem OnlineStatus funzt... Statustostr zeigt bei mir jedenfalls nur "invisible" an.
Weiß den jemand wie man den Status prüfen kann???

MFG TheRealSnake

[TheRealSnake]

In Ordnung habe das Problem selber in den Griff bekommen! Und zwar ist den Rätselslösung das man mit dem Befehl:
"icqclient1.addContact(UIN: Cardinal)" die UIN erst richtig "adden" muss, damit man dann das "OnOnlineInfo" Event nutzen kann, indem mitgeteilt wird in welchem OnlineStatus sich der jeweilige Benutzer gerade befindet!

Mit freundlichen Grüßen
TheRealSnake