Как не прописывать весь путь?

Aks67rus · #1 04.03.2014, 19:41

Здравствуйте, подскажите пожалуйста...
1.Имею программу типо электронной книги, с отображением набранного текста в блокноте.html и отображаю его в webbrowser.

Проблема в том, что при переносе программы на другие ПК и носители, путь к файлам *.html меняются и программа не работает(не отображает html).
Как прописать путь, или что сделать что бы она отображалась везде вне зависимости на каком она диске, но файлы в одной папке с программой.

2.И ещё такой вопрос, возможно ли записать в конечный *.exe программы все файлы, буквально все! А это картинки к которым обращается блокнот.html и сам блокнот, и при этом что бы всё работало. Возможно?

NumLock · #2 04.03.2014, 19:51

1. IncludeTrailingPathDelimiter(ExtractFilePath(Appli cation.ExeName))
2. ресурсы

Aks67rus · #3 04.03.2014, 20:09

И как пользоваться этим кодом?
Если у меня к приме было так

Код:

procedure TForm1.Label2Click(Sender: TObject);
begin
webBrowser1.Navigate('C:\Users\Trade\Documents\Borland Studio Projects\Êóðñîâîé\page1.html');
end;

NumLock · #4 04.03.2014, 20:16

посмотри в файле справки функции IncludeTrailingPathDelimiter, ExtractFilePath и свойство ExeName

Alegun · #5 04.03.2014, 20:15

PChar(extractFilePath(Paramstr(0)) + '\page1.html')

Alegun · #6 04.03.2014, 21:09

Цитата:

Сообщение от Aks67rus

...возможно ли записать в конечный *.exe программы все файлы, буквально все! А это картинки к которым обращается блокнот.html...

Сперва немного надо доработать саму страничку, напр. если она содержит рисунок по тегу <img src="about.jpg" ...>, его нужно подправить так чтоб img src равнялся имени, которое будет в ресурсах, напр. <img src="ABOUT_JPG" ...> , конечный результат

Код HTML:

Название: About.html, Содержимое:
<HTML><HEAD><TITLE>Супер прога лайт</TITLE></HEAD><BODY>
О программе<br>
<img src="ABOUT_JPG" width=150 height=70 border=0 alt="">
</BODY></HTML>

дальше нужно создать новый скрипт ресурсов из обычного текстового файла с названием напр. abt.rc и с содержимым

Цитата:

ABOUT RT_HTML "C:\About.html"
ABOUT_JPG JPEG "C:\about.jpg"

потом откомпилировать ресурс - из коммандной строки вызвать на исполнение - BRCC32 abt.rc, осталось в юните подключить получившейся ресурс, и в конце всего этого кашмара загрузить из него страничку в браузер

Код:

...{$R ABT.RES}
...

webBrowser1.Navigate('res://' + Application.ExeName + '/ABOUT');
...

вроде всё

Aks67rus · #7 04.03.2014, 21:50

Что то не так? Или что то не то делаю?

Alegun · #8 04.03.2014, 22:00

Пути до файлов просмотрите, не указаны (я через волков коммандер запускаю компилятор ресурсов, или батфайлом)

Aks67rus · #9 04.03.2014, 22:17

Создал, а как в юните подключить получившейся ресурс?

Alegun · #10 04.03.2014, 22:23

Добавьте после

Код:

{$R *.dfm}
{$R ABT.RES}

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
Aks67rus (05.03.2014)