--
Nikolay
NB> Ипользую компонент WebBrowser D5 для отображения html файлов
NB> Но под Windows XP периодически возникают зависания программы.
Скорее всего WebBrowser все же не виноват (IE же не виснет)
NB> Как с этим бороться ?
Ошибка в 17 строке.. пиши подробнее
NB> Или может быть есть какие то другие его аналоги без подобных проблем
NB> ?
NB> Или может под D6 или D7 данный компонент работает правильно ?
в пакете TurboPower Internet Professional есть браузер написанный на Delphi
(используется в The Bat!). Компоненты ищи на sf.net (по TurboPower).
With best regards, Alexander Diouzshev-Maltsev.
--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
Или может у тебя в программе что-то не так? ;-)
IE у тя под XP тоже зависает?
--
С уважением, Слава Сысолятин
email: sl...@magicbitsoft.com
email: var...@mail.ru
www: http://www.magicbitsoft.com
icq: 92854259
> NB> Ипользую компонент WebBrowser D5 для отображения html файлов
> NB> Hо под Windows XP периодически возникают зависания программы.
> Скорее всего WebBrowser все же не виноват (IE же не виснет)
Hе не виснет. Hо под win2000 на отлеьных машинах такое тоже наблюдалось
после замены библиотеки SHDOCVW.DLL
с машины где работет стало нормально. Подозреваю что дело в самом компонете.
> NB> Как с этим бороться ?
> Ошибка в 17 строке.. пиши подробнее
...
procedure TForm1.Openhtml(Link:string);
var OleLink,OleFlag:Variant;
begin
WebBrowser1.Stop;
WebBroser1.Visible:=true;
OleFlags:=navNoWriteToCache or navNoReadFromCache or navNoHistory ;
OleLink:=Link;
WebBrowser1.Navigate2(OleLink,OleFlags);
end;
....
вот и весь код связаный с TWebBroser.
> NB> Или может быть есть какие то другие его аналоги без подобных проблем
> NB> ?
> NB> Или может под D6 или D7 данный компонент работает правильно ?
>
> в пакете TurboPower Internet Professional есть браузер написанный на
Delphi
> (используется в The Bat!). Компоненты ищи на sf.net (по TurboPower).
Спасибо поищу.
Nikolay
NB>>> Как с этим бороться ?
>> Ошибка в 17 строке.. пиши подробнее
NB> ...
NB> procedure TForm1.Openhtml(Link:string);
NB> var OleLink,OleFlag:Variant;
NB> begin
NB> WebBrowser1.Stop;
NB> WebBroser1.Visible:=true;
NB> OleFlags:=navNoWriteToCache or navNoReadFromCache or navNoHistory
NB> ;
NB> OleLink:=Link;
NB> WebBrowser1.Navigate2(OleLink,OleFlags);
NB> end;
NB> ....
NB> вот и весь код связаный с TWebBroser.
У меня, к сожалению d5 нет, но в D6 заработало только так:
procedure TForm1.Openhtml(Link: string);
var OleLink,OleFlags: OleVariant;
begin
WebBrowser1.Stop;
WebBrowser1.Visible:=true;
OleFlags:=navNoWriteToCache or navNoReadFromCache or navNoHistory ;
OleLink:=Link;
WebBrowser1.Navigate2(OleLink, OleFlags);
end;
Попробуй написать вместо Variant OleVariant, глядишь заработает..
Если дело не в этом, то, похоже IE глючит.