Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

Не могу открыть файл :-) 


madcap   (2002-03-29 00:09) [0]

Привет !
В FormCreate пишу:

cbHost.Items.LoadFromFile(ExtractFilePath( ParamStr( 0 ) )+"data\smtp.dat"

В Win9x/Me всё работает нормально, а в Win2000/XP выдается ошибка:
Не могу открыть файл ‘smtp.dar’ (по крайней мере, мне так сказали, потому что у меня нет возможности самому это наблюдать)
В чем может быть ошибка?



greenrul   (2002-03-29 00:21) [1]

а может надо "\data\smtp.dat"?



madcap   (2002-03-29 00:43) [2]

>greenrul
в начале я так и написал
но если вывести всю строку на экран, то получится что то вроде
С:\USER\\data\smtp.dat
и что странно в Win9x/Me это работает, а в win2000/XP нет



Song   (2002-03-29 07:09) [3]

Возможно, это особенность w2k
Проверяй на слэш последний символ:

IF ExtractFilePath(ParamStr(0))[Length(ExtractFilePath(ParamStr(0)))]="\" then cbHost.Items.LoadFromFile(ExtractFilePath( ParamStr( 0 ) )+"data\smtp.dat" else cbHost.Items.LoadFromFile(ExtractFilePath( ParamStr( 0 ) )+"\data\smtp.dat";



SB.John   (2002-03-29 08:06) [4]

А если вместо ParamStr(0) написать Application.ExeName ?



Song   (2002-03-29 08:11) [5]

Application.ExeName вернёт имя_запущенной_программы+путь, а ему нужен только путь.
Поэтому, если уж Вы решили блеснуть эрудицией, то тогда написали хотя бы так: ExtractFileDir(Application.ExeName)



Song   (2002-03-29 08:14) [6]

Извиняюсь, не понял сразу, что на что Вы хотите заменить.
Ему нравится ExtractFilePath(ParamStr(0)), что ж с этим поделаешь? :))




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.014 c
1-46331           Sterh                 2002-04-03 22:02  2002.04.15  
WarDialler


3-46244           kserg@ukr.net         2002-03-25 11:37  2002.04.15  
Как выполнить поиск 1-го вхождения и последующих без фильтрации?


1-46345           rem_                  2002-04-04 10:05  2002.04.15  
CoInitialize


1-46310           Дима2                 2002-04-01 17:15  2002.04.15  
Отдиление


1-46404           UnDISCOvery           2002-04-02 13:09  2002.04.15  
Интерактивный ReSize ! Как ???