sasbot 4 роки тому
джерело
коміт
6ee4839a18
3 змінених файлів з 6 додано та 6 видалено
  1. +2
    -2
      _water/navionics.SonarChart.zmp/GetUrlScript.txt
  2. +3
    -3
      _water/navionics.zmp/GetUrlScript.txt
  3. +1
    -1
      _water/navionics.zmp/params.txt

+ 2
- 2
_water/navionics.SonarChart.zmp/GetUrlScript.txt Переглянути файл

@@ -50,8 +50,8 @@ begin
if (Result = '') and Assigned(Downloader) then begin
VTimeStamp := IntToStr(GetUnixTime);
VRequestUrl := 'https://backend.navionics.io/tile/get_key/Navionics_internalpurpose_00001/webapiv2.navionics.com?_=' + VTimeStamp;
VRequestHeader := 'Origin: https://webapiv2.navionics.com' + #13#10 + 'Referer: https://webapiv2.navionics.com/examples/4000_gNavionicsOverlayExample.html';
VRequestUrl := 'http://backend.navionics.io/tile/get_key/Navionics_internalpurpose_00001/webapp.navionics.com?_=' + VTimeStamp;
VRequestHeader := 'Origin: http://webapp.navionics.com' + #13#10 + 'Referer: http://webapp.navionics.com/';
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, '', VResponseHeader, VResponseData);


+ 3
- 3
_water/navionics.zmp/GetUrlScript.txt Переглянути файл

@@ -14,7 +14,7 @@
//******************************************************************************
const
cReqParams = 'LAYERS=config_1_10.00_0&TRANSPARENT=FALSE&UGC=FALSE';
cReqParams = 'LAYERS=config_1_20.00_0&TRANSPARENT=FALSE&UGC=TRUE';
//******************************************************************************
@@ -50,8 +50,8 @@ begin
if (Result = '') and Assigned(Downloader) then begin
VTimeStamp := IntToStr(GetUnixTime);
VRequestUrl := 'https://backend.navionics.io/tile/get_key/Navionics_internalpurpose_00001/webapiv2.navionics.com?_=' + VTimeStamp;
VRequestHeader := 'Origin: https://webapiv2.navionics.com' + #13#10 + 'Referer: https://webapiv2.navionics.com/examples/4000_gNavionicsOverlayExample.html';
VRequestUrl := 'http://backend.navionics.io/tile/get_key/Navionics_internalpurpose_00001/webapp.navionics.com?_=' + VTimeStamp;
VRequestHeader := 'Origin: http://webapp.navionics.com' + #13#10 + 'Referer: http://webapp.navionics.com/';
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, '', VResponseHeader, VResponseData);


+ 1
- 1
_water/navionics.zmp/params.txt Переглянути файл

@@ -11,4 +11,4 @@ projection=1
sradiusa=6378137
sradiusb=6378137
IsUseDownloaderInScript=1
RequestHead=Referer: https://webapiv2.navionics.com/examples/4000_gNavionicsOverlayExample.html
RequestHead=Referer: http://webapp.navionics.com/

Завантаження…
Відмінити
Зберегти