|
|
@@ -1,4 +1,6 @@ |
|
|
|
var
|
|
|
|
url: string;
|
|
|
|
begin
|
|
|
|
GetURLBase[24]:=chr(ord('2')+random(9));
|
|
|
|
ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
|
|
|
|
url := RegExprReplaceMatchSubStr(GetURLBase, '8082', inttostr(8084 + Random(8) ));
|
|
|
|
ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
|
|
|
|
end. |