Small_green_yojik
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору vizlipuzli Извиняюсь за "оперативность". Причиной предполагать был предыдущий слет (беды, так же, ничего не предвещало). Сейчас картина та же. Первое время стартовал как служба, через пару дней-все, радость заканчивается. Программа по таймеру стартует пытается открыть базу но "ан нет". Кусок кода открытия: Код: procedure open1S(Base, User, Pass: string); begin Ole1S := CreateOleObject('V1CEnterprise.Application'); ResOpen:=Ole1S.Initialize(Ole1S.RMTrade, '/D'+Base+' /N'+User+' /P'+Pass,'NO_SPLASH_SHOW'); {NO_SPLASH_SHOW} end; | Код: procedure MainProc(BasePath, ObrPath, Login, Passw:string); var indy:byte; begin Log('Старт выполнения задания. Чтение логина/пароля.'); Log('Попытка открытия базы данных и запуска отчета.'); indy:=0; try open1S(BasePath, Login, Passw); Log('База данных успешно открыта. Старт выполнения отчета.'); indy:=1; except Log('Ошибка! Не удалось подключиться к базе 1С.'); end; if indy=1 then try Ole1S.EvalExpr('ОткрытьФорму("Отчет",,"'+ObrPath+'")'); Log('Отчет выполнен.'); except Log('Отчет выполнить не удалось.') end; Ole1S := Unassigned; end; | Службу вешаю через instserv (instsrv.exe, srvany.exe). |