Calling a service method from inside the server with Code-First?

[EvgenyK (Evgeny Karpov)]

@Smokoveck

In order to create the object TSecondServic e it would be necessary for the TFirstService service to know the implementation of TSecondService (uses SecondService_Impl)? In my opnion this can generate some problems, or no?

this won’t generate any problems. and yes, it should.

@Smokoveck

In the line “ Result: = (instance as ISecondService) .GetServerTime (); ” In this case, the ISecondService is the interface of the SecondService_Impl service, so, I would have to make use of the “ SecondService_Intf ” service interface ??? that is, would I use the interface again?

ah, yes.
in CodeFirst, you haven’t ISecondService so you can use service instance itself:

function TFirstService.GetServerTime: DateTime;
var
  instance: IInterface;
  service: TSecondService;
  objactivation:IROObjectActivation;
begin
  service := TSecondService.Create(nil);
  instance := service;

  if Supports(instance, IROObjectActivation, objactivation) then begin
    objactivation.OnActivate(ClientID, nil);
    objactivation := nil;
  end;

  Result := service.GetServerTime();

  if Supports(instance, IROObjectActivation, objactivation) then begin
   objactivation.OnDeactivate(ClientId);
   objactivation := nil;
  end;

  instance := nil;
end;