DJ VK писал(а):делаем так,
копируем с точностью до регистра букв
работает :
- Код: Выделить всё
var
RUrl: string;
begin
RUrl := 'tiles' + IntToStr(GetY mod 4) + '.planet.com';
ResultURL:= RegExprReplaceMatchSubStr(GetURLBase, 'tiles0.planet.com', RUrl) + version + '/gmap/' + IntToStr(GetZ-1) + '/' + IntToStr(GetX) + '/' + IntToStr(GetY) + '.png';
RequestHead := 'accept:image/webp,image/apng,image/*,*/*;q=0.8' + #13#10
+ 'accept-encoding:gzip, deflate, br' + #13#10
+ 'accept-language:ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4' + #13#10
+ 'origin:https://www.planet.com' + #13#10
+ 'referer:https://www.planet.com/explorer/' + #13#10
+ 'user-agent:Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.78 Safari/537.36 OPR/47.0.2631.55';
end.
Не работает у меня. Хотя фалы судя по строке состояния скачивает. И выбор месяца не реализован?
