Функции и процедуры Delphi. Справочник.

ХII. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ СОЗДАНИЯ РАСПРЕДЕЛЕННЫХ ПРИЛОЖЕНИЙ

3. Функции и процедуры для работы с технологией MIDAS
(Multi-Tier Distributed Application Services)

Функция DisableWebTransport ( const ClassID: string );

Данная процедура поддерживается только в Delphi 5 и выше

Модуль: databkr

Описание
Процедура отменяет регистрацию удаленного модуля данных, после чего клиенты не смогут получить к нему доступ посредством Web-соединения, но в то же время сервер приложений останется доступным посредством других протоколов.
Процедура удаляет записи из системного реестра, которые использует Borland HTTP Server (httpsrvr.dll) для того чтобы проверить, может ли клиент обращаться к серверу приложений посредством протокола HTTP.
Вызов данной процедуры автоматически добавляется к методу UpdateRegistry при создании потомка удаленного модуля данных "Мастером удаленных модулей данных" (The remote data module Wizard).
Идентификатор classID уда-ленного модуля данных передается процедуре в параметре ClassID.

Пример
class procedure TMyRemoteDataModule.UpdateRegistry( Register: Boolean; const ClassID, ProgID: string);

begin
  if Register then
    begin
      inherited UpdateRegistry(Register, ClassID, ProgID);
      EnableSocketTransport(ClassID);
      RegisterPooled(ClassID, 8, 10);
    end
  else
    begin
      DisableSocketTransport(ClassID);
      UnregisterPooled(ClassID);
      inherited UpdateRegistry(Register, ClassID, ProgID);
    end;
end;

[Вернуться к содержанию]