pkl69
/
maps
forked from sasgis/maps
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Browse Source

update zmp

master
sasbot 4 years ago
parent
295f662b82
commit
c3c2391080
4 changed files with 12 additions and 8 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +3
    -2
      _water/navionics.SonarChart.layer.zmp/GetUrlScript.txt
  2. +3
    -2
      _water/navionics.SonarChart.zmp/GetUrlScript.txt
  3. +3
    -2
      _water/navionics.layer.zmp/GetUrlScript.txt
  4. +3
    -2
      _water/navionics.zmp/GetUrlScript.txt

+ 3
- 2
_water/navionics.SonarChart.layer.zmp/GetUrlScript.txt View File

@@ -34,7 +34,7 @@ var
VTimeStamp: AnsiString; VTimeStamp: AnsiString;
VResponseCode: Cardinal; VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString; VResponseHeader, VResponseData: AnsiString;
VRequestUrl: AnsiString;
VRequestUrl, VRequestHeader: AnsiString;
begin begin
Result := ''; Result := '';
@@ -51,9 +51,10 @@ begin
if (Result = '') and Assigned(Downloader) then begin if (Result = '') and Assigned(Downloader) then begin
VTimeStamp := IntToStr(GetUnixTime); VTimeStamp := IntToStr(GetUnixTime);
VRequestUrl := 'https://backend.navionics.io/tile/get_key/Navionics_internalpurpose_00001/webapiv2.navionics.com?_=' + VTimeStamp; 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';
VResponseHeader := ''; VResponseHeader := '';
VResponseData := ''; VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, '', VResponseHeader, VResponseData);
if VResponseCode = 200 then begin if VResponseCode = 200 then begin
Result := VResponseData; Result := VResponseData;


+ 3
- 2
_water/navionics.SonarChart.zmp/GetUrlScript.txt View File

@@ -34,7 +34,7 @@ var
VTimeStamp: AnsiString; VTimeStamp: AnsiString;
VResponseCode: Cardinal; VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString; VResponseHeader, VResponseData: AnsiString;
VRequestUrl: AnsiString;
VRequestUrl, VRequestHeader: AnsiString;
begin begin
Result := ''; Result := '';
@@ -51,9 +51,10 @@ begin
if (Result = '') and Assigned(Downloader) then begin if (Result = '') and Assigned(Downloader) then begin
VTimeStamp := IntToStr(GetUnixTime); VTimeStamp := IntToStr(GetUnixTime);
VRequestUrl := 'https://backend.navionics.io/tile/get_key/Navionics_internalpurpose_00001/webapiv2.navionics.com?_=' + VTimeStamp; 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';
VResponseHeader := ''; VResponseHeader := '';
VResponseData := ''; VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, '', VResponseHeader, VResponseData);
if VResponseCode = 200 then begin if VResponseCode = 200 then begin
Result := VResponseData; Result := VResponseData;


+ 3
- 2
_water/navionics.layer.zmp/GetUrlScript.txt View File

@@ -34,7 +34,7 @@ var
VTimeStamp: AnsiString; VTimeStamp: AnsiString;
VResponseCode: Cardinal; VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString; VResponseHeader, VResponseData: AnsiString;
VRequestUrl: AnsiString;
VRequestUrl, VRequestHeader: AnsiString;
begin begin
Result := ''; Result := '';
@@ -51,9 +51,10 @@ begin
if (Result = '') and Assigned(Downloader) then begin if (Result = '') and Assigned(Downloader) then begin
VTimeStamp := IntToStr(GetUnixTime); VTimeStamp := IntToStr(GetUnixTime);
VRequestUrl := 'https://backend.navionics.io/tile/get_key/Navionics_internalpurpose_00001/webapiv2.navionics.com?_=' + VTimeStamp; 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';
VResponseHeader := ''; VResponseHeader := '';
VResponseData := ''; VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, '', VResponseHeader, VResponseData);
if VResponseCode = 200 then begin if VResponseCode = 200 then begin
Result := VResponseData; Result := VResponseData;


+ 3
- 2
_water/navionics.zmp/GetUrlScript.txt View File

@@ -34,7 +34,7 @@ var
VTimeStamp: AnsiString; VTimeStamp: AnsiString;
VResponseCode: Cardinal; VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString; VResponseHeader, VResponseData: AnsiString;
VRequestUrl: AnsiString;
VRequestUrl, VRequestHeader: AnsiString;
begin begin
Result := ''; Result := '';
@@ -51,9 +51,10 @@ begin
if (Result = '') and Assigned(Downloader) then begin if (Result = '') and Assigned(Downloader) then begin
VTimeStamp := IntToStr(GetUnixTime); VTimeStamp := IntToStr(GetUnixTime);
VRequestUrl := 'https://backend.navionics.io/tile/get_key/Navionics_internalpurpose_00001/webapiv2.navionics.com?_=' + VTimeStamp; 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';
VResponseHeader := ''; VResponseHeader := '';
VResponseData := ''; VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, '', VResponseHeader, VResponseData);
if VResponseCode = 200 then begin if VResponseCode = 200 then begin
Result := VResponseData; Result := VResponseData;


Write Preview
Loading…
Cancel
Save