webbrowser не хочет открывать файлы

[bLab]

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

[grafgrial]

проверь код, у тебя наверное прописано через execut

webbrowser1.Navigate(extractfilepath(paramstr(0))+'Имя файла');//работает когда фаил там где сама программа

[russian-stalker]

Можно сделать примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var
   s:TStringList;
begin
   s := TStringList.Create;
   s.LoadFromFile('File');
   WebBrowser1.Navigate('about:blank');
   WebBrowser1.OleObject.Document.Write(s.Text);
   s.Free;
end;

[bLab]

grafgrial, спасибо, помогло, но пользователь сам должен выбирать файл, так что он может лежать где угодно
а как быть с мультимедия файлами?

[DIgorevich]

А при чем мультимедия к WebBrowser?
Чтобы выбирать кидаем на форму OpenDialog и кнопку по нажатию кнопки пишем:

if Opendialog1.execute then
  webbrowser1.Navigate(opendialog1.filename);

[bLab]

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

[grafgrial]

рисунки и текст должны напрямую открываться с помощью кода который предоставил DIgorevich, а вот музыка, видео нужно будет открывать через mediaplayer который в закладке system

[bLab]

всё, у меня была ошибка в коде выше.
Но сейчас не хочет bmp файлы открывать

[grafgrial]

по этому могу посоветовать
ввести в форму images1
только поставить на webbrowser1.ondownloadbegin

webbrowser1.visible:=false;
images1.left:=webbrowser1.left;
images1.top:=webbrowser1.top;
images1.height:=webbrowser1.height;
images1.width:=webbrowser1.width;
images1.visible:=true;

не обессудь, писал прямо здесь (полюбому ошибки)

[russian-stalker]

procedure TForm1.Button1Click(Sender: TObject);
begin
   if not OpenDialog1.Execute then
      exit;
   if LowerCase(ExtractFileExt(OpenDialog1.FileName)) = '.bmp' then
   begin
      WebBrowser1.Navigate('about:blank');
      WebBrowser1.OleObject.Document.Write('<img src='+OpenDialog1.FileName+'>');
   end
   else
      WebBrowser1.Navigate(OpenDialog1.FileName);
end;