Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
Result := FIntf;
end;
constructor TBinder.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TBinderProperties.Create(Self);
{$ENDIF}
end;
destructor TBinder.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TBinder.GetServerProperties: TBinderProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TBinder.Get_Name: WideString;
begin
Result := DefaultInterface.Get_Name;
end;
function TBinder.Get_Path: WideString;
begin
Result := DefaultInterface.Get_Path;
end;
function TBinder.Get_ActiveSection: Section;
begin
Result := DefaultInterface.Get_ActiveSection;
end;
function TBinder.Get_Sections: Sections;
begin
Result := DefaultInterface.Get_Sections;
end;
function TBinder.Get_SelectedSectionNames: OleVariant;
begin
Result := DefaultInterface.Get_SelectedSectionNames;
