Bei mir empfängt die ICQClient Komponente irgendwie nicht die Kontaktliste. Richtig eingeloggt bin ich auf jeden Fall und eine Kontaktliste, die abgerufen werden kann ist auch vorhanden.
Ich habe dazu den Code hier geschrieben...die schowmessage ist nur zur überprüfung da...
Delphi-Quellcode:
procedure TfrmRustCQ.ICQClient1ContactListRecv(Sender: TObject;
UIN: String; ContactList: TStringList);
var
i: Word;
UserInfo: TUINEntry;
begin
ShowMessage('Kontaktliste kommt!');
if ContactList.Count > 0 then
for i := 0 to ContactList.Count - 1 do
begin
UserInfo := PUINEntry(ContactList.Strings[i])^;
KontaktMemo.Lines.Add('Nick: '+UserInfo.Nick +' | UIN: ' +
IntToStr(UserInfo.UIN));
end;
end;
Ist die komponente vielleicht zu alt? Ich benutzte den "TICQClient v1.21", den es bei cobans.net gibt. Wäre schön, wenn ihr mir helfen könntet