Mehrere Clients sollen auf einen Com-Server zugreifen, bei der Änderung der Serverdaten sollen alle angemeldete Clients benachrichtigt werden.
Ich habe die angemeldete Clients in eine TInterfaceList verwaltet.

Ich bekomme folgender Probleme:
1. Der erste angemeldete Client erzeugt ein COM-Server obwohl die EXE-Datei auf dem Server manuell gestartet ist.
Also wie kann man nachfragen ob der Server-Application gestartet ist.
2. Bei der Funktion MeldeAn (Client Objekt in der InterfaceList einfügen) kommt ein Fehler (Zugriff verweigert.)
3. Wie kann ich ein Zeiger von der InterfaceList auf einen Client wieder freigeben.


Durch das kommende Beispiel habe ich versucht zu realisieren!!


Server Seite:

zusammenfalten · markieren

Delphi-Quellcode:

unit CBServerTest_Impl;

interface

type
  TCBServerTest = class(TAutoObject, ICBServerTest)
  private
    FSrvDaten : String;
    FBeobachterList : TInterfaceList;
    FServerTestHandle : Integer;
    procedure BeobachternBenachrichtigen;
  protected
    function Get_SrvDaten: WideString; safecall;
    procedure MeldeAn(const Beob: IBeobachter); safecall;
    procedure MeldeAb(const Beob: IBeobachter); safecall;
    procedure Set_SrvDaten(const Value: WideString); safecall;
  public
    procedure Initialize; override;
  end;

implementation

uses SysUtils, Dialogs, ComServ;

function TCBServerTest.Get_SrvDaten: WideString;
begin
  Get_SrvDaten := FSrvDaten;
end;

procedure TCBServerTest.MeldeAn(const Beob: IBeobachter);
var i:Integer;
    FBeobachter: IBeobachter;
begin
  if FBeobachterList = nil then
    FBeobachterList := TInterfaceList.Create;
  i := FBeobachterList.Add(Beob);
  FBeobachter := IBeobachter(FBeobachterList[i]);
  FBeobachter.Aktualisiere('TCBServer.MeldeAn');
end;

procedure TCBServerTest.MeldeAb(const Beob: IBeobachter);
var i:Integer;
begin
  if FBeobachterList <> nil then
  begin
    i := FBeobachterList.IndexOf(Beob);
    FBeobachterList.Delete(i);
  end;
  

procedure TCBServerTest.Set_SrvDaten(const Value: WideString);
begin
  FSrvDaten := Value;
  BeobachternBenachrichtigen;
end;

procedure TCBServerTest.BeobachternBenachrichtigen;
var i :integer;
begin
  if FBeobachterList <> nil then
  begin
    for i:=0 to FBeobachterList.Count-1 do
    begin
      IBeobachter(FBeobachterList[i]).Aktualisiere('Aktuelle Serverdaten: '+FSrvDaten);
    end;
  end;
end;

procedure TCBServerTest.Initialize;
begin
  inherited Initialize;
  RegisterActiveObject(Self as IUnknown, Class_CBServerTest01,
                       ACTIVEOBJECT_WEAK, FServerTestHandle);
  FSrvDaten := 'server Initialize';
  CoInitialize(nil);
end;

Client Seite:


    procedure FormCreate(Sender: TObject);
    procedure DatentZuSrvClick(Sender: TObject);
    procedure DatenVonSrvClick(Sender: TObject);
    procedure AnmeldenClick(Sender: TObject);
    procedure AbmeldenClick(Sender: TObject);
  private
    { Private-Deklarationen }
    FCBServerTest : ICBServerTest01;
    FBeobachter : IBeobachter;
    FAngemeldet : Boolean;
    procedure BeobachterAbmelden;

procedure TClientDlg.FormCreate(Sender: TObject);
var aSrvObj : IUnknown;
begin
  GetActiveObject(CLASS_CBServerTest01, nil, aSrvObj);
  if Assigned(aSrvObj) then
    begin
      FCBServerTest := aSrvObj as ICBServerTest01;
     // MsgAnSrv := 'Connect mit ROT-Instanz';
    end
  else
    begin
      FCBServerTest := CoCBServerTest01.Create;
     // MsgAnSrv := 'Connect mit neuer Instanz';
    end;
  FAngemeldet := False;
  FBeobachter := CoClientTestObj.Create as IBeobachter;
end;

procedure TClientDlg.DatentZuSrvClick(Sender: TObject);
begin
  FCBServerTest.SrvDaten := Edit1.Text;
end;

procedure TClientDlg.DatenVonSrvClick(Sender: TObject);
begin
  Edit2.Text := FCBServerTest.SrvDaten;
end;

procedure TClientDlg.AnmeldenClick(Sender: TObject);
begin
  if(not FAngemeldet)then
  begin
    FCBServerTest.MeldeAn(FBeobachter);
    FAngemeldet := True;
  end;
end;

procedure TClientDlg.AbmeldenClick(Sender: TObject);
begin
  BeobachterAbmelden;
end;

procedure TClientDlg.BeobachterAbmelden;
begin
  if(FAngemeldet)then
  begin
    FCBServerTest.MeldeAb(FBeobachter);
    FAngemeldet := False;
  end;
end;
end.

[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]

Meiner Meinung nach, muss der COM-Server als Dienst auf dem Server installiert/registriert sein und wenn dann die Sicherheitseinstellungen auch noch so vorgenommen werden, das andere Benutzer auf diesen Zugreifen dürfen, dann bekommt keiner mehr eine eigene (Prozess)Instanz. Haben es selbst bereits praktiziert. Was ich Dir nicht sagen kann, wie bringe ich diesem Server bei, den Client über Ereignisse zu informieren (ohne das der Client ständig nachfragt). Ich denke mal es gibt hier bestimmt den ein oder anderen der das weis.

Besorg dir das Buch COM/DCOM bzw. COM/DCOM/COM+ von Andreas Kosch. Dort werden beide Möglichkeiten besprochen das gewünschte mittels Client-Seitig implementierter (Event-)Schnittstelle zu realisieren bzw. wenn Du W2K vorraussetzen kannst mittels COM+ und asynchronen Events auch noch 'ne Komplette Trennung der Event-Schnittstelle realisieren. Ist jedoch nicht trivial.

Danke für das Antwort!

Ich habe schon bei der Eigenschaft der Benutzer Jeder eingefügt!!!! Aber trotzdem wird beim ersten Aufruf eine neue Instanz erzeugt. Was muss ich bei der Zugriffrechte auch beachten.

Ich habe das Buch vom Andreas Koch
Im Buch gibt Beispiel für Event, das irgendwie auf Windows Ebene zugreift und nicht ganz mit Delphi realisiert ist. Das Beispiel mit Event hat prima auf dem gleichen Rechner funktioniert aber geht nicht auf einen Remote Server.

An welscher Stelle im Buch muss ich genauer kucken?
Und wie kann ich den Zeiger auf ein Client von der InterfaceList wider Frei geben?

Zitat von ikatit:

Ich habe schon bei der Eigenschaft der Benutzer Jeder eingefügt!!!! Aber trotzdem wird beim ersten Aufruf eine neue Instanz erzeugt. Was muss ich bei der Zugriffrechte auch beachten.

Ist denn der COM-Server als Dienst installiert/registriert?

Wie soll das registrieren, wenn man die exe-Datei startet wir die Bibliothek automatich registriert!!

Schau Dir mal die Funktion "RegisterAsService" in der Unit "ComObj" an. Zudem muss es sich bei der Anwendung um eine Serviceanwendung (TServiceApplication) handeln.