sasgis преди 54 години
родител
ревизия
f6a59abd17
променени са 6 файла, в които са добавени 15 реда и са изтрити 6 реда
  1. +4
    -1
      Google/Ghyb.zmp/GetUrlScript.txt
  2. +1
    -1
      Google/Ghyb.zmp/params.txt
  3. +4
    -1
      Google/GoogleLand.zmp/GetUrlScript.txt
  4. +1
    -1
      Google/GoogleLand.zmp/params.txt
  5. +4
    -1
      Google/GoogleMap.zmp/GetUrlScript.txt
  6. +1
    -1
      Google/GoogleMap.zmp/params.txt

+ 4
- 1
Google/Ghyb.zmp/GetUrlScript.txt Целия файл

@@ -1,3 +1,6 @@
var
mt: string;
begin
ResultURL:=GetURLBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1, Random(8));
mt := RegExprReplaceMatchSubStr(GetURLBase, 'mt\.google', 'mt'+inttostr( Random(4) )+'.google' );
ResultURL := mt+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1, Random(8));
end.

+ 1
- 1
Google/Ghyb.zmp/params.txt Целия файл

@@ -9,7 +9,7 @@ ParentSubMenu=Google
ParentSubMenu_en=Google
ParentSubMenu_uk=Google
NameInCache=Both
DefURLBase=http://mt0.google.com/vt/lyrs=h@159000000&hl=ru
DefURLBase=http://mt.google.com/vt/lyrs=h@169000000&hl=ru
ContentType=image/png
Ext=.png
projection=1


+ 4
- 1
Google/GoogleLand.zmp/GetUrlScript.txt Целия файл

@@ -1,4 +1,7 @@
var
mt: string;
begin
if (GetZ < 17) then
ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&s='+copy('Galileo',1, Random(8));
mt := RegExprReplaceMatchSubStr(GetURLBase, 'mt\.google', 'mt'+inttostr( Random(4) )+'.google' );
ResultURL := mt+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&s='+copy('Galileo',1, Random(8));
end.

+ 1
- 1
Google/GoogleLand.zmp/params.txt Целия файл

@@ -8,7 +8,7 @@ ParentSubMenu=Google
ParentSubMenu_en=Google
ParentSubMenu_uk=Google
asLayer=0
DefURLBase=http://mt.google.com/vt/lyrs=t@127,r@159000000&hl=ru
DefURLBase=http://mt.google.com/vt/lyrs=t@128,r@169000000&hl=ru
projection=1
sradiusa=6378137
sradiusb=6378137


+ 4
- 1
Google/GoogleMap.zmp/GetUrlScript.txt Целия файл

@@ -1,3 +1,6 @@
var
mt: string;
begin
ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1, Random(8));
mt := RegExprReplaceMatchSubStr(GetURLBase, 'mt\.google', 'mt'+inttostr( Random(4) )+'.google' );
ResultURL := mt+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1, Random(8));
end.

+ 1
- 1
Google/GoogleMap.zmp/params.txt Целия файл

@@ -8,7 +8,7 @@ ParentSubMenu=Google
ParentSubMenu_en=Google
ParentSubMenu_uk=Google
asLayer=0
DefURLBase=http://mt0.google.com/vt/lyrs=m@159000000&hl=ru
DefURLBase=http://mt.google.com/vt/lyrs=m@169000000&hl=ru
projection=1
sradiusa=6378137
sradiusb=6378137


||||||
x
 
000:0
Зареждане…
Отказ
Запис