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

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

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

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

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

Модуль: databkr

Описание
Процедура отменяет регистрацию удаленного модуля данных.
После вызова данной процедуры клиенты не смогут обращаться к указанному модулю данных посредством Socket-соединения, но в то же время сервер приложений будет доступен с помощью других протоколов.
Процедура удаляет из системного реестра записи, которые Borland Socket Server (Scktsrvr.exe) использует для того, чтобы проверить, могут ли клиенты обращаться к серверу приложений. Вызов данной процедуры автоматически добавляется к методу 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);
    end
  else
    begin
      DisableSocketTransport(ClassID);
      inherited UpdateRegistry(Register, ClassID, ProgID);
    end;
end;

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