|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
электроный учебник
привет форумчане! мне в колледже дали курсовой, надо сделать электронный учебник, на данный моомент все замечательно,
мне хотелось бы знать про компонент webbrowser! я указал пути к html файлам и все открывается,но допустим я поставил свой электроный учебник на другой компьютер, не будут ли сбиваться пути в компоненте webbrowser, если да то как сделать чтобы этого не было! procedure TForm1.ListBox1Click(Sender: TObject); begin if listbox1.ItemIndex = 0 then webbrowser1.Navigate('C:\электроный учебник\web.htm'); |
#2
|
||||
|
||||
Мне кажется, лучше было бы не статичный адрес сделать, а чтобы он был где-нибудь в настройках. Сейчас получается, что учебник ОБЯЗАТЕЛЬНО должен быть в C:\электронный учебник\web.htm. А если прописать в конфигах, или попросить при запуске открыть - то можно выбирать.
Что если у пользователя нет диска C:\ ? Еще можно сделать, чтобы он не от C:\ искал, а от текущей папки. И учебник будет распространяться как папка 'Учебник', в ней лежат программа и папка 'электронный учебник'. jmp $ ; Happy End! The Cake Is A Lie. |
#3
|
||||
|
||||
Цитата:
Думаю лучше заменить if на case, чтоб не было много if'ов: Код:
case listbox1.ItemIndex of 0:webbrowser1.Navigate('C:\электроный учебник\web.htm'); 1:... 2:... ... end; Код:
ExtractFilePath(ParamStr(0)); - эта функция вернет путь к папке с вашими файлами, а потом просто обращайтесь к этим файлам по их именам... Пример к вашему случаю: Код:
... webbrowser1.Navigate(ExtractFilePath(ParamStr(0)) + 'web.htm'); Помогаю за Спасибо |
#4
|
||||
|
||||
Еще вместо ParamStr(0) можно использовать Application.Exename.
jmp $ ; Happy End! The Cake Is A Lie. |
#5
|
||||
|
||||
Цитата:
Помогаю за Спасибо |
#6
|
||||
|
||||
Вот даже продемонстрирую:
Код:
property ExeName: string read GetExeName; function GetExeName: string; И вот эта функция: function TApplication.GetExeName: string; begin Result := ParamStr(0); end; Помогаю за Спасибо |
#7
|
|||
|
|||
как открывать файлы через opendialog, вот мой код: if opendialog1.Execute then webbrowser1.Navigate('C:\web.htm'); т.е кликаешь на кнопку и выбираешь html файл и он отображается в компоненте webbrowser
Последний раз редактировалось Nurlan, 31.10.2010 в 16:41. |
#8
|
||||
|
||||
Цитата:
Код:
if opendialog1.Execute then webbrowser1.Navigate(OpenDialog1.FileName); Помогаю за Спасибо |
#9
|
|||
|
|||
v1s2222 СПСИБО БольШОЕ
|
#10
|
|||
|
|||
ВСЕМ БОЛЬШОЕ СПАСИБО!!!!!!!
|