Selaa lähdekoodia

update zmp

undefined
sasgis 54 vuotta sitten
vanhempi
commit
acc0dda60f
1 muutettua tiedostoa jossa 7 lisäystä ja 9 poistoa
  1. +7
    -9
      Contur.zmp/GetUrlScript.txt

+ 7
- 9
Contur.zmp/GetUrlScript.txt Näytä tiedosto

@@ -1,12 +1,10 @@
begin
ResultURL:=GetURLBase+'x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(GetZ-1)+'&interval='+inttostr(round(IntPower(1.31,24-GetZ+1)))+'&color=e29526';
RequestHead:='User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:2.0) Gecko/20100101 Firefox/4.0' + #13#10 +
'Accept: image/png,image/*;q=0.8,*/*;q=0.5' + #13#10 +
'Accept-Language: en-us,en;q=0.5' + #13#10 +
'Accept-Encoding: gzip, deflate' + #13#10 +
'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' + #13#10 +
'Keep-Alive: 115' + #13#10 +
'Connection: keep-alive' + #13#10 +
'Referer: http://etokarta.com/karta-vitebska' + #13#10 +
'Cookie: gc=polotsk; cc=1' + #13#10;
RequestHead:='User-Agent: Opera/9.80 (Windows NT 6.1; U; MRA 5.9 (build 4876); ru) Presto/2.10.289 Version/12.01' + #13#10 +
'Host: contour.heywhatsthat.com' + #13#10 +
'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 +
'Accept-Language: ru-RU,ru;q=0.9,en;q=0.8' + #13#10 +
'Accept-Encoding: gzip, deflate' + #13#10 +
'Referer: http://www.heywhatsthat.com/' + #13#10 +
'Connection: Keep-Alive'
end.

Ladataan…
Peruuta
Tallenna