[Nurlan]

привет форумчане! мне в колледже дали курсовой, надо сделать электронный учебник, на данный моомент все замечательно,
мне хотелось бы знать про компонент webbrowser! я указал пути к html файлам и все открывается,но допустим я поставил свой электроный учебник на другой компьютер, не будут ли сбиваться пути в компоненте webbrowser, если да то как сделать чтобы этого не было!

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if listbox1.ItemIndex = 0 then
webbrowser1.Navigate('C:\электроный учебник\web.htm');

[Bargest]

Мне кажется, лучше было бы не статичный адрес сделать, а чтобы он был где-нибудь в настройках. Сейчас получается, что учебник ОБЯЗАТЕЛЬНО должен быть в C:\электронный учебник\web.htm. А если прописать в конфигах, или попросить при запуске открыть - то можно выбирать.
Что если у пользователя нет диска C:\ ?
Еще можно сделать, чтобы он не от C:\ искал, а от текущей папки. И учебник будет распространяться как папка 'Учебник', в ней лежат программа и папка 'электронный учебник'.

[v1s2222]

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

if listbox1.ItemIndex = 0 then
webbrowser1.Navigate('C:\электроный учебник\web.htm');

Думаю лучше заменить if на case, чтоб не было много if'ов:

Код:

1 2 3 4 5 6

case listbox1.ItemIndex of 0:webbrowser1.Navigate('C:\электроный учебник\web.htm'); 1:... 2:... ... end;

На счет пути: Вы все файлы (html) должны хранить рядом с вашей программой (или не посредственной в ней самой). Ну если будете хранить допустим все html файлы в папке с вашей программой, то просто пишите так:

Код:

1	ExtractFilePath(ParamStr(0)); - эта функция вернет путь к папке с вашими файлами, а потом просто обращайтесь к этим файлам по их именам...

Пример к вашему случаю:

Код:

1 2	... webbrowser1.Navigate(ExtractFilePath(ParamStr(0)) + 'web.htm');

[Bargest]

Еще вместо ParamStr(0) можно использовать Application.Exename.

[v1s2222]

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

Еще вместо ParamStr(0) можно использовать Application.Exename.

А есть разница? Вообще то функция Application.EXEName берет свое значение как раз из нулевого параметра программы, то бишь из ParamStr(0).

[v1s2222]

Вот даже продемонстрирую:

Код:

1 2 3 4 5 6 7 8

property ExeName: string read <font color="Red">GetExeName</font>;       function <font color="Red">GetExeName</font>: string; И вот эта функция: function TApplication.GetExeName: string; begin   Result := <font color="Red">ParamStr(0)</font>; end;

[Nurlan]

как открывать файлы через opendialog, вот мой код: if opendialog1.Execute then webbrowser1.Navigate('C:\web.htm'); т.е кликаешь на кнопку и выбираешь html файл и он отображается в компоненте webbrowser

[v1s2222]

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

как открывать файлы через opendialog, вот мой код: if opendialog1.Execute then webbrowser1.Navigate('C:\web.htm'); т.е кликаешь на кнопку и выбираешь html файл и он отображается в компоненте webbrowser

Код:

1	if opendialog1.Execute then webbrowser1.Navigate(OpenDialog1.FileName);

[Nurlan]

v1s2222 СПСИБО БольШОЕ

[Nurlan]

ВСЕМ БОЛЬШОЕ СПАСИБО!!!!!!!