Как открыть html без полного пути?

Рейтинг: 0Ответов: 3Опубликовано: 20.12.2014

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

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

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

html delphi-7
Источник: Stack Overflow на русском

Ответы

▲ 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.