Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.

54 роки тому
54 роки тому
54 роки тому
54 роки тому
54 роки тому
54 роки тому
54 роки тому
54 роки тому
54 роки тому
54 роки тому
123456789101112131415161718192021222324252627282930313233
  1. var
  2. I: Integer;
  3. VEncoded: string;
  4. VBox: string;
  5. begin
  6. VBox := RoundEx(GetLMetr ,10) + ',' + RoundEx(GetBMetr, 10) + ',' + RoundEx(GetRMetr, 10) + ',' + RoundEx(GetTMetr, 10);
  7. // prepare params
  8. VEncoded :=
  9. 'LAYERS=osm_ram' + '&' +
  10. 'SERVICE=WMS' + '&' +
  11. 'VERSION=1.1.1' + '&' +
  12. 'REQUEST=GetMap' + '&' +
  13. 'STYLES=' + '&' +
  14. 'FORMAT=image%2Fpng' + '&' +
  15. 'SRS=EPSG%3A3395' + '&' +
  16. 'WIDTH=256' + '&' +
  17. 'HEIGHT=256' + '&' +
  18. 'BBOX=' + VBox;
  19. // crypt
  20. for I := 1 to Length(VEncoded) do
  21. VEncoded[I] := Chr(Ord(VEncoded[I]) xor 42);
  22. // Base64 encode
  23. VEncoded := Base64Encode(VEncoded);
  24. //replase "+" with "%2b" charset
  25. VEncoded := RegExprReplaceMatchSubStr(VEncoded, '\+', '\%2b');
  26. ResultURL:=GetURLBase + VEncoded + '&NAVKEY=NAVIONICS11WEBAPI111&TEST=' + VBox + '&ZOOM=' + IntToStr(GetZ) + '&v=1&SRC=http://www.navionics.com';
  27. RequestHead := 'Referer: http://www.navionics.com/sites/navionics.plurimedia.it/files/coverage/webapp.html?2985400';
  28. end.