浏览代码

update zmp

pull/1/head
sasbot 4 年前
父节点
当前提交
651191031c
共有 3 个文件被更改,包括 16 次插入8 次删除
  1. 二进制
      ProGorod1.zmp/18.bmp
  2. 二进制
      ProGorod1.zmp/24.bmp
  3. +16
    -8
      ProGorod1.zmp/GetUrlScript.txt

二进制
ProGorod1.zmp/18.bmp 查看文件

之前 之后

二进制
ProGorod1.zmp/24.bmp 查看文件

之前 之后

+ 16
- 8
ProGorod1.zmp/GetUrlScript.txt 查看文件

@@ -1,13 +1,21 @@
function addzero(i:integer):string;
var rs:string;
begin
rs:=inttostr(i);
while length(rs)<3 do rs:='0'+rs;
result:=rs;
end;
var
sx,sy,sz:string;
dx,dy:integer;
ty:integer;
begin
sx:=inttostr(Getx);
sy:=inttostr(round(intpower(2,GetZ-1))-Gety);
dx:=(getx div 1000);
sx:=addzero(Getx-dx*1000);
ty:=round(intpower(2,GetZ-1))-Gety;
dy:=(ty div 1000);
ty:=ty-dy*1000-1;
sy:=addzero(ty);
sz:=inttostr(Getz-1);
while length(sx)<3 do sx:='0'+sx;
while length(sy)<3 do sy:='0'+sy;
while length(sz)<2 do sz:='0'+sz;
ResultURL:=GetUrlBase+sz+'/00/000/000/'+sx+'/000/000/'+sy+'.png';
ResultURL:=GetUrlBase+sz+'/00/000/'+addzero(dx)+'/'+sx+'/000/'+addzero(dy)+'/'+sy+'.png';
end.

正在加载...
取消
保存