Скачать: CL | DM;

Неправильное отображение страницы в 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 и др."?
Куда и зачем вдруг они должны "загружатся"?

---

← →
..::KraN::.. ©   (2007-04-28 13:15) [2]

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


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

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

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c