Скачать: CL | DM;

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

← →
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]
Я чувствовал, что какая то маленькая козявочка все тормозит

---

← →
Digitman ©   (2005-09-23 15:41) [3]

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


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

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

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

"C:\dbase\XXX.GDB

и

hostname:C:\dbase\XXX.GDB

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c