Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tgoessi,
7. Jun 2005
Hallo
Hier etwas Code:
Var DispInterfaces : TInterfaceList; //als globale Variable, da der Serverprozess auf die Interfaces zugreifen muss
procedure TDisp.Initialize;
begin
inherited Initialize;
FConnectionPoints := TConnectionPoints.Create(Self); // für die Events
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tgoessi,
7. Jun 2005
Genauso hab ich es gemacht.
Ich speichere die self-Pointer in der initialize-Methode in einer Interfaceliste. Das funktioniert soweit ok. Ich kann dadurch auch Methoden übers Interface auslösen und alle Clients benachrichtigen.
Nur bei der Freigabe gibts ein Problem. Wenn ich den self-Pointer in der Interfaceliste speichere wird der Referenz-Counter erhöht. Die Destroy-Routine (welche den...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tgoessi,
7. Jun 2005
Hallo
Bei einem TAutoObject mit ciMultiInstance wird bei jedem Zugriff von einem externen Prozess ein neues Interface erzeugt.
Wie kann ich eine Referenzliste auf alle diese erzeugten Interfaces erhalten? :|
Es geht darum vom Serverprozess eine Meldung an alle vorhandenen Interfaces zu senden.
Die erzeugten Interfaces in einer TInterfaceList zu speichern funktioniert nicht richtig, da...