Пишу в 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();
Админ: Пользуемся тегами при оформлении кода!
Что делать?