[VictorMBH]

Пишу в 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();

Админ: Пользуемся тегами при оформлении кода!

Что делать?

[Admin]

Сообщение от VictorMBH

Поточная версия вашего браузера устарела. Чтобы продолжить пользоваться OLX, откройте настройки браузера и обновите его до последней версии.

Вам уже все написали и весьма конкретно - обновите браузер.

Уже давно пора переходить с древней семерки на Delphi 10, там с браузером проблем не будет.

[VictorMBH]

Сообщение от Admin

Вам уже все написали и весьма конкретно - обновите браузер.

Уже давно пора переходить с древней семерки на Delphi 10, там с браузером проблем не будет.

Проблема в том, что программа писалась ещё под Delphi 5, удалось перетащить ее только на 7'ую версию ...

[lmikle]

TWebBrawser использует достаточно старую версию интерфейсов IE (ну не считая того, что IE сам по себе устарел и больше не поддерживается). Сделано это в целях совместимости.

Варианты - перейти на новую Delphi. Да, придется пройтись по всему проекту и либо поправить код, либо везде заменить String на AnsiString и Char на AnsiChar (на сколько я помню, там только с этим основная проблема, все остальное должно работать и так).
Еще вариант - поставить Chromium (компонент для Delphi) и заменить им TWebBrowser.

[VictorMBH]

Сообщение от lmikle

TWebBrawser использует достаточно старую версию интерфейсов IE (ну не считая того, что IE сам по себе устарел и больше не поддерживается). Сделано это в целях совместимости.

Варианты - перейти на новую Delphi. Да, придется пройтись по всему проекту и либо поправить код, либо везде заменить String на AnsiString и Char на AnsiChar (на сколько я помню, там только с этим основная проблема, все остальное должно работать и так).
Еще вариант - поставить Chromium (компонент для Delphi) и заменить им TWebBrowser.

Попробую встроить Chromium. До этого пробовал поиграться с компонентами Gecko -- без толку ...

[Fcevter]

Сообщение от VictorMBH

Проблема в том, что программа писалась ещё под Delphi 5, удалось перетащить ее только на 7'ую версию ...

По сути да, писали же под Delphi 5