Текущий архив: 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.022 c