https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=425508&view=findpost&p=3858680 Sun, 06 Feb 2022 07:35:45 +0000 https://forum.sources.ru/index.php?showtopic=425508&view=findpost&p=3858680 Rouse_ Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=425508&view=findpost&p=3858667 Sat, 05 Feb 2022 16:24:48 +0000 https://forum.sources.ru/index.php?showtopic=425508&view=findpost&p=3858667
Использую для отображения сайта компонент 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 Delphi: Сетевое программирование