служба и база данных

← →
HelpMy (2005-09-23 14:24) [0]

При создании Service
создаю IBDataBase
procedure TService3.ServiceCreate(Sender: TObject);
begin
try
Base := TIBDatabase.Create(Application);
AddToLog("1");
Base.DatabaseName := "C:\dbase\XXX.GDB";
AddToLog("2");
Base.Params.Add("user_name=sysdba");
AddToLog("3");
Base.Params.Add("password=masterkey");
AddToLog("4");
Base.Params.Add("lc_ctype=WIN1251");
AddToLog("5");
Base.LoginPrompt := False;
AddToLog("6");
except
on E: Exception do
begin
AddToLog(E.ClassName + " " + e.Message);
end;
end;
end;

В onExecute пытаюсь открыть базу
procedure TService3.ServiceExecute(Sender: TService);
begin
try
Base.Open;
AddToLog("7");
except
on E: Exception do
begin
AddToLog(E.ClassName + " " + e.Message);
end;
end;
while Runing do
Sleep(100);
ServiceThread.ProcessRequests(False); {}
end;

Все действия пишутся в лог:
16:15:06 1
16:15:06 2
16:15:06 3
16:15:06 4
16:15:06 5
16:15:06 6
16:15:06 EIBInterBaseError unavailable database

Чего не хватает, что бы открыть базу

Если помещаю компонент базы с теми же настройками, то в дизайне без проблем устанавливается Connected d True

← →
simpson © (2005-09-23 14:35) [1]

Из сервиса так нельзя. Нужно делать так:
Base.DatabaseName := "hostname:C:\dbase\XXX.GDB";

где hostname - имя сервера, на котором лежит эта база, если на этом же компьютере - то "localhost".

← →
HelpMy (2005-09-23 14:39) [2]

Спасииибо simpson © (23.09.05 14:35) [1]
Я чувствовал, что какая то маленькая козявочка все тормозит

> simpson © (23.09.05 14:35) [1]

ну это ты чушь, положим, сморозил)

при чем здесь сервис или не сервис ?

вся разница между

"C:\dbase\XXX.GDB

и

hostname:C:\dbase\XXX.GDB

- в требуемом клиенту протоколе инф.обмена с СУБД

служба и база данных Найти похожие ветки