ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Устарел TWebBrowser?
5 сообщений из 5, страница 1 из 1
Устарел TWebBrowser?
    #40131927
VictorMBH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VictorMBH
Гость
Пишу в Delphi 7 программу, которая должна открыть сайт и взять с него текст.

Использую для отображения сайта компонент TWebBrowser. Большинство сайтов открывает без проблем, но при открытии сайта https://www.olx.ua/nedvizhimost/ при попытке перейти на страницу продаваемого обьекта сайт выдаёт такой вот текст: "Поточная версия вашего браузера устарела. Чтобы продолжить пользоваться OLX, откройте настройки браузера и обновите его до последней версии."

Версию IE указываю на FormShow:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
  Reg:=TRegistry.Create;

   REG.RootKey:=HKEY_LOCAL_MACHINE;
   Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION',True);
    try
     IEVersion:=Reg.ReadInteger('RielterBrowser.exe');
     if(IEVersion<>11001)then
      Reg.WriteInteger('RielterBrowser.exe',11001);
    except
     try
      Reg.WriteInteger('RielterBrowser.exe',11001);
     except
      on E:Exception do
      ShowMessage('Ошибка открытия реестра: '+E.Message);
     end;
    end;
  Reg.CloseKey();


Что делать?

Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
05.02.2022, 19:25
| Ответить | Цитировать | Написать  
Устарел TWebBrowser?
    #40131936
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Если сайт тебе и при открытии самим 11-м IE такое говорит - отказываться от IE.

Прилетела птица обломинго, и MS зарубил очередную свою технологию. Internet Explorer, причем давно.
...
Рейтинг: 0 / 0
05.02.2022, 20:11
| Ответить | Цитировать | Написать  
Устарел TWebBrowser?
    #40131937
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Теперь в тренде либо встраивать в ПО Chromium (для которого вместе с ПО надо тащить библиотек мегов так на 100+), либо Microsoft Edge (который и есть хром, с вывеской от MS), который есть в Win10/11 (но в более ранних - надо его отдельно качать), и для которого в дельфях есть новый компонент TEdgeBrowser.
...
Рейтинг: 0 / 0
05.02.2022, 20:13
| Ответить | Цитировать | Написать  
Устарел TWebBrowser?
    #40131990
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
rgreat
Теперь в тренде либо встраивать в ПО Chromium либо TEdgeBrowser.
Для "открыть сайт и взять с него текст" ничего встраивать (тем более браузеры) не нужно.
...
Рейтинг: 0 / 0
06.02.2022, 09:49
| Ответить | Цитировать | Написать  
Устарел TWebBrowser?
    #40132024
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Гаджимурадов Рустам
Для "открыть сайт и взять с него текст" ничего встраивать (тем более браузеры) не нужно.
Я не уверен, что на этом сайте нет защиты от обычного GET запроса. Там страница может формироваться на JS

Upd: похоже, что так и есть
...
Рейтинг: 0 / 0
06.02.2022, 14:32
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Устарел TWebBrowser?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=3&tid=2036657]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 58ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 267ms
total:  416ms
созд. / загр.: 416ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]