|
|
ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'/256/png8?app_id=xWVIueSv6JL0aJ5xqTxb&app_code=djPZyynKsbTjIUDOBcHZ2g&lg=rus&ppi=72&pview=RUS';
|
|
|
serverPart := RegExprReplaceMatchSubStr(GetURLBase, '//4', '//'+inttostr( Random(3) + 1 ) );
|