Как продвинуть сайт на первые места?
Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.

Ускорение продвижения
Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.



Иллюстрированный самоучитель по Delphi 7 для профессионалов

Вспомогательные компоненты – брокеры соединений

Помимо списка серверов компонент имеет лишь несколько вспомогательных свойств и методов.

Метод:

function GetComputerForGUID(GUID: TGUID): string; override;

…возвращает имя компьютера, на котором зарегистрирован сервер с GUID, заданным параметром.

Метод:

function GetComputerForProgID(const ProgID): string; override;

…возвращает имя компьютера, на котором зарегистрирован сервер с именем, заданным параметром Progio.

Свойство:

property LoadBalanced: Boolean;

…управляет выбором сервера из списка. При значении True запись о сервере выбирается случайным образом, иначе для соединения предлагается первая доступная запись о сервере.

Компонент TLocalConnection

Компонент TLocalConnection используется локально для получения доступа к существующим компонентам-провайдерам.

Свойство:

property Providers[const ProviderName: string]: TCustomProvider;

…содержит ссылки на все компоненты-провайдеры, размещенные с компонентом TLocalConnection на одной форме. Индексация в списке осуществляется по имени компонента-провайдера.

Общее число компонентов-провайдеров в списке возвращает свойство:

property ProviderCount: Integer;

Кроме этого, при помощи компонента TLocalConnection можно получить доступ к интерфейсу IAppServer локально. Для этого используется свойство:

property AppServer: IAppServer;

…или метод:

function GetServer: IAppServer; override;
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.