Неправильное отображение страницы в TWebBrowser

← →
..::KraN::.. © (2007-04-27 19:03) [0]

Здравствуйте, у меня есть такой код:
procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string); var sl: TStringList; ms: TMemoryStream; begin WebBrowser.Navigate("about:blank"); while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do Application.ProcessMessages; if Assigned(WebBrowser.Document) then begin sl := TStringList.Create; try ms := TMemoryStream.Create; try sl.Text := HTMLCode; sl.SaveToStream(ms); ms.Seek(0, 0); (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)); finally ms.Free; end; finally sl.Free; end; end; end;

Он служит для загрузки страницы в TWebBrowser, не сохраняя её. Но когда я делаю так:
procedure TForm1.TabSheet2Show(Sender: TObject); begin WB_LoadHTML(WebBrowser1, Synedit1.text); end;
страница отображается, но вместо того, чтобы открыть файлы *.exe, *.rar и др. они не загружаются , а отображается текст вида ..\MyFolder\Myfile.exe

← →
Johnmen © (2007-04-27 22:42) [1]

> но вместо того, чтобы открыть файлы *.exe, *.rar и др. они
> не загружаются

Что за файлы *.exe, *.rar и др.?
Что значит "открыть файлы *.exe, *.rar и др."?
Куда и зачем вдруг они должны "загружатся"?

> Johnmen © (27.04.07 22:42) [1]

> Что за файлы *.exe, *.rar и др.?

Обычные исполняемые и архивные файлы.

> Что значит "открыть файлы *.exe, *.rar и др."?

Как объяснить... У меня есть HTML страница с каталогом программ, при нажатии на ссылку, которая ведёт на файл, должно открываться окно загрузки файла, а оно не открывается, вместо него - текст ссылки :(((((
> Куда и зачем вдруг они должны "загружатся"?

Никуда они не должны загружаться, просто должно вылазить окно загрузки\открытия их. А зачем, просто надо... :))))))

Неправильное отображение страницы в TWebBrowser Найти похожие ветки