 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
В TFileStream система подсовывает путь к системной, папке 
| danilsl |
|
||||
|
Шустрый  Профиль Группа: Участник Сообщений: 78 Регистрация: 15.3.2006 Репутация: нет Всего: нет |
Привет всем.
Пишу системный сервис. При попытке открыть файл настроек сервер падает, ничего не сообщив, кроме того что "некоторые службы автоматически завершают работу, если им нечего делать". При этом в журнале приложений фиксируется такая ошибка
То есть получается, что система подсовывает к началу моего пути "C:\WINDOWS\system32\". Как с этим бороться? Ошибка происходит в строке
|
||||
|
|||||
Загрузка ...
| Sunvas |
|
|||
 Соль и сахар Профиль Группа: Участник Сообщений: 3388 Регистрация: 12.3.2006 Где: Тосно Репутация: 28 Всего: 89 |
danilsl, думаю, просто у тебя в CmdLine ничего нет, вот система и ищет файлы, которые указаны в перменных средах.
-------------------- Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их. |
|||
|
||||
| danilsl |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 78 Регистрация: 15.3.2006 Репутация: нет Всего: нет |
Система говорит, что не найден файл "C:\WINDOWS\system32\"D:\Users\Danil\Borland Studio Projects\ClubDaemon\Server\etc\admins.txt". А путь "D:\Users\Danil\Borland Studio Projects\ClubDaemon\Server\" выдаёт какраз функция ExtractFilePath(CmdLine). Соответственно в CmdLine находится "D:\Users\Danil\Borland Studio Projects\ClubDaemon\Server\CDServer.exe".
Я посмотрел, как реализован TFileStream в Classes.pas. Там нет проверок на тип приложения. Этот класс не дописывает никаких путей. По-моему системную папку приписывает виндовское API. Вот только зачем? В конце концов я задаю абсолютный путь. Кстати, если бы в CmdLine ничего не было, отсчёт каталогов пошёл бы от текущего каталога, который мне кстати и нужен. |
|||
|
||||
| danilsl |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 78 Регистрация: 15.3.2006 Репутация: нет Всего: нет |
Ни у кого никаких мыслей?
|
|||
|
||||
| pseud |
|
|||
 Экспёрт Тыдыщ Профиль Группа: Завсегдатай Сообщений: 1175 Регистрация: 18.5.2007 Где: Минск, Беларусь Репутация: 10 Всего: 40 |
у меня
проходит без ошибок думаю у тебя в CmdLine что-то не то -------------------- Испытание чужого терпения можно считать успешным, если оно лопнуло... |
|||
|
||||
| Sunvas |
|
|||
|
Соль и сахар Профиль Группа: Участник Сообщений: 3388 Регистрация: 12.3.2006 Где: Тосно Репутация: 28 Всего: 89 |
danilsl, возьми путь в кавычки и отпишись.
-------------------- Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их. |
|||
|
||||
| danilsl |
|
||||
|
Шустрый Профиль Группа: Участник Сообщений: 78 Регистрация: 15.3.2006 Репутация: нет Всего: нет |
Ну если писать VCL Forms Application, то и у меня всё нормально проходит. А я пишу Service Application. Там даже нету переменной Application.ExeName |
||||
|
|||||
| bems |
|
|||
 Эксперт Профиль Группа: Комодератор Сообщений: 3400 Регистрация: 5.1.2006 Репутация: 31 Всего: 88 |
ну зато есть ParamStr(0) -------------------- Обижено школьников: 8 |
|||
|
||||
| lukas |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 771 Регистрация: 23.2.2007 Репутация: 3 Всего: 15 |
CmdLine - функцию в студию...
 возможно как раз таки в ней и ошибка... -------------------- http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi. |
|||
|
||||
| danilsl |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 78 Регистрация: 15.3.2006 Репутация: нет Всего: нет |
Блин, действительно, CmdLine. Она путь в кавычках возвращает, со всеми вытекающими. А про ParamStr(0) я чёт не подумал. Всем спасибо
|
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0506 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |