COM-server mit ConnectionPoints

[UweR]

Hallo Leute,

ein COM-Server soll bei bestimmten Ereignissen allen bei ihm angemeldeten Clients ne Nachricht schicken. Ich habe den COM-Server mit ereignisunterstützung angelegt und wenn das Ereignis eintritt, welches von einem Client ausgelöst wird wird leider nur der Client informiert der es ausgelöst hat. Ich gehe über die Liste der ConnectionPoints, die hat aber leider immer nur einen Eintrag. habe ich da noch einen gröberen Denkfehler drin oder irgendwas vergessen oder was. Ich habe meine ergüsse mal hier hin gepappt.

Delphi-Quellcode:

unit MonServMain;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, AxCtrls, Classes, Monserv_TLB, StdVcl;

type
  TMonServ = class(TAutoObject, IConnectionPointContainer, IMonServ)
  private
    { Private-Deklarationen }
    FConnectionPoints: TConnectionPoints;
    FConnectionPoint: TConnectionPoint;
    FEvents: IMonServEvents;
    { Hinweis: FEvents unterhält eine  *einzelne* Ereignissenke. Verwenden Sie
      für den Zugriff auf mehrere Ereignissenken FConnectionPoint.SinkList und
      durchlaufen Sie die Liste der Senken. }
  public
    procedure Initialize; override;
  protected
    { Protected-Deklarationen }
    property ConnectionPoints: TConnectionPoints read FConnectionPoints
      implements IConnectionPointContainer;
    procedure EventSinkChanged(const EventSink: IUnknown); override;
    procedure LogOffUser(const Server, Username: WideString); safecall;
  end;

implementation

uses ComServ;

procedure TMonServ.EventSinkChanged(const EventSink: IUnknown);
begin
  FEvents := EventSink as IMonServEvents;
end;

procedure TMonServ.Initialize;
begin
  inherited Initialize;
  FConnectionPoints := TConnectionPoints.Create(Self);
  if AutoFactory.EventTypeInfo <> nil then
    FConnectionPoint := FConnectionPoints.CreateConnectionPoint(
      AutoFactory.EventIID, ckSingle, EventConnect)
  else FConnectionPoint := nil;
end;


procedure TMonServ.LogOffUser(const Server, Username: WideString);
var
   i, nCount : integer;
begin
   nCount := FConnectionPoint.SinkList.Count;
   for i:= 0 to nCount-1 do begin
      if FConnectionPoint.SinkList[i] <> NIL then
         IMonservEvents(FConnectionPoint.SinkList.Items[i]).MonMessage('LogOff ' + Username + ' on ' + Server,nCount);
   end;

//   FEvents.MonMessage('LogOff ' + Username + ' on ' + Server,1);
end;

initialization
  TAutoObjectFactory.Create(ComServer, TMonServ, Class_MonServ_,
    ciMultiInstance, tmApartment);
end.

[shmia]

Zitat von UweR:

ein COM-Server soll bei bestimmten Ereignissen allen bei ihm angemeldeten Clients ne Nachricht schicken. Ich habe den COM-Server mit ereignisunterstützung angelegt und wenn das Ereignis eintritt, welches von einem Client ausgelöst wird wird leider nur der Client informiert der es ausgelöst hat. Ich gehe über die Liste der ConnectionPoints, die hat aber leider immer nur einen Eintrag. habe ich da noch einen gröberen Denkfehler drin oder irgendwas vergessen oder was. Ich habe meine ergüsse mal hier hin gepappt.

Ja, jeder Client hat seine eigene Instanz vom Server.
Du musst deinen Server in der ROT (Running Object Table) registrieren und ausserdem muss
jeder Client erstmal die ROT mit GetActiveObject nach einer laufenden Instanz befragen.
[google]"Running Object Table" AND delphi[/google]

[UweR]

Hallo Andreas,

danke für deine Antwort. Das wirds wohl sein!

Dann noch direkt eine Frage. Wie siehts damit auf nem Terminal-Server aus? Ich will wenn möglich die Clients aller Sitzungen erfassen. Ich meine aber mal gelesen zu haben das die ROT nur innerhalb einer Sitzung gültig ist. Wenn's da nämlich Probleme mit gibt kann ich direkt alles in die Tonne kloppen und mir was anderes ausdenken.

[Bernhard Geyer]

Du kannst Dir auch noch ein Verwaltungsobjekt überlegen, über den sich die TMonServ-Objekt eintragen und über den die Eventauslösung geschieht.

TMonServer-Instanz sagt Verwalter: Löse EventXY aus. Verwalter sagt jeder Instanz von TMonServer: Löse EventXY aus. Instanz von TMonServer lößt EventXY aus.

[shmia]

Zitat von UweR:

Dann noch direkt eine Frage. Wie siehts damit auf nem Terminal-Server aus? Ich will wenn möglich die Clients aller Sitzungen erfassen. Ich meine aber mal gelesen zu haben das die ROT nur innerhalb einer Sitzung gültig ist. Wenn's da nämlich Probleme mit gibt kann ich direkt alles in die Tonne kloppen und mir was anderes ausdenken.

Hmmmmm....
Es wäre wohl gefährlich, wenn eine Session die ROT einer anderen Session einsehen könnte.
Session A könnte dann z.B. offene WinWord-Instanzen von Session B sehen und beeinflussen.
Also doch was neues überlegen.