Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

путь к файлу [D7, WinXP]


Альберт ©   (2006-11-28 11:26:00) 

Здравствуйте.
Написал скрипт для выкладки номенклатуры товаров из БД 1С в MySQL.
Сначала 1С выкладывает всю номенклатуру в текстовый файл, потом запускает прогу написаную на делфи, которая ПОСТОМ отправляет этот файл php скрипту в сеть интернет.
Проблема в следующем:
текстовый файл хранится в тойже директории что и экзешник делфи (D:\ROOT\cosmo\DB_Cosmo\DBCosmo\Ортлиб\выгрузка\), когда напрямую запускаешь данный экзешник (т.е. двойным щелчком мыши) все работает нормально. Но когда он запускается из 1С то выдает ошибку что не может найти текстовый файл...!
Почему-то путь к файлу прописывается не полностью.
Вместо строки -D:\ROOT\cosmo\DB_Cosmo\DBCosmo\Ортлиб\выгрузка\tovar.txt
выдает -
D:\ROOT\cosmo\DB_Cosmo\DBCosmo\Ортлиб\tovar.txt

В экзешнике путь определяю строкой:
path := ExtractFilePath(Application.ExeName);

и формирую путь к текстовому файлу:
put:=path+'\tovar.txt';

PS: В принцыпе я уже решил эту проблему, вместо абсолютного пути указываю относительный путь, т.е. просто 'tovar.txt'. Но было бы интересно узнать в чем тут проблема, вдруг в будущем пригодится.


Anatoly Podgoretsky   (2006-11-28 14:52:00) [1]

> Альберт  (28.11.2006 11:26:00)  [0]

Значит твой Application.ExeName и равен этому D:\ROOT\cosmo\DB_Cosmo\DBCosmo\Ортлиб\tovar.txt

В экзешнике путь определяю строкой:
path := ExtractFilePath(Application.ExeName);


ЮЮ   (2006-11-28 11:49:00) [2]

А где в действительности лежит ехе-шник?
a)  D:\ROOT\cosmo\DB_Cosmo\DBCosmo\Ортлиб\
b) D:\ROOT\cosmo\DB_Cosmo\DBCosmo\Ортлиб\выгрузка\


ЮЮ   (2006-11-28 11:42:00) [3]

ExtractFilePath уже содержит '\'
зачем ещё один put:=path+' \tovar.txt';?


Наверх

Титульная страница Поиск, карта сайта Написать письмо