ICQ Status...mal wieder^^

[Chaismo]

Zu erstmal guten Tag an alle!
Ich weiß das diese Frage schon oft gestellt wurde aber irgendwie nie zu einem Ergebnis geführt hat! Leider!
Wie kann man über die TICQLib den Status eines Kontaktes aus der Buddyliste abfragen?!
Manche haben ja gesagt das sie die ICQNummer über das Internet vergleichen ob die Grafik die von Online oder Offline ist aber damt komme ich nicht wirklich klar bzw hab ich keine Ahnung wie das geht!
Es muss doch eine andere Methode geben über die TICQlib dies abzufragen oder?!
Wenn ihr eine Idee habt oder euch auch Gedanken darüber macht dann schreibt sie bitte!
MFG Chaismo

[Chaismo]

Hm also anscheinend weis keiner was man da machen könnte? :gruebel: :wink:
Ich würde das ja auch über Internet machen weis aber nicht wie das geht?^^
Irgendwie könnte man das doch auch ber die visibleList probieren oder ist
nur dazu da um festzustellen ob an sichtbar oder unsichtbar ist?

[Eichhoernchen]

vielleicht zeigst du uns erstmal was diese TICQLib ist. Ich kenne die nicht. Was steuert man denn damit? Ein eigenes ICQ? Den offiziellen Client?

[F0rc3]

TICQLib ist eine Komponente um einen ICQ-Client zu programmieren (http://sourceforge.net/projects/ticqlib)

Um den Status abzufragen müsste eigentlich folgendes gehen:

Delphi-Quellcode:

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
icqclient1.AddContact(000000000); // Deine Nummer
end;


procedure TForm2.ICQClient1OnlineInfo(Sender: TObject; UIN: string; Port: Word;
  InternalIP, ExternalIP: string; OnlineTime: TDateTime; Idle: Word; ICQVersion,
  MirandaVersion: Cardinal; ProtoVer, UserCaps: Byte);
begin
if UIN='000000000' then showmessage('online');
end;

procedure TForm2.ICQClient1UserOffline(Sender: TObject; UIN: string);
begin
if UIN='000000000' then showmessage('offline');
end;

[Chaismo]

hmm also wenn das klappen würde dann wäre das geil weil ich irgendwie in vielen foren hier gelesen hab das die keine Ahnung haben wies geht...gelchmal probieren!
Aber danke für den Vorschlag!

[Chaismo]

hmm also jetzt kann ich das nichtmal testen da jetzt die Kontaktliste geladen wird?!
Haben die vieleicht schon wieder die Protokelle geändert?

[F0rc3]

jo, ich mein irgendwann im Mai gabs eine Protokolländerung

Falls du aber Nachrichten empfangen kannst (und dich überhaupt einloggen kannst) müsste es aber eigentlich klappen...

[Chaismo]

naja einloggen klappt ja super aber die Kontaktliste wird jetzt nichtmehr gealden :gruebel:
Hier der Code den hab ich aus den Examplen aus der TICQLib und hab ihn noch etwas bearebiett:

Delphi-Quellcode:

procedure TForm1.ICQClient1ServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i: Integer;
  UserInfo: TUINEntry;
begin
  Statusbar1.panels[2].text:='Lade Kontatliste';
  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)) end
      else if UserInfo.CType = U_INVISIBLE_LIST then
        ICQClient1.InvisibleList.Add(IntToStr(UserInfo.UIN))
      else if UserInfo.CType = U_NORMAL then
      begin
        if ICQClient1.AddContactvisible(UserInfo.UIN) then
        begin
          If UserInfo.UIN>0 then begin
              ListBox1.Items.Add(UserInfo.Nick);
              icqnummer.Items.Add(IntToStr(UserInfo.UIN));
              Combobuddys.Items.Add(Userinfo.nick)
          end;
          end;
      end;
  Statusbar1.panels[2].text:='Kontaktliste fertig geladen';
  ICQClient1.DestroyUINList(SrvContactList);
end;

Also müsste doch eigentlich gehn aber irgendwie doch ni :mrgreen:
Vieleicht wisst ihr genaueres?

[Die Muhkuh]

Die Sache wird einfach sein, dass ICQ mit ICQ6 das Protokoll geändert hat und die Komponente damit nicht klar kommt.

[F0rc3]

bei http://sourceforge.net/projects/ticqlib gibt es eine Anleitung zum fixen ;)

[Chaismo]

hmm naja das Problem is nur ich benutze schon die gefixte Version und vor 3 Tagen oder so hats auch noch geklappt und das die ganze Zeit mit ICQ6...also deswegen ja auch meine Frage ob die die schon wieder geändert haben :gruebel: :mrgreen:

[F0rc3]

also bei mir klappts ohne Probleme - kann es vielleicht sein, dass du dich zu oft eingeloggt hast (Dann kommt auch die Meldung received malformed package)?

[Chaismo]

Nein dann könnte ich mich ja nicht einloggen :wink:
Aber das klappt ja wunderbar und wenn ich in ene EditKoponente die ZielUIN eintrage kann ich auch Anchrichten evrsenden es liegt nur an deiser Verdammten Kontaktliste^^

[F0rc3]

ach so, dann hab' ich das falsch verstanden ;)

Eventuell musst du noch irgendwo ein GetStatus oder so was einbauen - bin grad mit Ubuntu unterwegs, deswegen hab ich leider kein Delphi und kann auch nicht gucken was da hin soll ;)

Beim nächsten Wnidowsstart guck ich aber mal :)

[Chaismo]

hmm naja also es klappt immernochnicht :?
Hat noch jemand andere Ideen? Bzw. weiß jemand woran das nochliegen könnte?