TICQClient in Konsolenanwendung

[Meflin]

Aloha!

Einige von euch kennen doch sicher die TICQClient Komponente von Cobans.net. Die versuche ich gerade in einer Konsolenanwendung zu integrieren... Nur haut das nicht so ganz hin.

Folgenden Code habe ich:

Delphi-Quellcode:

  Client := TICQClient.Create(nil);
  
  Client.ICQServer := 'login.icq.com';
  Client.ICQPort := 5190;
  Client.PortRangeFirst := 3000;
  Client.PortRangeLast := 50000;
  Client.ConvertToPlaintext := false;
  Client.ConnectionTimeout := 0;

  Client.UIN := 327574603;
  Client.Password := '********';
  Client.Login();
  writeln (BoolToStr(Client.LoggedIn));
  writeln (Client.LastError);
  readln;

Funktioniert einwandfrei wenn ich die Komponente auf einer Form platziere und per ButtonKlick den Login auslöse. Nur in meiner Konsolenanwendung passiert nix. Der Client geht nicht online, es wird kein Fehler ausgegeben und LoggedIn sagt mir 0, also false.

Woran könnte das scheitern?

[Meflin]

^^ habe auch schon ins sf forum der kompo gepostet, aber da auch noch keine antwort

[Sir Rufo]

Hi,

ich kenne die Kompo zwar nicht (bin also nicht von den Kennedys )

Aber erstell die Komponente mal auf einem Formular, so dass die funzt.
Dann ( GExperts sollte installiert sein ) über das Kontextmenü der Komponente auf dem Form ( Components to Code )
Jetzt hast Du die komplette Komponente mit Create und allen nötigen Einstellungen abweichend vom Standard-Create in der Zwischenablage.

Das funzt dann auf jeden Fall besser, als manuell ( meistens vergisst man doch noch einen Parameter )

cu

[Meflin]

Danke für den Tipp, aber GExperts sagt mir dass ich da nichts vergessen habe

Einziger Unterschied ist dass das Ding bei der Konsolenanwendung kein Parent hat... aber wozu sollte es eins brauchen

[neolithos]

Ich kenn die Komponente leider auch nicht. Aber meist wird der Parent für den asynchronen Nachrichtenverkehr verwendet.

Wahrscheinlich braucht diese Komponente die Windows-Nachrichten-Schleife.

[Meflin]

d.h. keine chance das ganze in eine konsolenanwendung zu packen?