0

Есть веб-браузер на форме, в которой нужно открыть файл html, но он открывается, только если прописывать весь путь. Можно как-то сделать, чтоб не писать путь?

wb1.navigate('D:\project\1.html');
а надо что-то типа:
wb1.navigate('1.html');

Файл лежит в папке с проектом, но все равно не открывается.

1
  • @hndgrbfv, Если вам дан исчерпывающий ответ, отметьте его как верный (нажмите на галку рядом с выбранным ответом). 21 дек 2014 в 15:07

6 ответов 6

3
wb1.navigate(ExpandFileName('1.html'));

Все намного проще. Иногда полезно в справку заглядывать. В uses добавьте модуль SysUtils.

2

Можно написать вспомогательную процедуру, типа:

Procedure OpenLocalWEB(File:String='1.html');
begin
  wb1.navigate(ExtractFilePath(ParamStr(0)) + File');
end;

Использовать так:

   procedure TForm1.Button1Click(Sender: TObject);
    begin
      OpenLocalWEB('1.html');
    end;
1

Определите переменную, содержащую путь от корня (d:\project1) и объединяйте ее с 1.html

Вызов будет типа wb1.navigate(path_var + '1.html'); извините за синтаксис, не помню как делается конкатенация строк в Delphi.

0

Если я ничего не путаю, существует файл конфигурации, где можно задать базовую директорию. Пропишите в нем соответствующую директорию, и будет все работать.

0

Wb1.navigate(str+'\1 htm'); с htm или html сами смотрите как он у вас сохраняет в полном формате или нет.

-1
WebBrowser1.Navigate(GetCurrentDir+ '/1.mht'); 

Главное чтобы док лежал с проектом в одной папке

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.