UINToUser

[Chegga]

Hi,

ich habe eine ListBox in der sich jede menge ICQ-Nummer befinden.
(Ich arbeite mit der ICQClient Komponente von cobans.net.)
Da ich aber gerade mal eine einzige ICQ-Nummer (meine! :mrgreen: ) auswendig kann,
suche ich nach einer Funktion die folgendes machen kann:
ICQ-Nummer in User umwandeln
:arrow: UINToUser
Z.B.: 206315336 -> Chegga
Gibt es so etwas in dieser Art?

So sieht meine Procedure aus, mit der ich die Kontaktliste einlese:

Delphi-Quellcode:

procedure TForm1.ICQClient1ServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i: Word; 
  UserInfo: TUINEntry;
begin
  for i := 0 to SrvContactList.Count - 1 do 
  begin 
    UserInfo := PUINEntry(SrvContactList.Items[i])^; 
    if (Length(IntToStr(UserInfo.UIN))= 9) and 
       (ICQClient1.AddContact(UserInfo.UIN)) then 
    begin
      ListBox1.Items.Add(IntToStr(UserInfo.UIN));
    end;
  end; 
  ICQClient1.DestroyUINList(SrvContactList);
end;

Danke schon mal im voraus! :thumb:

MfG Marc

[Chegga]

Hi,

weiß hier wirklich niemand wie man die ICQ-Nummer in den Nickname umwandelt? :(

MfG Marc

[Edit] ***PUSH*** :mrgreen: [/Edit]

[phXql]

da gibts von der komponente eine funktion (RequestUserInfo) oder so. wenn dann der name vom server eintrudelt wird ein event ausgelöst.

Evtl hilft dir ja moeICQ weiter, is opensource und bei sourceforge gehostet. da müsste sowas drinsein :)