2.6.3 Особенности использования Delphi и 1c

Прежде чем использовать все возможности программы "1С:Предприятие", необходимо сначала создать соответствующий OLE-объект. Идентификатор этого OLE-объекта зависит от версии и типа установленной программы "1С:Предприятие":

V1CEnterprise.Application - версия независимый ключ.

V77.Application - версия зависимый ключ.

V77S.Application - версия зависимый ключ, SQL-версия.

V77L.Application - версия зависимый ключ, локальная версия.

V77M.Application - версия зависимый ключ, сетевая версия.

Затем необходимо проинициализировать систему методом Initialize, имеющим следующие параметры:

Initialize(<Имя_Объекта>.RMTrade,<КоманднаяСтрока>,<ПустаяСтрока>), где:

<Имя_Объекта> - Идентификатор созданного OLE объекта.

<КоманднаяСтрока> - Строковое выражение - командная строка запуска.

<ПустаяСтрока> - Строковое выражение. Может содержать пустую строку или строковое значение "NO_SPLASH_SHOW" - отключить заставку при запуске системы.

Метод Initialize возвратит значение логического типа: TRUE, если инициализация прошла удачно, или FALSE в противном случае. Следует иметь в виду, что в OLE Automation TRUE и FALSE имеют соответственно значения -1 (минус единица) и 0.

Параметры командной строки запуска подробно описаны в руководстве к программе "1С:Предприятие", здесь же я приведу лишь те, которые могут оказаться вам полезными:

/DПуть к базе - задает путь к базе программы.

/M - запуск программы в монопольном режиме.

/NИмя пользователя.

/PПароль - пароль указанного пользователя.

Параметры, не указанные в командной строке, будут запрошены программой в диалоговом режиме.

Инициализация программы 1С Предприятие 7.7 “Технический центр” выполняется следующим образом: явно указывается путь к базе данных “\\server\su$”, имя пользователя (admin) и пароля (12345).

Параметры: путь к базе 1С, имя пользователя и пароль

В отличие от, например, OLE Automation-сервера приложения Microsoft Excel, сервер программы "1С-Предприятие" запускается в режиме "hide", то есть рабочее окно программы не отображается на экране.

Для использования созданного и проинициализированного объекта необходимо просто обращаться к атрибутам и методам системы 1С:Предприятие как OLE Automation сервера.

Для завершения работы с программой необходимо освободить OLE-объект путем присвоения ему значения UnAssigned:

V77 := UnAssigned;

2.6.3.1 Функция, осуществляющая создание и инициализацию экземпляр 1с

function create1CApplication():Olevariant;

var

V77 : Olevariant;

begin

V77 := CreateOleObject('V1CEnterprise.Application'); //Создаем OLE-объект

if VarType(V77)<>varDispatch then

begin

DatabaseError('Ошибка создания экземпляра 1с. На вашем компьютере не установленна 1С');

exit;

end;

//Инициализируем объект

V77.initialize(V77.rmtrade, '/D'+ fMain.crmParams.base_path_1c +

' /N'+fMain.crmParams.user_1c+

' /P'+fMain.crmParams.user_pwd_1c,

'NO_SPLASH_SHOW');

result := V77;

end;