Расскажите, пожалуйста, как делать DAT файлы и скрипты WEB карт!Alex писал(а): - Возможно удаление DAT файлов, при этом удалится сервис из программы, возможно добавление своих сервисов, или их модификация.
- Добавлено: два пустых сервиса для использования в них закешированых тайлов
Интересует, что именно и как писать вот в этом блоке (пример для Bing):Код: Выделить всё
[SCRIPT]
Var
strResult:string;
i:byte;
X1,Y1,X2,Y2:integer;
begin
strResult:='';
X1:=Round(IntPower(2,z)) div 2;
Y1:=Round(IntPower(2,z)) div 2;
X2:=X1; Y2:=Y1;
for i:=2 to z+1 do
begin
X2:=X2 div 2;
Y2:=Y2 div 2;
if x<X1
then begin
X1:=X1-X2;
if y<Y1 then begin
Y1:=Y1-Y2;
strResult:=strResult+'0';
end
else begin
Y1:=Y1+Y2;
strResult:=strResult+'2';
end;
end
else begin
X1:=X1+X2;
if y<Y1 then begin
Y1:=Y1-Y2;
strResult:=strResult+'1';
end
else begin
Y1:=Y1+Y2;
strResult:=strResult+'3';
end;
end;
end;
SummaryURL:=DefaultURL+strResult+'.jpeg?g=1046';
end.
Не напряжет ли это сильно ресурсы?
