🚀 go-pugleaf

> 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 ?

Spróbuj wprowadzić coś takiego, jak poniżej. Nie testowałem - pisane bezpośrednio w mailu.

type
THackDSCustomServer = class(TComponent)
protected
  FDbxContext: TDBXContext;
public
  FStarted: Boolean;
  FConfig: TDSConfiguration;
  FServerMethodProvider: TDSServerMethodProvider;
  FComponentList: TDBXArrayList;
  FHideDSAdmin: Boolean;
end;

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

-- 
pozdrowienia
Krzysztof Szyszka, X-Files Software
Developer of X-DBGrid Component
Embarcadero Technology Partner
http://www.x-files.pl/