Komponente zur Laufzeit erzeugen und events setzen?

[alienous]

hi, probiere gerade ein wenig mit TIdIRC rum, da ist mir dann ein gedanke gekommen. würde gerne auf mehrere ircserver gleichzeitig connecten. also brauche ich auch mehrere IdIRC-Komponenten! die würde ich in einer stringlist speichern (oder ist da die objektlist besser?) um sie zu verwalten. das habe ich schon alles mit anderen komponenten gemacht

Delphi-Quellcode:

procedure test;
var stringlist : Tstringlist;
begin

  stringlist := Tstringlist.Create;
  stringlist.AddObject('name1',TIdIRC.Create(??));
  stringlist.Free;

end;

die beiden probleme, die ich nun habe sind folgende:

- beim TIdIRC.Create soll ein AOwner übergeben werden vom typ TComponent. was soll das bedeuten? muss ich ein objekt vom typ tComponent erzeugen und diesen da zuweisen?

- wie übergebe ich den zur laufzeit hinzugefügten komponenten events zu? also wie bringe ich den komponenten bei, was sie zb bei onMessage machen sollen?!

thx

[mkinzler]

Zitat:

beim TIdIRC.Create soll ein AOwner übergeben werden vom typ TComponent. was soll das bedeuten? muss ich ein objekt vom typ tComponent erzeugen und diesen da zuweisen?

Nein, dies ist der Owner. Also entweder das Formular (self) oder kein Besitzer (Nil).

Zitat:

wie übergebe ich den zur laufzeit hinzugefügten komponenten events zu? also wie bringe ich den komponenten bei, was sie zb bei onMessage machen sollen?!

Also Methode deklarieren und dann der Property on<Ereignis> zuweisen.

[Meflin]

Moin!

Also 1. würde ich zur Verwaltung ein array of TIdIRCServer verwenden ;)
Als Owner musst du die Form übergeben, ohne geht es glaube ich nicht, da die Komponenten den Message-Queue der Form brauchen.
Events kannst du ganz einfach zuweisen indem du eine procedure schreibst mit dem was passieren soll (und den Parametern die das Event braucht) und dann per Event := @procedure zuweist :)

[alienous]

Delphi-Quellcode:

procedure onConnect(Sender: TObject);
begin
  // wie greife ich auf die aufrufende irccompo zu? (irc.say())
end;

procedure test;
var stringlist : Tstringlist;
begin

  stringlist := Tstringlist.Create;
  stringlist.AddObject('name1',TIdIRC.Create(Form1));
  stringlist.Free;
  tidirc(stringlist.Objects[0]).OnConnect := onConnect;

end;

so in etwa? ist der Sender dann die jeweilige irccompo?

[Meflin]

Zitat:

Zitat von alienous

Delphi-Quellcode:

  stringlist := Tstringlist.Create;
  stringlist.AddObject('name1',TIdIRC.Create(Form1));
  stringlist.Free;
  tidirc(stringlist.Objects[0]).OnConnect := onConnect;

ähm... wen du die StringList freigibst, dann sind deine IRC-Instanzen wieder im Popo, das ist dir schon klar :stupid: ?

[SirThornberry]

Pro Thread bitte nur eine Frage sonst wird das ein riesen Durcheinander und keiner weiß am Ende welche Antwort zu welcher Frage gehört. Da das durcheinander hier schon dabei ist einzug zu halsten mach ich hier auch zu. Eröffne für deine beiden Fragen bitte jeweils ein eigenes Thema.

*** LOCKED ***