Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.06;
Скачать: CL | DM;

Вниз

Сервесы   Найти похожие ветки 

 
Turalyon ©   (2002-04-22 14:10) [0]

Приветствую всех.
Вот мучаюсь с сервисами... возникает такая проблемма, сервис при старте, должен загрузить из ini-файла некоторые данные (для связи с InterBase-овским сервером).
Вставляю вот такой код...


procedure TBehService.ServiceCreate(Sender: TObject);
var Ini : TIniFile;
tmps, OrbIniPath : String;
begin
LogDB.Close;
GetDir(0,OrbIniPath);
OrbIniPath := OrbIniPath + "\orb.ini";
LogDB.Params.Clear;
LogDB.Params.Add("user_name=sysdba");
Ini := TIniFile.Create(OrbIniPath);
LogDB.DatabaseName := Ini.ReadString("Params","ServerPath","anvil-bd:d:\work\beholder.gdb");
tmps := Ini.ReadString("Params","Passwd","masterkey");
LogDB.Params.Add("password="+tmps);
LogDB.Params.Add("lc_ctype=WIN1251");
Ini.Free;
LogDB.Open;
end;


Далее компилирую, все нормально, при запуске сервиса, он задумывается, и говорит, что не буду стартовать, сервис не ответил своевременно. Вроде текст довольно простой, на обычной программе все работает, а с сервисом не хочет.
Если убрать все что связано с LogDB.Params то поскрипя, все же запускает...
В чем проблемма?


 
Turalyon ©   (2002-04-23 08:03) [1]

И все же???



Страницы: 1 вся ветка

Текущий архив: 2002.05.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.009 c
14-17697
MBo
2002-03-29 16:16
2002.05.06
Заинтересовался вот.


1-17598
Сатир
2002-04-22 16:47
2002.05.06
TreeView


6-17659
Лёша
2002-01-18 16:35
2002.05.06
Посоветуйте простейший веб-сервер.


1-17573
Чужой
2002-04-22 12:58
2002.05.06
Исходник чтения/записи текстового файла


1-17631
agrig
2002-04-21 19:43
2002.05.06
TCheckBox - как програмно поменять Checked, чтобы не произошло ..