sasgis 54 лет назад
Родитель
Сommit
b1bbbc6ee1
4 измененных файлов: 12 добавлений и 8 удалений
  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 Просмотреть файл

@@ -34,7 +34,7 @@ var
VTimeStamp: AnsiString;
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
VRequestUrl: AnsiString;
VRequestUrl, VRequestHeader: AnsiString;
begin
Result := '';
@@ -51,9 +51,10 @@ 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';
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, '', VResponseHeader, VResponseData);
if VResponseCode = 200 then begin
Result := VResponseData;


+ 3
- 2
_water/navionics.SonarChart.zmp/GetUrlScript.txt Просмотреть файл

@@ -34,7 +34,7 @@ var
VTimeStamp: AnsiString;
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
VRequestUrl: AnsiString;
VRequestUrl, VRequestHeader: AnsiString;
begin
Result := '';
@@ -51,9 +51,10 @@ 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';
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, '', VResponseHeader, VResponseData);
if VResponseCode = 200 then begin
Result := VResponseData;


+ 3
- 2
_water/navionics.layer.zmp/GetUrlScript.txt Просмотреть файл

@@ -34,7 +34,7 @@ var
VTimeStamp: AnsiString;
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
VRequestUrl: AnsiString;
VRequestUrl, VRequestHeader: AnsiString;
begin
Result := '';
@@ -51,9 +51,10 @@ 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';
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, '', VResponseHeader, VResponseData);
if VResponseCode = 200 then begin
Result := VResponseData;


+ 3
- 2
_water/navionics.zmp/GetUrlScript.txt Просмотреть файл

@@ -34,7 +34,7 @@ var
VTimeStamp: AnsiString;
VResponseCode: Cardinal;
VResponseHeader, VResponseData: AnsiString;
VRequestUrl: AnsiString;
VRequestUrl, VRequestHeader: AnsiString;
begin
Result := '';
@@ -51,9 +51,10 @@ 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';
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, '', '', VResponseHeader, VResponseData);
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHeader, '', VResponseHeader, VResponseData);
if VResponseCode = 200 then begin
Result := VResponseData;


Загрузка…
Отмена
Сохранить