procedure LoadBlankDoc(WB: TWebBrowser);
begin
WB.Navigate('about :blank', EmptyParam, EmptyParam, EmptyParam, EmptyParam);
while WB.ReadyState <> READYSTATE_COMPLETE do
begin
Application.ProcessMessages;
Sleep(0);
end;
end;
procedure CheckDocReady(WB: TWebBrowser);
begin
if not Assigned(WB.Document) then
LoadBlankDoc(WB);
end;
procedure LoadDocFromStream(WB: TWebBrowser; Stream: TStream);
begin
CheckDocReady(WB);
(WB.Document as IPersistStreamInit).Load(TStreamAdapter.Create(Stream));
end;
проблемы с TWebBrowser+stream
Здравствуйте, Уважаемые!
Столкнулся со следующей проблемой.
Создаю exe-файл из html файлов с дальнейшим их отображением.
Html файлы гружу стримом в TWebBrowser, на диск не извлекаю.
Использую следующий код:
Всё отлично, только проблема в том, что к примеру если в index.html есть ссылка на страницу 1.html (обе страницы присутствуют в созданном exe-файле) то при клике на ссылку, она в WebBrowser не отображается.
А если ее просто грузить стримом то все нормально.
Подскажите пожалуйста как решить данную проблему.
Спасибо. С уважением
Столкнулся со следующей проблемой.
Создаю exe-файл из html файлов с дальнейшим их отображением.
Html файлы гружу стримом в TWebBrowser, на диск не извлекаю.
Использую следующий код:
Код:
Всё отлично, только проблема в том, что к примеру если в index.html есть ссылка на страницу 1.html (обе страницы присутствуют в созданном exe-файле) то при клике на ссылку, она в WebBrowser не отображается.
А если ее просто грузить стримом то все нормально.
Подскажите пожалуйста как решить данную проблему.
Спасибо. С уважением
Перехватывай клик по ссылке в TWebBrowser и загружай нужною страницу потоком.
А вообще, чем такое решение не устроило?
А вообще, чем такое решение не устроило?
у него есть событие специальное.
Цитата: alex-kniaz
у него есть событие специальное.
Спасибо. Разобрался.
Тему можно закрывать