Уточнение ссылок на ресурсы, если они не работают

[Mva777]

У кого нибудь Навионикс работает?
если да, напишите доступно, что нужно, сделать, изменить, скачать и т.п.

[SoftFelix]

У кого нибудь Навионикс работает?

У меня нет. Какое-то время работал, но потом забанился даже на домашнем компе. Пишет Tiles does not exist.

[Sailabout]

Навионикс не работает со вчерашнего дня

[zed]

Нужно исправить zmp и добавить VRequestHead для получения токена:

Код: Выделить всё

...
VRequestUrl := 'https://backend.navionics.io/tile/get_key/Navionics_internalpurpose_00001/webapiv2.navionics.com?_=' + VTimeStamp;
VRequestHead := 'Origin: https://webapiv2.navionics.com' + #13#10 + 'Referer: https://webapiv2.navionics.com/examples/4000_gNavionicsOverlayExample.html';
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHead, '', VResponseHeader, VResponseData);
...

[Mva777]

исправил ZMP все равно не работает....

скрытый текст: показать

///////////////////////////////////////////
if ScriptBuffer <> '' then begin
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 (Result = '') and Assigned(Downloader) then begin
VTimeStamp := IntToStr(GetUnixTime);
VRequestUrl := 'https://backend.navionics.io/tile/get_key/Navionics_internalpurpose_00001/webapiv2.navionics.com?_=' + VTimeStamp;
VRequestHead := 'Origin: https://webapiv2.navionics.com&#39; + #13#10 + 'Referer: https://webapiv2.navionics.com/examples ... html&#39;;
VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(VRequestUrl, VRequestHead, '', VResponseHeader, VResponseData);

if VResponseCode = 200 then begin
Result := VResponseData;
ScriptBuffer := cNavTokenKey + Result + ';' + cTimeStampKey + VTimeStamp + ';';
end;
end;
end;
/////////////////////////////////////////////////////////////////////////////////////////////

[zed]

В скрипте ошибок нет?

[Mva777]

В скрипте ошибок нет?

Да вроде все исправил как вы написали.

[zed]

Я забыл написать, что VRequestHead нужно ещё объявить:

Код: Выделить всё

var
VRequestHead: AnsiString;


Без этого, скрипт должен сообщать об ошибке в настройках карты.

[davinci8]

в итоге это помогло с сонарчартс? если да, то можно готовый zmp? у меня не работает

[TSA]

в итоге это помогло с сонарчартс? если да, то можно готовый zmp? у меня не работает

вроде бы открывает. замените свой файлик (..\_water\Navionics.layer.zmp) этим