Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.10.2006, 00:27   #1
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,608
По умолчанию как получить относительный путь?

перенесено со старого форума. сообщение от timself.

Как сделать чтобы OpenPictureDialog выдавал путь до картинки не относительно корня диска, а относительно папки с прграммой (для линковки картинок в HTML)?

перенесено со старого форума. сообщение от execom.

А в чём проблема так и пиши, ну например у тебя есть файл Index.html, а в каталоге с ним каталог DATA с ресурсом REC.JPG, так и пишем DATA\REC.JPG И всё!

перенесено со старого форума. сообщение от zetrix.

Можно взять полный путь твоей проги(1*) (только путь без имени файла) и полный путь из OpenDialog (2*), а потом сроку 1* удалить из строки 2*.
Вот пример:

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:string;
begin
s1:=OpenDialog1.FileName;
s2:=ExtractFileDir(application.ExeN ame);
If OpenDialog1.Execute and (pos(s2,s1)<>0) then Delete(s2,1,length(s1)+1);
end;

Результат (относительный путь) будет в переменной S2.

перенесено со старого форума. сообщение от Alar.

функция ExtractFileDir извлекает из полного имени файла название папки
функция ExtractFileDrive извлекает из полного имени файла название диска
функция ExtractFileExt извлекает из полного имени файла расширение файла
функция ExtractFileName извлекает из полного имени файла краткое имя файла
функция ExtractFilePath извлекает из полного имени файла название патча
Alar вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Из процесса получить полный путь к ехе файлу. Ozerich Общие вопросы Delphi 4 08.08.2008 12:12
Как отсечь имя файла и получить путь только к нему? Dux Общие вопросы Delphi 8 25.05.2008 20:24
Как получить полный путь к файлу, который был послан на принтер? Stilet Общие вопросы Delphi 7 29.02.2008 17:49
Функция CallWndProc. Получить путь к папке или файлу к которому преднозначено сообщение Irat Помощь студентам 1 16.02.2008 23:36
Как получить путь к БД XPAiN БД в Delphi 2 08.11.2007 08:51