Сервис приложение Delphi

[Dimonnik]

Добрый день! Я совсем чайник в Delphi, при этом прочитал не мало постов по своей проблеме. Прошу не пинать!!!

Итак: задача и суть проблемы!
Задача заключается в следующем. Необходима служба, которая бдит определенную папку (из своих настроек в реестре), как только там появляется файлик, она читает его и удаляет.

Суть проблемы:
Я написал сервис, все необходимые процедуры и функции... но при попытке открытия файла reset(f) служба останавливается...

вот кусок кода
procedure ScanFolder();
var

DirInfo: TSearchRec;
ResultFile: integer;
F :=TextFile;

begin
ResultFile := FindFirst(mDir+'*.*', faAnyFile, DirInfo);

//if i = 0 then DeleteFile(mDir+DirInfo.Name);
//if ResultFile = 0 then
//ParseFile(mDir+DirInfo.Name,DirInfo .Name);
// DeleteFile(mDir+DirInfo.Name);
while ResultFile = 0 do
begin
if FileExists(mDir+DirInfo.Name) then
begin
try
AssignFile(f,'D:\LOG.txt');
reset(f); //Тут валится служба

... действия над содержимым файла

CloseFile(f);
DeleteFile(mDir+DirInfo.Name);
except
mlog('Ошибка загрузки данных в файл '+mDir+DirInfo.Name);
end;
end
end;
FindClose(DirInfo);
end;

[Vanta11a]

var
...
F :=TextFile;

Ничего странного не замечаете? Присвоение в объявлении переменной, например?

[Dimonnik]

Сообщение от Vanta11a

var
...
F :=TextFile;

Ничего странного не замечаете? Присвоение в объявлении переменной, например?

Спасибо за ответ! Прошу прощения, писал кусок ручками поэтому опечатался, в самом коде все хорошо - проверил)

Это не решило проблему(((

[Vanta11a]

А точно к моменту вызова функции reset() файл существует и не открыт чем-то еще?
Что за ошибка выпадает? Что говорит точка останова?

[Dimonnik]

Да, файл существует и больше никем (ничем) не открыт. Как отладить работающую службу?

При чем я больше чем уверен в том, что если бы я писал обычное приложение, то это бы отработало без ошибок. А вот с сервис-приложением приходится туго((

[Dimonnik]

Приведу более детальный код в надежде что найдется тот Гуру программист, который сможет наставить меня на путь истинный...

procedure ScanFolder();
var

DirInfo: TSearchRec;
ResultFile: integer;
F :TextFile;

begin
ResultFile := FindFirst(mDir+'*.*', faAnyFile, DirInfo);
while ResultFile = 0 do
begin
if FileExists(mDir+DirInfo.Name) then
begin
try
AssignFile(f,'D:\LOG.txt');
reset(f); //Тут валится служба

... действия над содержимым файла

CloseFile(f);
DeleteFile(mDir+DirInfo.Name);
except
mlog('Ошибка открытия файла '+mDir+DirInfo.Name);
end;
end
end;
FindClose(DirInfo);
end;




procedure TSMSServer.ServiceExecute(Sender: TService);
const
SecBetweenRuns = 5;
var
Count: integer;
begin
Count := 0;
while not Terminated do
begin
Inc(Count);
if Count >= SecBetweenRuns then
begin
Count := 0;
ScanFolder();
end;
Sleep(1000);
ServiceThread.ProcessRequests(False );
end;
end;

[eval]

Как отладить работающую службу?

делаете простую программу и отлаживаете потом в сервис, либо приатачиться к процессу службы (если получиться)

ну и конечно про ошибку тут лучше ничего не говорите, а то украдут ее, а она судя по всему супер секретная, и логи которые тут тоже не показывайте - подсудное дело.

except
mlog('Ошибка открытия файла '+mDir+DirInfo.Name);
end;

и еще, этот код ненужный его можно смело выбросить

[Dimonnik]

Ничего секретного тут нет. Я делаю все тоже самое в обычном приложение - РАБОТАЕТ!

except
mlog('Ошибка открытия файла '+mDir+DirInfo.Name);
end;

Это для себя делал в рабочем коде он совсем не нужен понимаю....

[eval]

Это для себя делал в рабочем коде он совсем не нужен понимаю....

это вы сделали чтобы в системных логах не показывалась реальная ошибка, понимаю...

[Dimonnik]

Реальная ошибка все отображается и выглядит следующим образом:

Не удается найти описание для идентификатора события 0 из источника Project1.exe. Вызывающий данное событие компонент не установлен на этом локальном компьютере или поврежден. Установите или восстановите компонент на локальном компьютере.

Процесс службы не может установить связь с контроллером службы