소스 검색

update zmp

master
sasbot 4 년 전
부모
커밋
9163969c35
1개의 변경된 파일12개의 추가작업 그리고 5개의 파일을 삭제
  1. +12
    -5
      gp_RoscosmGeo.zmp/GetUrlScript.txt

+ 12
- 5
gp_RoscosmGeo.zmp/GetUrlScript.txt 파일 보기

@@ -10,7 +10,7 @@ begin
end;
var binX,binY:string;
i,posSRC,posDATE,posTYPE,posFirstAND:integer;
i,posSRC,posDATE,posTYPE,posFirstAND,lenbinXY:integer;
begin
posFirstAND:=pos('&',GetUrlBase)-1;
if posFirstAND<=0 then begin
@@ -44,10 +44,17 @@ begin
end;
end;
binX:='0'+dec2bin(GetX);
binY:='0'+dec2bin(GetY);
binX:=copy(binX,length(binX)-(GetZ-1)+1,GetZ-1);
binY:=copy(binY,length(binY)-(GetZ-1)+1,GetZ-1);
binX:=dec2bin(GetX);
binY:=dec2bin(GetY);
lenbinXY:=length(binX);
for i:=1 to ((GetZ-1)-lenbinXY) do begin
binX:='0'+binX;
end;
lenbinXY:=length(binY);
for i:=1 to ((GetZ-1)-lenbinXY) do begin
binY:='0'+binY;
end;
for i:=7 to GetZ-1 do begin
ResultURL:=ResultURL+copy(binY,1,i-6)+'-'+copy(binX,1,i-6)+'/';
end;


불러오는 중...
취소
저장