Query, TserviceApplication

[AndreyF]

Добрый день!
Народ выручайте неделю уже бьюсь, безрезультатно.
Задача следующая, выгрузить данные из базы (*.FDB) в базу (*.DBF), полученный файл заархивировать и отправить на ftp. Работаю на Windows XP. Написал приложение которое 100% работает, но теперь надо это всё переделать в службу (чтоб работало без сеанса пользователя). Взял в Delphi7 шаблон TServiceApplication и в него весь код перетащил из своего приложения, далее зарегистрировал в службы.

try 
IBDatabase1.Connected:=true;
IBTransaction1.StartTransaction;
IBSQL1.SQL.Text:='select IP.num_id,IP.date_delo, IP.d_ip_out,IP.name_d,IP.inn_d,IP.vidd_ttl from IP';
IBSQL1.ExecQuery;
Query1.Close;
Query1.SQL.Text:='insert into ":ALLIAS:'+name_file+'" (num_id,date_delo,d_ip_out,name_d,inn_d,vidd_ttl) values'
                            +' (:num_id,:date_delo,:d_ip_out,:name_d,:inn_d,:vidd_ttl)';
while not IBSQL1.Eof do
   begin
      Query1.ParamByName('num_id').AsString:=IBSQL1.Fields[0].AsString;
      Query1.ParamByName('date_delo').AsString:=IBSQL1.Fields[1].AsString;            
      Query1.ParamByName('d_ip_out').AsString:=IBSQL1.Fields[3].AsString;
      Query1.ParamByName('name_d').AsString:=IBSQL1.Fields[3].AsString;
      Query1.ParamByName('inn_d').AsString:=IBSQL1.Fields[4].AsString;
      Query1.ParamByName('vidd_ttl').AsString:=IBSQL1.Fields[4].AsString;             
      Query1.ExecSQL;//Не может вставить в *.DBF, на этой строке уходит в except **************************************************
      IBSQL1.Next;
   end;
IBTransaction1.Rollback;
except
end;

Query1.ExecSQL - почему не может выполнить эту строчку, хотя бы в каком направлении копать?
Весь именно этот код пересён из моего рабочего приложения.

[Eofol]

А с каким исключением уходит в except?

[mihali4]

Query1.ParamByName('d_ip_out').AsString:=IBSQL1.Fields[3].AsString;
Query1.ParamByName('name_d').AsString:=IBSQL1.Fields[3].AsString;
Query1.ParamByName('inn_d').AsString:=IBSQL1.Fields[4].AsString;
Query1.ParamByName('vidd_ttl').AsString:=IBSQL1.Fields[4].AsString;

[AndreyF]

Код:
Query1.ParamByName('d_ip_out').AsSt ring:=IBSQL1.Fields[3].AsString;
Query1.ParamByName('name_d').AsStri ng:=IBSQL1.Fields[3].AsString;
Query1.ParamByName('inn_d').AsStrin g:=IBSQL1.Fields[4].AsString;
Query1.ParamByName('vidd_ttl').AsSt ring:=IBSQL1.Fields[4].AsString;

У меня просто около 40 полей в *.DBF файле поэтому и накопировал невнимательно, с этим всё в порядке.

А с каким исключением уходит в except?

- вот этого не знаю, смотрел "Просмотр событий" - там написано:
1. Ошибка.
Не найдено описание для события с кодом (0) в источнике (EIGS.exe) - мой сервис.
Возможно, на локальном компьютере нет нужных данных в реестре или файлов DLL сообщений для отображения сообщений удаленного компьютера.
Попробуйте использовать ключ /AUXSOURCE= для получения этого описания, - дополнительные сведения об этом содержатся в справке.
В записи события содержится следующая информация: Процесс службы не может установить связь с контроллером службы.
2. Ошибка.
Бывает также промелькивает:
Не найдено описание для события с кодом (0) в источнике (EIGService).
Возможно, на локальном компьютере нет нужных данных в реестре или файлов DLL сообщений для отображения сообщений удаленного компьютера.
Попробуйте использовать ключ /AUXSOURCE= для получения этого описания, - дополнительные сведения об этом содержатся в справке.
В записи события содержится следующая информация: Service failed on execute: Alias is not currently opened. Alias: ALLIAS.

Каких то dll якобы не хватает? В приложение то весь этот код работает.
Прилагаю весь код, у кого хватит желания может посмотреть.
Надеюсь что кто-нибудь мне всё-таки поможет разобраться.