Проблема при создании демона(сервиса) в Lazarus

[gvido]

Народ, Приветки Всем!!! Я вернулся с Глупым вопросом по службе в Windows.
Можно ли программно заполнить- изменить поле DaemonDef.Description? Если можно, то как?
Смысл простой - если вписать дискрипшин на этапе проектирования в среде по русски, то как всегда в описании службы получим кракозяблы.
Единственно, как получилось вывести русский текст в описании сервиса - правка lfm вне среды и последующая загрузка проекта.

[and]

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

Описание - не самая значимая проблема. Те же грабли будут и с названием сервиса, и с аргументами - короче, везде, где идёт обмен строками с WinAPI.
Я решал правкой daemonapp.inc - в частности, все строки в методе TCustomDaemonApplication.SysInstallDaemon. Например:

Код: Выделить всё

      SD:=DD.Description;
      SetCodePage(rawByteString(sd),GetACP,true); //вставить эту строку
      D.lpDescription:=Pchar(SD);
      ChangeServiceConfig2(SV,SERVICE_CONFIG_DESCRIPTION,@D);

Всё не доходят руки оформить всё это как положено и выложить на bugs.freepascal.org :-(

[gvido]

Спасибо.
Я редко лезу в исходники с правкой. Иногда приходится.
Но тут похоже выбор небольшой.
Еще раз спасибо!!!

[and]

Я редко лезу в исходники с правкой. Иногда приходится.
Но тут похоже выбор небольшой. :)

Я не любил править сырцы в Delphi. Всегда предпочитал обходные манёвры: наследование, хак-классы и прочие костыли.
Но Lazarus и FPC - дело другое. Это открытые проекты, правки (и их публикация, конечно) - процесс не просто допустимый, но и "богоугодный" :-) Я пользуюсь продуктом сообщества, помочь в меру своих сил развитию продукта - просто-напросто правильно.
Поэтому я стараюсь не просто отрепортить о найденном баге или отсутствующей фиче, а приложить патч. К сожалению, не всегда получается :-(
 
Если дальше от рассуждений и ближе к сабжу. Проблема вылезла при переходе к строкам с кодовой страницей. "Демонический" пакет активно работает с pChar'ами. В них кодовой страницы по понятным причинам нет. Вот RTL и считает, что это строка со страницей по умолчанию - т.е. UTF-8. Поэтому приходится директивно указывать, что это ACP (для "входящих" строк) или перекодировать в ACP (для "исходящих").

[gvido]

Что-то вставка не прокатила... Сервис пишу в lazarus 1.6 под windows 10 x64 ver 1607 rus.
В win 10 заметил, что не всегда срабатывает корректно перекодировка utf8 в 1251 через utf8tosys. Напоролся на это с перекодировкой путей с кириллицей. Выкрутился через utf8toWINCP.

По сервису еще вопрос. В примерах что в инете навалом и в том что идет с лазарусом, при установке скомпилированного сервиса можно указывать расположение конфигурационного файла сервиса (service.exe --install --config=d:\2\service.cfg). Сервис устанавливается без проблем, но опускается параметр пути к конфигурационному файлу.

Это тоже недопил в daemonapp.inc?

[and]

не всегда срабатывает корректно перекодировка utf8 в 1251 через utf8tosys. Напоролся на это с перекодировкой путей с кириллицей. Выкрутился через utf8toWINCP

Я поэтому и пользуюсь в последнее время в основном SetCodePage. Она позволяет разруливать даже ситуации, когда страница исходной строки выставлена неверно: первый вызов с false в последнем параметре, чтобы правильно выставить страницу, второй - с true для перекодирования.

Про конфиг - не знаю, не пробовал.

[Лекс Айрин]

В win 10 заметил, что не всегда срабатывает корректно перекодировка utf8 в 1251 через utf8tosys.

Вообще-то, для этого есть функции работающие с путями прямо в UTF8.

[gvido]

Вообще-то, для этого есть функции работающие с путями прямо в UTF8

Я тоже на это надеялся. И когда передавал utf8 в качестве пути в мониторинга файловой системы, то только принудительная перекодировка помогла, к сожалению.

Добавлено спустя 1 час 20 минут 3 секунды:

не всегда срабатывает корректно перекодировка utf8 в 1251 через utf8tosys. Напоролся на это с перекодировкой путей с кириллицей. Выкрутился через utf8toWINCP

Я поэтому и пользуюсь в последнее время в основном SetCodePage. Она позволяет разруливать даже ситуации, когда страница исходной строки выставлена неверно: первый вызов с false в последнем параметре, чтобы правильно выставить страницу, второй - с true для перекодирования.

Про конфиг - не знаю, не пробовал.

Извиняюсь, дико!!! Вставка сработала. Я, валенок, забыл снести ppu lazdaemon.

[Лекс Айрин]

Я тоже на это надеялся.

Надеяться мало -- их еще использовать надо. Если, конечно, пути берутся от самой системы, а не из внешней dll.

[gvido]

Я тоже на это надеялся.

Надеяться мало -- их еще использовать надо. Если, конечно, пути берутся от самой системы, а не из внешней dll.

В моем случае они передаются в функцию из cfg файла в UTF8 кодировке или с текстового поля формы в функцию, которая ожидает Pchar.

[Лекс Айрин]

значит, никаких проблем не должно быть.
модуль LazFileUtils:

Код: Выделить всё

function FileExistsUTF8(const Filename: string): boolean;
function FileAgeUTF8(const FileName: string): Longint;
function DirectoryExistsUTF8(const Directory: string): Boolean;
function ExpandFileNameUTF8(const FileName: string; {const} BaseDir: string = ''): string;
function FindFirstUTF8(const Path: string; Attr: Longint; out Rslt: TSearchRec): Longint;
function FindNextUTF8(var Rslt: TSearchRec): Longint;
procedure FindCloseUTF8(var F: TSearchrec); inline;
function FileSetDateUTF8(const FileName: String; Age: Longint): Longint;
function FileGetAttrUTF8(const FileName: String): Longint;
function FileSetAttrUTF8(const Filename: String; Attr: longint): Longint;
function DeleteFileUTF8(const FileName: String): Boolean;
function RenameFileUTF8(const OldName, NewName: String): Boolean;
function FileSearchUTF8(const Name, DirList : String; ImplicitCurrentDir : Boolean = True): String;
function FileIsReadOnlyUTF8(const FileName: String): Boolean;
function GetCurrentDirUTF8: String;
function SetCurrentDirUTF8(const NewDir: String): Boolean;
function CreateDirUTF8(const NewDir: String): Boolean;
function RemoveDirUTF8(const Dir: String): Boolean;
function ForceDirectoriesUTF8(const Dir: string): Boolean; 
...

[gvido]

Вот это без UTF8toWinCP не понимала:

Код: Выделить всё

HandleChange := CreateFile(PChar(UTF8ToWinCP(FFolderPath)),{FILE_LIST_DIRECTORY}GENERIC_READ,
    FILE_SHARE_READ or FILE_SHARE_DELETE or FILE_SHARE_WRITE,
    nil,
    OPEN_EXISTING,
    FILE_FLAG_BACKUP_SEMANTICS or
    FILE_FLAG_OVERLAPPED, 0);


[Лекс Айрин]

gvido

там же...

Код: Выделить всё

function FileCreateUTF8(Const FileName : string) : THandle; overload;
function FileCreateUTF8(Const FileName : string; Rights: Cardinal) : THandle; overload;
Function FileCreateUtf8(Const FileName : String; ShareMode : Integer; Rights : Cardinal) : THandle; overload;

Добавлено спустя 1 минуту 43 секунды:
судя по всему, старая функция создания файла осталась неизменной еще с досовских времен... вместе с соглашениями о кодировках и пр...

[Alex2013]

Интересно, а имеет-ли смысл упрятать веб-сервер в демона или сервис
Чем вообще отличаются сервисы от обычной программы умеющей сворачиваться в трей ?

[gvido]

имеет, смыл, если нужно чтобы работало без входа пользователя в систему.
У меня как раз такая задача. Нужно мониторить папки на создание файлов. Сначала думал через findfirst сделать, а потом решил, что ловить событие файловой системы будет лучше.