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). |
Программы » 
Варезник » 
