Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы Поиск в этой теме
Старый 05.02.2022, 19:25   #1
VictorMBH
 
Регистрация: 23.06.2010
Сообщений: 8
По умолчанию Устарел TWebBrowser?

Пишу в Delphi 7 программу, которая должна открыть сайт и взять с него текст.

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

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

Код:
  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();
Что делать?
VictorMBH вне форума Ответить с цитированием
Старый 05.02.2022, 19:33   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,913
По умолчанию

Цитата:
Сообщение от VictorMBH Посмотреть сообщение
Пишу в Delphi 7
Делфи 7 была выпущена 20 лет назад. Скажите, вы сейчас тоже зашли на форум через браузер 20-летней давности?
Arigato вне форума Ответить с цитированием
Старый 05.02.2022, 19:35   #3
VictorMBH
 
Регистрация: 23.06.2010
Сообщений: 8
По умолчанию

Цитата:
Сообщение от Arigato Посмотреть сообщение
Делфи 7 была выпущена 20 лет назад. Скажите, вы сейчас тоже зашли на форум через браузер 20-летней давности?
Это переделка старой программы. Исходники были вообще под пятой версией -- выбора нет.
VictorMBH вне форума Ответить с цитированием
Старый 05.02.2022, 20:52   #4
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,913
По умолчанию

Заметил, что многие до сих пор используют Делфи 7, кто-то все еще использует Windows XP. В принципе все эти системы морально устарели и способны принести много хлопот, но в целом на них еще можно что-то делать.

Отвлекся от темы, просто мысль такая, что прогресс сильно замедлился. Windows 1 вышла в 1985 году, Windows XP - в 2001. Интересно, если бы кто-то в начале 2000-х начал задавать вопросы, как ему лучше сделать что-то в Windows 1, его бы на смех подняли?

А ведь от выхода Windows 1 до Windows XP прошло 16 лет, то есть столько же, сколько существует данный форум. Но вряд ли что-то созданное в 1980-м было столь же актуально в 2002 году...

К примеру, отдал дочери свой старый комп, ему уже 14 лет. Он прекрасно работает, справляется со всеми повседневными задачами на ура, да даже в GTA 5 без особых тормозов на нем удалось поиграть. Сравните комп 1986-го года, ровесника Windows 1 с компами начала 2000-х. А ведь возраст у них будет одинаков.
Arigato вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi - устарел? edsjeka Общие вопросы Delphi 32 19.03.2016 23:38
Как убрать отступы в TWebBrowser? + аналоги TWebBrowser? FleXik Общие вопросы Delphi 4 19.07.2013 21:53
Incompatible types: 'Unit1.TWebBrowser' and 'SHDocVw.TWebBrowser' simon15x Общие вопросы Delphi 0 10.04.2010 03:11
TWebBrowser ak3000 Компоненты Delphi 8 08.04.2010 19:33