🚀 go-pugleaf

witam
szukam pomocy w przeniesieniu komponentu który używam do monitorowania serwera DataSnap skompilowanego w Delphi 10.

Aktualnie jest potrzeba przeniesienia tego projektu do Delphi 10.1 no i muszę też przenieść ten komponent i tu ma problem.

Komponent został kiedyś napisany przez jednego z pracowników Embarcadero https://mathewdelong.wordpress.com/2011/11/15/datasnap-xe2-unified-connection-monitoring-sample-component/ i  udostępniony na ich stronach https://cc.embarcadero.com/item/28625
Pisałem już do autora ale brak odpowiedzi, w Embarcadero już nie pracuje

Problem polega na tym że podczas próby skompilowania i instalacji komponentu w D 10.1 dostaję komunikat 

[dcc32 Error] Datasnap.ServerConnectionMonitoring.pas(247): E2361 Cannot access private symbol TDSCustomServer.FComponentList

a dotyczy on poniższej linii w kodzie:

{ TDSCustomServerHack }

procedure TDSCustomServerHack.GetComponentList(const List: TDBXArrayList);
var
  Index, Count: Integer;
  ServerComponent: TObject;
begin
  if (Self.FComponentList <> nil) and (List <> nil) then     <----------------
  begin
    Count := Self.FComponentList.Count - 1;
    for Index := 0 to Count do
    begin
      ServerComponent := Self.FComponentList[Index];
      List.Add(ServerComponent);
    end;
  end;
end;


Macie może jakieś sugestie jak powinien być zmodyfikowany ten kod aby skompilował się w D 10.1 ?

Jeśli będzie potrzeba to mogę zamieścić cały listing tego modułu 

Z góry dziękuję za pomoc

pozdrawiam

R