Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Problem mit FormCreate und TIdIRC (https://www.delphipraxis.net/17174-problem-mit-formcreate-und-tidirc.html)

Jörn 29. Feb 2004 14:08


Problem mit FormCreate und TIdIRC
 
Ich möchte einen IRC-Bot auf Basis der Indy-Komponenten schreiben. Dieser soll nur im Hintergrund laufen (mittels Application.ShowMainForm := False). Kein Thema. Aber bei Programmstart soll das Programm folgenden Code ausführen:

Delphi-Quellcode:
IdIRC1.Connect();
IdIRC1.Join(channel, pw);
IdIRC1.Say(...)
Nur geht das nicht im FormCreate, wie so vieles... jemand eine Idee? Ich möchte auf jeden Fall nicht noch auf einen Button drücken müssen oder so, einfach Programm starten und der Bot verbindet sich mit dem jeweiligen IRC-Server.

MfG, Jörn

Luckie 29. Feb 2004 14:18

Re: Problem mit FormCreate und TIdIRC
 
Könnte sein, dass da noch nicht alles initialisiert ist. Versuch es mal on OnActivate, aber bei ein Flag ein, damit der Code nur einmal ausgeführt wird.

Aber sehr hilfreich wäre noch zu wissen, was du unter "das geht nicht" verstehst. :roll:

Jörn 29. Feb 2004 14:28

Re: Problem mit FormCreate und TIdIRC
 
Geht nicht = nix passiert 8)

OnActivate geht nicht weil das Formular nicht sichtbar ist und daher auch nicht aktiviert wird.
Habs eben mal getestet, funzt nich mal wenn das Formular sichtbar ist.

Delphi-Quellcode:
var first: boolean = true;

procedure TForm1.FormActivate(Sender: TObject);
begin
if first then
  begin
  idirc1.Connect();
  idirc1.Join(channel, password);
  first := false;
  end;
end;
Zumindest falls du das so meinst.

Luckie 29. Feb 2004 14:34

Re: Problem mit FormCreate und TIdIRC
 
Ja so meinte ich es. Hm. :gruebel:

Jörn 1. Mär 2004 14:42

Re: Problem mit FormCreate und TIdIRC
 
Bringe ich hier jeden zur Verzweiflung mit dieser Frage?? Kann ja nicht unmöglich sein...


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:23 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz