Пример порезки на тайлы

Запрашиваем с сервера большую картинку 1024*1024 - это шестнадцать тайлов (4*4).

Запрашиваемый тайл - левый верхний угол. Устанавливаем параметры в params.txt:

CutCountX=4   // Тайлов по горизонтали
CutCountY=4   // Tайлов по горизонтали
CutSizeX=256  // Размер в пикселях
CutSizeY=256
CutTileX=0    // Координата Х тайла от которого ведётся отсчёт)
CutTileY=0    // Координата Y тайла от которого ведётся отсчёт)

Так как нам не нужно пропускать тайлы с копирайтами, то параметр CutToSkip оставляем пустым.

Для этого примера GetUrlScript.txt выглядит так:

VAR
 TL,BR:TPoint;
 topLeftM,bottomrightM:TDoublePoint;
 Ver : string;
begin
 tl.x:=GetX;
 tl.y:=GetY;
 br.x:=GetX+4;
 br.y:=GetY+4;
 topLeftM     := Converter.Pos2LonLat(tl,GetZ-1);
 bottomrightM := Converter.Pos2LonLat(br,GetZ-1);
 ResultURL:=GetURLBase+'&BBOX='+RoundEx(topLeftM.x,10)+','+RoundEx(bottomrightM.y,10)+','+RoundEx(bottomrightM.x,10)+','+RoundEx(topLeftM.y,10); 
end.