Форум: "Основная";
Текущий архив: 2002.05.06;
Скачать: [xml.tar.bz2];
ВнизСервесы Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c