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

[Luuzuk]

mDir (D:\sent) ... имя (DirInfo.Name)
...
...mDir+DirInfo.Name); //пытаемся установить связь с файла ('D:\sent\бла-бла-бла.txt')

mDir+DirInfo.Name получится "D:\sentбла-бла-бла.txt". Ясное дело, что тут будет "Service failed on execute: File not found"
mDir+'\'+DirInfo.Name - вот тогда получится "D:\sent\бла-бла-бла.txt"

[Dimonnik]

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

mDir+DirInfo.Name получится "D:\sentбла-бла-бла.txt". Ясное дело, что тут будет "Service failed on execute: File not found"
mDir+'\'+DirInfo.Name - вот тогда получится "D:\sent\бла-бла-бла.txt"

СПАСИБО!!! Тут действительно косяк был....

Теперь в логе это: Service failed on execute: File access denied

говорит что ошибка доступа, дал права все уже...
В чем может быть дело?

[Luuzuk]

дал права все уже...

права пользователю "System" не дал. Ну или файл кем-то открыт уже

[Dimonnik]

Права System полные.....

Вот что еще заметил...
Если файлов в папке нет, то программа все равно пытается сделать reset(f)... //Ошибка по понятной причине... но в логах все тоже: Service failed on execute: File access denied

[eval]

Теперь в логе это: Service failed on execute: File access denied

вот, как убрали лишнее и поправили код, так и ошибка стала человеческая выходить

[Dimonnik]

Всем огромное за советы!

Проблема решилась! Прична осталось НЕИЗВЕСТНА!!!

Рабочий код стал только вот в таком виде:

procedure ScanFolder();
var
DirInfo: TSearchRec;
ResultFile: integer;
f: TextFile;
mtext: String;
begin
  ResultFile := FindFirst(mDir+'*.*', faAnyFile, DirInfo);
  while ResultFile = 0 do
    begin
      AssignFile(f, mDir+DirInfo.Name);
      try
        Reset(f);
        ReadLn(f, mtext);
        //первая строчка текстового файла отправляется в СМС
        CloseFile(f);
        DeleteFile(mDir+DirInfo.Name);
      except

      end;
      ResultFile := FindNext(DirInfo);
    end;
  FindClose(DirInfo);
end;

т.е после добавления конструкции try

Тему можно закрывать!



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[eval]

и что вы тут "исправили"? просто заглушили ошибку, а как была она так и осталась

[Dimonnik]

Поэтому и непонятно почему так... Код работает и отправляет сообщения именно только когда присутсвует конструкция try...

В другом случае служба просто останавливается и все тут....

Почему такое происходит?

[eval]

потому что вам надо прочитать про то как работает try except
вы "заглушили" ошибку, т.е. она из except не выходит, между except и end напишите Raise; и опять ее увидите.

[Dimonnik]

Я прекрастно понимаю принцип работы вызова исключения. В том то и дело что исключение не вызывается.... а все проходит в блоке между try ... except. А ошибка в принципе не понятна...

т.е простым языком выражаясь если говорим программе попытаться прочитать файл, она его читает, а вот если сразу в begin говорим читай, она упирается....