Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.10.2011, 18:24
Pcrepair
 
Сообщения: n/a
По умолчанию TWebBrowser обрабатывает JAVA с ошибкой

Добрый день!
Есть простейший код браузера с использованием TWebBrowser
Код:
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, OleCtrls, SHDocVw, StdCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
  _URL, Flags, TargetFrameName, PostData, Headers: Olevariant;
begin
  _URL := Edit1.Text;
  Flags := 0; TargetFrameName := 0; Postdata := 0; Headers := 0;
  EmptyParam;
  WebBrowser1.Navigate2(_URL, Flags, TargetFrameName, PostData, Headers);
end;
на простых страницах все работает, но на некоторых страницах, где JAVA видимо слишком сложный браузер выдает ошибки
Пример
forums.kuban.ru при загрузке начальной страницы выдает: Ошибка 'loginform' есть null или не является объектом
delphiexpert.ru/view_download.php?id=112 через несколько секунд срабатывает JAVA-скрипт и уже программа зависает с выводом ошибки: Invalid floating point operation

ИЕ8 работает нормально, в чем может быть проблема?
Ответить с цитированием
  #2  
Старый 02.10.2011, 19:55
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию

TWebBrawser же старенький вот и ошибки
Используйте браузер с EmbededWB там у него можно в свойствах поставить чтобы он не ругался на ошибки Java
Ответить с цитированием
  #3  
Старый 02.10.2011, 20:04
Pcrepair
 
Сообщения: n/a
По умолчанию

вообще есть более сложная версия обозревателя на базе TWebBrowser, и она все нормально обрабатывает, но там как то непонятно
Код:
procedure TfrmMyBrowser.btnGoClick(Sender: TObject);
begin
  if edURL.Text <> '' then
  begin
    lvEventLog.Clear;
    WB_Navigate(GetCurrentWB, edURL.Text);
     // set focus to webbrowser document
    WB_SetFocus(GetCurrentWB);
  end;
end;
это маленький кусочек, относящийся к кнопке "загрузить"
Ответить с цитированием
  #4  
Старый 02.10.2011, 20:48
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию

не понятно, что еще за более крутая версия? используй с палитры компонентов EmbededWB он такой же
Ответить с цитированием
  #5  
Старый 02.10.2011, 22:27
Pcrepair
 
Сообщения: n/a
По умолчанию

крутая версия отсюда
delphiexpert.ru/view_download.php?id=112
Ответить с цитированием
  #6  
Старый 02.10.2011, 23:20
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию

я давненько копался с этим и что то взял от туда а чтото с демки EmbededWB
у EmbededWB достаточно в событии ошибки скрипта прописать
Код:
   Showdialog:=false;//не показываем ошибку с выбором продолжения сценария
   ContinueScript := true;//жмем дальше

да что там не понятно кстати GetCurrentWB это браузер активной вкладки
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:21.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025