sasgis 54 anni fa
parent
commit
1fa4b6406d
4 ha cambiato i file con 216 aggiunte e 84 eliminazioni
  1. +54
    -21
      _water/navionics.SonarChart.layer.zmp/GetUrlScript.txt
  2. +54
    -21
      _water/navionics.SonarChart.zmp/GetUrlScript.txt
  3. +54
    -21
      _water/navionics.layer.zmp/GetUrlScript.txt
  4. +54
    -21
      _water/navionics.zmp/GetUrlScript.txt

+ 54
- 21
_water/navionics.SonarChart.layer.zmp/GetUrlScript.txt Vedi File

@@ -1,44 +1,77 @@
//******************************************************************************
// LAYERS parameter: config_a_b_c
// a = 1 for depth in meters, 2 for depth in feet, 3 for fathoms
// b = 10.00: for 10.00 m safety depth (beginning of blue coloring) (unit equal to that set by a)
// c = 0 for pristine Navionics charts, 1 for Sonar Charts
// TRANSPARENT parameter: FALSE for non-layer, TRUE for layer
// UGC parameter: FALSE for pristine Navionics charts, TRUE for additinal user-generated content icons
//
// TRANSPARENT parameter:
// FALSE for non-layer
// TRUE for layer
//
// UGC parameter:
// FALSE for pristine Navionics charts
// TRUE for additinal user-generated content icons
//******************************************************************************
const
cReqParams = 'LAYERS=config_1_10.00_1&TRANSPARENT=TRUE&UGC=FALSE';
//******************************************************************************
const
cTTL = 24*60*60; // 24 hour
cNavTokenKey = 'NavToken=';
cTimeStampKey = 'TimeStamp=';
function CheckTTL(const ATimeStamp: AnsiString): Boolean;
begin
Result := ( (cTTL div 2) > GetUnixTime - StrToInt64Def(ATimeStamp, 0) );
end;
function GetNavToken: AnsiString;
var
VTimeStamp: AnsiString;
VNavToken: AnsiString;
VTimeStamp: AnsiString;
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
VRequestUrl, VRequestHeader, VPostData: AnsiString;
VRequestUrl: AnsiString;
begin
Result := 'ERROR_1';
Result := '';
if ScriptBuffer <> '' then begin
Result := ScriptBuffer;
Exit;
VNavToken := GetBetween(ScriptBuffer, cNavTokenKey, ';');
VTimeStamp := GetBetween(ScriptBuffer, cTimeStampKey, ';');
if (VNavToken <> '') and (VTimeStamp <> '') and CheckTTL(VTimeStamp) then begin
Result := VNavToken;
end else begin
ScriptBuffer := '';
end;
end;
if Assigned(Downloader) then begin
VTimeStamp := IntToStr(GetUnixTime);
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 := '';
VPostData := '';
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, VPostData, VResponseHeader, VResponseData);
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
if VResponseCode = 200 then begin
ScriptBuffer := VResponseData;
Result := ScriptBuffer;
end else begin
ScriptBuffer := 'ERROR_2';
Result := VResponseData;
ScriptBuffer := cNavTokenKey + Result + ';' + cTimeStampKey + VTimeStamp + ';';
end;
end;
end;
begin
ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'?LAYERS=config_1_10.00_1&TRANSPARENT=TRUE&UGC=FALSE&navtoken='+GetNavToken;
//******************************************************************************
var
VNavToken: AnsiString;
begin
VNavToken := GetNavToken;
if VNavToken <> '' then begin
ResultURL := GetURLBase + IntToStr(GetZ-1) + '/' + IntToStr(GetX) + '/' +
IntToStr(GetY) + '?' + cReqParams + '&' + 'navtoken=' + VNavToken;
end else begin
ResultURL := '';
end;
end.

+ 54
- 21
_water/navionics.SonarChart.zmp/GetUrlScript.txt Vedi File

@@ -1,44 +1,77 @@
//******************************************************************************
// LAYERS parameter: config_a_b_c
// a = 1 for depth in meters, 2 for depth in feet, 3 for fathoms
// b = 10.00: for 10.00 m safety depth (beginning of blue coloring) (unit equal to that set by a)
// c = 0 for pristine Navionics charts, 1 for Sonar Charts
// TRANSPARENT parameter: FALSE for non-layer, TRUE for layer
// UGC parameter: FALSE for pristine Navionics charts, TRUE for additinal user-generated content icons
//
// TRANSPARENT parameter:
// FALSE for non-layer
// TRUE for layer
//
// UGC parameter:
// FALSE for pristine Navionics charts
// TRUE for additinal user-generated content icons
//******************************************************************************
const
cReqParams = 'LAYERS=config_1_10.00_1&TRANSPARENT=FALSE&UGC=FALSE';
//******************************************************************************
const
cTTL = 24*60*60; // 24 hour
cNavTokenKey = 'NavToken=';
cTimeStampKey = 'TimeStamp=';
function CheckTTL(const ATimeStamp: AnsiString): Boolean;
begin
Result := ( (cTTL div 2) > GetUnixTime - StrToInt64Def(ATimeStamp, 0) );
end;
function GetNavToken: AnsiString;
var
VTimeStamp: AnsiString;
VNavToken: AnsiString;
VTimeStamp: AnsiString;
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
VRequestUrl, VRequestHeader, VPostData: AnsiString;
VRequestUrl: AnsiString;
begin
Result := 'ERROR_1';
Result := '';
if ScriptBuffer <> '' then begin
Result := ScriptBuffer;
Exit;
VNavToken := GetBetween(ScriptBuffer, cNavTokenKey, ';');
VTimeStamp := GetBetween(ScriptBuffer, cTimeStampKey, ';');
if (VNavToken <> '') and (VTimeStamp <> '') and CheckTTL(VTimeStamp) then begin
Result := VNavToken;
end else begin
ScriptBuffer := '';
end;
end;
if Assigned(Downloader) then begin
VTimeStamp := IntToStr(GetUnixTime);
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 := '';
VPostData := '';
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, VPostData, VResponseHeader, VResponseData);
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
if VResponseCode = 200 then begin
ScriptBuffer := VResponseData;
Result := ScriptBuffer;
end else begin
ScriptBuffer := 'ERROR_2';
Result := VResponseData;
ScriptBuffer := cNavTokenKey + Result + ';' + cTimeStampKey + VTimeStamp + ';';
end;
end;
end;
begin
ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'?LAYERS=config_1_10.00_1&TRANSPARENT=FALSE&UGC=FALSE&navtoken='+GetNavToken;
//******************************************************************************
var
VNavToken: AnsiString;
begin
VNavToken := GetNavToken;
if VNavToken <> '' then begin
ResultURL := GetURLBase + IntToStr(GetZ-1) + '/' + IntToStr(GetX) + '/' +
IntToStr(GetY) + '?' + cReqParams + '&' + 'navtoken=' + VNavToken;
end else begin
ResultURL := '';
end;
end.

+ 54
- 21
_water/navionics.layer.zmp/GetUrlScript.txt Vedi File

@@ -1,44 +1,77 @@
//******************************************************************************
// LAYERS parameter: config_a_b_c
// a = 1 for depth in meters, 2 for depth in feet, 3 for fathoms
// b = 10.00: for 10.00 m safety depth (beginning of blue coloring) (unit equal to that set by a)
// c = 0 for pristine Navionics charts, 1 for Sonar Charts
// TRANSPARENT parameter: FALSE for non-layer, TRUE for layer
// UGC parameter: FALSE for pristine Navionics charts, TRUE for additinal user-generated content icons
//
// TRANSPARENT parameter:
// FALSE for non-layer
// TRUE for layer
//
// UGC parameter:
// FALSE for pristine Navionics charts
// TRUE for additinal user-generated content icons
//******************************************************************************
const
cReqParams = 'LAYERS=config_1_10.00_0&TRANSPARENT=TRUE&UGC=FALSE';
//******************************************************************************
const
cTTL = 24*60*60; // 24 hour
cNavTokenKey = 'NavToken=';
cTimeStampKey = 'TimeStamp=';
function CheckTTL(const ATimeStamp: AnsiString): Boolean;
begin
Result := ( (cTTL div 2) > GetUnixTime - StrToInt64Def(ATimeStamp, 0) );
end;
function GetNavToken: AnsiString;
var
VTimeStamp: AnsiString;
VNavToken: AnsiString;
VTimeStamp: AnsiString;
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
VRequestUrl, VRequestHeader, VPostData: AnsiString;
VRequestUrl: AnsiString;
begin
Result := 'ERROR_1';
Result := '';
if ScriptBuffer <> '' then begin
Result := ScriptBuffer;
Exit;
VNavToken := GetBetween(ScriptBuffer, cNavTokenKey, ';');
VTimeStamp := GetBetween(ScriptBuffer, cTimeStampKey, ';');
if (VNavToken <> '') and (VTimeStamp <> '') and CheckTTL(VTimeStamp) then begin
Result := VNavToken;
end else begin
ScriptBuffer := '';
end;
end;
if Assigned(Downloader) then begin
VTimeStamp := IntToStr(GetUnixTime);
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 := '';
VPostData := '';
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, VPostData, VResponseHeader, VResponseData);
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
if VResponseCode = 200 then begin
ScriptBuffer := VResponseData;
Result := ScriptBuffer;
end else begin
ScriptBuffer := 'ERROR_2';
Result := VResponseData;
ScriptBuffer := cNavTokenKey + Result + ';' + cTimeStampKey + VTimeStamp + ';';
end;
end;
end;
begin
ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'?LAYERS=config_1_10.00_0&TRANSPARENT=TRUE&UGC=FALSE&navtoken='+GetNavToken;
//******************************************************************************
var
VNavToken: AnsiString;
begin
VNavToken := GetNavToken;
if VNavToken <> '' then begin
ResultURL := GetURLBase + IntToStr(GetZ-1) + '/' + IntToStr(GetX) + '/' +
IntToStr(GetY) + '?' + cReqParams + '&' + 'navtoken=' + VNavToken;
end else begin
ResultURL := '';
end;
end.

+ 54
- 21
_water/navionics.zmp/GetUrlScript.txt Vedi File

@@ -1,44 +1,77 @@
//******************************************************************************
// LAYERS parameter: config_a_b_c
// a = 1 for depth in meters, 2 for depth in feet, 3 for fathoms
// b = 10.00: for 10.00 m safety depth (beginning of blue coloring) (unit equal to that set by a)
// c = 0 for pristine Navionics charts, 1 for Sonar Charts
// TRANSPARENT parameter: FALSE for non-layer, TRUE for layer
// UGC parameter: FALSE for pristine Navionics charts, TRUE for additinal user-generated content icons
//
// TRANSPARENT parameter:
// FALSE for non-layer
// TRUE for layer
//
// UGC parameter:
// FALSE for pristine Navionics charts
// TRUE for additinal user-generated content icons
//******************************************************************************
const
cReqParams = 'LAYERS=config_1_10.00_0&TRANSPARENT=FALSE&UGC=FALSE';
//******************************************************************************
const
cTTL = 24*60*60; // 24 hour
cNavTokenKey = 'NavToken=';
cTimeStampKey = 'TimeStamp=';
function CheckTTL(const ATimeStamp: AnsiString): Boolean;
begin
Result := ( (cTTL div 2) > GetUnixTime - StrToInt64Def(ATimeStamp, 0) );
end;
function GetNavToken: AnsiString;
var
VTimeStamp: AnsiString;
VNavToken: AnsiString;
VTimeStamp: AnsiString;
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
VRequestUrl, VRequestHeader, VPostData: AnsiString;
VRequestUrl: AnsiString;
begin
Result := 'ERROR_1';
Result := '';
if ScriptBuffer <> '' then begin
Result := ScriptBuffer;
Exit;
VNavToken := GetBetween(ScriptBuffer, cNavTokenKey, ';');
VTimeStamp := GetBetween(ScriptBuffer, cTimeStampKey, ';');
if (VNavToken <> '') and (VTimeStamp <> '') and CheckTTL(VTimeStamp) then begin
Result := VNavToken;
end else begin
ScriptBuffer := '';
end;
end;
if Assigned(Downloader) then begin
VTimeStamp := IntToStr(GetUnixTime);
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 := '';
VPostData := '';
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, VPostData, VResponseHeader, VResponseData);
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
if VResponseCode = 200 then begin
ScriptBuffer := VResponseData;
Result := ScriptBuffer;
end else begin
ScriptBuffer := 'ERROR_2';
Result := VResponseData;
ScriptBuffer := cNavTokenKey + Result + ';' + cTimeStampKey + VTimeStamp + ';';
end;
end;
end;
begin
ResultURL:=GetURLBase + IntToStr(GetZ-1) + '/' + IntToStr(GetX) + '/' + IntToStr(GetY) + '?LAYERS=config_1_10.00_0&TRANSPARENT=FALSE&UGC=FALSE&navtoken=' + GetNavToken;
//******************************************************************************
var
VNavToken: AnsiString;
begin
VNavToken := GetNavToken;
if VNavToken <> '' then begin
ResultURL := GetURLBase + IntToStr(GetZ-1) + '/' + IntToStr(GetX) + '/' +
IntToStr(GetY) + '?' + cReqParams + '&' + 'navtoken=' + VNavToken;
end else begin
ResultURL := '';
end;
end.

Caricamento…
Annulla
Salva