10 lines
678 B

  1. begin
  2. ResultURL:=GetUrlBase+'&z='+inttostr(GetZ-1)+'&x='+inttostr(-((round(intpower(2,GetZ-1)))div 2)+(GetX))+'&y='+inttostr(-((Round(intpower(2,GetZ-1)))div 2)+ (Round(intpower(2,GetZ-1))-(GetY+1)));
  3. RequestHead:='User-Agent: Opera/9.80 (Windows NT 6.1) Presto/2.12.388 Version/12.16' + #13#10 +
  4. 'Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1' + #13#10 +
  5. 'Accept-Language: ru-RU,ru;q=0.9,en;q=0.8' + #13#10 +
  6. 'Accept-Encoding: gzip, deflate' + #13#10 +
  7. 'Referer: http://kosmosnimki.ru/' + #13#10 +
  8. 'Connection: keep-alive' + #13#10;
  9. end.