mit ticqclient die kontaktliste vom server laden

[prinz_inzide]

hi!

müsste mal wissen, wie das geht. habs so (ohne erfolg) probiert:

Delphi-Quellcode:

procedure TForm2.icqLogin(Sender: TObject);
begin
icq.RequestContactList;
end;

und

Delphi-Quellcode:

procedure TForm2.icqContactListRecv(Sender: TObject; UIN: String;
  ContactList: TStringList);
var
i:integer;
begin
for i:=0 to contactlist.Count-1 do begin
  memo1.Lines.Add(contactlist.Strings[i])
end;
end;

beim memo ändert sich gaaaar nix..
an was liegt's?

danke schon ma!

tim

[phXql]

welches ICQ-Objekt ist das? die TICQLib?

[prinz_inzide]

nein, ticqclient

[prinz_inzide]

aber wenn ihr ne andere kompo kennt, die auch so schön umfangreich is und bei der ihr wisst, wies geht, sagts mir ruhig.

würder aber am liebsten bei der bleiben!

danke!

[phXql]

Zitat:

Zitat von prinz_inzide

aber wenn ihr ne andere kompo kennt, die auch so schön umfangreich is und bei der ihr wisst, wies geht, sagts mir ruhig.

würder aber am liebsten bei der bleiben!

danke!

TICQLib, benutz ich bei meinem moeICQ... Such einfach mal bei Sourceforge.net nach TICQLib. Bei dieser Komponente kann ich dir zu fast allem helfen ;)

[prinz_inzide]

hab grad beim download der zip-datei (TICQLib) gemerkt, dass ich doch die habe...
aber die heißt bei mir im delphi ticqclient...

jedenfalls hab ich die und mit der gehts net..

wäre euch sehr dankebar, wenn ihr helfen könntet.

tim

[phXql]

Zitat:

Zitat von prinz_inzide

hab grad beim download der zip-datei (TICQLib) gemerkt, dass ich doch die habe...
aber die heißt bei mir im delphi ticqclient...

jedenfalls hab ich die und mit der gehts net..

wäre euch sehr dankebar, wenn ihr helfen könntet.

tim

TICQClient heisst das Objekt, das ganze Package heisst aber TICQLib...

So, nun zu deinem Problem: bei mir sieht die Deklaration von ContactListReceive anders aus:

Delphi-Quellcode:

OnSSLListReceive(Sender: TObject; SrvContactList: TList)

wieso ist das bei dir ne stringlist??

[prinz_inzide]

komisch..bei mir gibts das net...

wo hast du deine version her?

hab eben mal nen blick auf den sc von deinem moeICQ geworfen, du hast du ja gar keine kompo auf deiner form.. hast du sie erst zur laufzeit erzeugt oder haste wirklich ne andere komp?

tim

p.s. hab dich im icq geadded!

[JasonDX]

ich bastle auch grad mit der TICQClient-Komponente rum.
Wenn du dir die Samples anschaust, findest du, wie die Kontaktliste da angegeben wird:

Delphi-Quellcode:

var
  Info: TUINEntry;
  i: integer;
begin
  for i := 0 to SrvContactList.Count - 1 do begin
    Info := TUINEntry(SrvContactList[i]^);

Schreib dir den Source ins OnServerListRecv-Event, klick (mit strg gedrückt) auf TUINEntry, dann siehst du, wie das Record aufgebaut ist.
(Jeder Kontakt in der Kontaktliste wird nämlich als ^TUINEntry gespeichert)

[prinz_inzide]

mhh..danke!

und wie mach,ich jetzt aus TUINEntry einen string?

danke!

[JasonDX]

TUINEntry ist ein Record

Delphi-Quellcode:

//in: ICQClient.pas
type
  TUINEntry = record
    UIN: LongWord; //Die ICQ-Nummer
    Nick: ShortString; //Der Nickname
    CType: Word; //Typ (ka)
    CTag: Word; //Tag (ka)
    CGroupID: Word; //ID der Gruppe, der der Contact angehört
    CGroup: ShortString; //Name der Gruppe
  end;

Je nach dem, was du ham willst, musst zu z.B. die UIN zuerst in einen String umwandeln (siehe IntToStr), den Nick hingegen einfach nur so verwenden ;)

[prinz_inzide]

achso danke!
so gehts!

hab grad übelst aufm schlauch gestanden!^^
ähm, wozu sind jetzt die methoden die ich angfangs genommen hab? ;)

ich hoff, da dass der rest von "icq-programmierung" net so komisch is sonst, hör ich schnell auf,als ich angefankgen hab^^

danke!

tim

[phXql]

Zitat:

Zitat von prinz_inzide

achso danke!
so gehts!

hab grad übelst aufm schlauch gestanden!^^
ähm, wozu sind jetzt die methoden die ich angfangs genommen hab? ;)

ich hoff, da dass der rest von "icq-programmierung" net so komisch is sonst, hör ich schnell auf,als ich angefankgen hab^^

danke!

tim

da kommt noch mehr so lustiges zeugs. aber die SSL-Listen sind schon echt eklik...