Variablen in Service verlieren ihren Wert (COM Server)

[JonnyGuitar]

das habe ich auch schon probiert jedoch ohne erfolg:

Delphi-Quellcode:

procedure TForm1.btn2Click(Sender: TObject);
var
  IntFace: IUnknown;
  Test: IMopTestObj;
begin
  GetActiveObject(CLASS_MopTestObj, nil, IntFace);

  if assigned(IntFace) then
  begin
    Test := INtFace as IMopTestObj;
    Test.ForUPD;
  end
  else
  begin
    Test := CoMopTestObj.Create;
    Test.ForUPD;
  end;

end;

also intface bleibt immer nil. heisst das, dass das COM object nicht richtig registriert ist?
hat man denn nach dem erstellen des servers automatisch schon eine instanz?


mfg Jonny