Ошибка ChDir

← →
Сергеев Ваня (2013-10-21 18:43) [0]

Добрый вечер! Подскажите в чем может быть дело? Использую в программе команду ChDir для перехода в подпапку программы в ее же директории. Папка существует,раньше все работало нормально,а сегодня стала вылетать ошибка 103 Покопавшись в проге нашел что именно на строке ChDir("Docs"); Ничего не менял в коде,атрибуты папки тоже не изменились. В чем дело не пойму.... Дельфи 2010

← →
Сергеев Ваня (2013-10-21 18:50) [1]

Менял сетевые настройки на своем ПК, создавал дом.группу,общие папки. Могло это как-то повлиять?

← →
RWolf © (2013-10-21 18:55) [2]

Может, такого каталога нет в текущей директории.

← →
Сергеев Ваня (2013-10-21 18:55) [3]

Если использовать команду SetCurrentDir то все впорядке и ошибки нет Мистика... В чем может было? Почему раньше работало с ChDir? У меня всюду в программе ChDir, неохота теперь менять на SetCurrentDir поэтому хочу узнать причину ошибки,может смогу исправить.

← →
Сергеев Ваня (2013-10-21 19:02) [4]

Каталог есть,раньше все работало. Каталог не удалял, теперь если ChDir вылетает ошибка, если SetCurrentDir все работает...

← →
Сергеев Ваня (2013-10-21 19:20) [5]

Еще такой прикол, в другом месте программы ChDir работает нормально в точно такой же процедуре с той же папкой. Мистика...

← →
SergP © (2013-10-21 19:32) [6]

Так до ChDir проверь какая у тебя текущая папка... и откуда она взялась...

Может ты с ярлыка запускаешь программу... А там в свойствах кто-то поменнял текущую папку....

← →
[ВладОшин] © (2013-10-21 19:36) [7]

> Если использовать команду SetCurrentDir

а как именно было, и как переписал?

Просто и то, и то используют одно и тоже
Только одна возбуждает ошибку, вторая нет

← →
Smile (2013-10-21 19:37) [8]

{$I-}
{$I+}
тебе в помощь :)

← →
SergP © (2013-10-21 19:37) [9]

Ну или своими ChDir ты может ранее ушел с нужной папки....

← →
Сергеев Ваня (2013-10-21 19:40) [10]

Прогу запускаю в самой Дельфи, через ShowMessage смотрел перед ChDir текущая папка - папка проекта. В ней есть подпапка Docs в которую и должна перейти программа с помощью СhDir, но при выполнении ChDir("Docs") происходи ошибка. Если выполнять переход SetCurrentDir то программа переходит в Docs без ошибок Первый раз такой прикол вижу. Еще начались чудеса с Rewrite(F) Тоже при выполнении стала вылетать ошибка в такой процедуре:
var
F:TextFile;
begin
AssignFile(F,"ssss.lst");
Rewrite(F);
Write(F,"111");
CloseFile(F);
end;
Хотя тоже до сегодня все работало...

← →
Сергеев Ваня (2013-10-21 19:41) [11]

Было ChDir стало SetCurrentDir, рабочая папка та что нужно

← →
brother © (2013-10-21 19:41) [12]

ты с ярлыка запускаешь?
имхо текущая папка задана не верно...

← →
SergP © (2013-10-21 19:51) [13]

Может попробовать так:
initialization SetCurrentDir(ExtractFileDir(paramstr(0)));
?

← →
Сергеев Ваня (2013-10-21 20:20) [14]

Запускаю из среды разработки программу.

← →
Сергеев Ваня (2013-10-21 21:42) [15]

ChDir поборол SetCurrentDir-ом,а Rewrite(F) сменил TStringList Нет времени долго разбираться, может потом еще гляну... Интересно все-таки что ему жить мешало? :)

← →
MonoLife © (2013-10-22 04:30) [16]

смущает > ChDir("Docs");
почему не полный путь? И если Docs в каталоге программы, то хоть Extractpath(Application.Exename)+"Docs" использовать.

← →
MonoLife © (2013-10-22 04:30) [17]

← →
[ВладОшин] © (2013-10-22 10:05) [18]

не читатель?

> и то, и то используют одно и тоже
> Только одна возбуждает ошибку, вторая нет

procedure ChDir(P: PChar);
begin
{$IFDEF MSWINDOWS}
if not SetCurrentDirectory(P) then
{$ENDIF}
{$IFDEF LINUX}
if __chdir(P) <> 0 then
{$ENDIF}
InOutError;
end;

← →
[ВладОшин] © (2013-10-22 10:07) [19]

> Еще начались чудеса с Rewrite(F) Тоже при выполнении стала
> вылетать ошибка

Секретная?

← →
Smile (2013-10-22 10:09) [20]

Для кого пишется программа?

> Запускаю из среды разработки программу.

Неужели пользователь будет запускать твою программу из среды разработки?
:)

← →
Сергеев Ваня (2013-10-22 10:47) [21]

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

> длинный текст,писать лень. Да ну их эти ошибки,работает
> по другому,пусть работает,потом буду разбираться

а зря!

← →
Сергеев Ваня (2013-10-22 11:53) [23]

Нет времени пока разбираться, думал тут какую идею подкинут... Похоже ни у кого такого не было :(

> думал тут какую идею подкинут

ты хотел не идею, а чтоб за тебя все сделали...

точно не читатель :)

← →
Сергеев Ваня (2013-10-22 15:47) [27]

Благодарю всех за полезные советы!

← →
Медвешонок Порошок (2013-10-22 16:36) [28]

с той же папкой. Мистика...

Ага мистика.
И зовут эту Мистику ofNoChaneDir у open/save диалога

← →
Smile (2013-10-22 16:40) [29]

Неужели не устали отвечать нубу, не читающему ответы и рекомендации?
Я устал.
:(

> Я устал.

я ухожу %)

Ошибка ChDir Найти похожие ветки