Forum: Netzwerke
Delphi
by -=IOI=-,
13. Jul 2005
Ich glaub ich hab ne Lösung gefunden. Wenn die Hilfe stimmt könnte ich die Liste mit den Contacts durchgehen und nach jedem einzelnen mit der procedure SearchByUIN suchen. Als Ereignis erhalte ich dann OnUserFound, welches mir unter anderem den tatus angibt.
Die Lösung erscheint mir allerdings etwas sehr gewurschtelt.
Wenn also einer noch ne bessere Möglichkeit kennt, dann immer her mit.
Forum: Netzwerke
Delphi
by -=IOI=-,
13. Jul 2005
Hallo erstmal.
Ich programmier grad nen ICQ Clone mit der TICQClient Kompo. Nun kann ich mir mit der procedure RequestContactList die Kontaktliste vom ICQ Server laden. Mit folgendem Code lese ich dann die Liste aus und schreibe die Einträge in ein ListView:
procedure TForm1.ICQClient1ServerListRecv(Sender: TObject;
SrvContactList: TList);
var
i: Word;
UserInfo: TUINEntry;