Выполнение функции напрямую на сервере-приложений

[Серый]

Добрый день!
Как выполнить функцию на сервере приложений через TDCOMConnection (например GetDBList)?
Заранее спасибо.

Код Выделить Развернуть


procedure SomeProcedure(Sender: TObject);
var
  a: TDCOMConnection;
  app: IAppServer;
begin
  a := TDCOMConnection.Create(nil);
  try
    a.ComputerName := 'SrvName';
    a.ServerGUID := '{33EEB159-952A-42AA-8CF1-A48DE51E4F02}';
    a.Open;
    if a.Connected then
    begin
      app := a.GetServer;
      {Что сюда вставить?}
    end;
  finally
    a.Close;
    a.Free;
  end;
end;


[teplinskiy]

Как выполнить функцию на сервере приложений через TDCOMConnection (например GetDBList)?

Код Выделить Развернуть


var
  inErrCode: Variant;
  stErrMess: Variant;
  stDBList: String;
    - - - - - - - - - - - - - - - -
    stDBList := a.AppServer.GetDBList(inErrCode, stErrMess)
    - - - - - - - - - - - - - - - -


[Серый]

Код Выделить Развернуть


    a.ComputerName := 'SrvName';
    a.ServerGUID := '{33EEB159-952A-42AA-8CF1-A48DE51E4F02}';


Этой инициализации достаточно?
У меня выдает "Method 'GetDBList' not supported by automation object."

[teplinskiy]

Код Выделить Развернуть


    a.ComputerName := 'SrvName';
    a.ServerGUID := '{33EEB159-952A-42AA-8CF1-A48DE51E4F02}';

Этой инициализации достаточно?
У меня выдает "Method 'GetDBList' not supported by automation object."

ServerGUID не верен!
Правильный будет - {392BA982-A82F-44AB-BA8A-69BE25199F73} (см. вложение)

[Серый]

Помогло
Большое спасибо