Создание катры мира (от Яндекса) с помощью Дельфи

[Alex Cones]

У меня есть прямая ссылка на участок карты в яндексе.
http://sat02.maps.yandex.ru/tiles?l=...&x=76&y=45&z=7
координаты x,y меняются. Возможно ли создать программу в Дельфи, которая сгенерирует ссылки при X:=1..1000 и Y:=1..1000 зайдет на страницу, сохранит изображение и вставит в бмп файл (map.bmp) участок карты?

[Ntlegend]

сделанй вложеный цыкл.. во внешнему увеличивай Y по внутреннему X.. забивай эти данные в сылку и дальше скачуй..

uses IdHTTP;

var x, y:integer;
     s:string;
    http: TIdHTTP;
    fs: TFileStream;
begin
http:=TIdhttp.Create(nil);
http.HandleRedirects:=True;

for y:=1 to 1000 do
 for x:=1 to 1000 do 
   begin
     s:='http://sat02.maps.yandex.ru/tiles?l=sat&v=1.8.0&x='+IntToStr(x)+'&y='+IntToStr(y)+'&z=7';
     fs:=TFileStream.Create(IntToStr(x)+'File'+IntToStr(y), fmCreate);
     http.Get(s, fs);
     fs.Free;
   end;
http.Free;
end;

от приблизительно так сделай.. и у тебя будет милион файлов.. от тока сколько времени понадобится шобы скачать всё %)..

[Alex Cones]

Ну миллион я привел для примера, надо будет еще узнать, сколько их там. А за код спасибо, сейчас попробую.

Для тех, кто будет заниматься подобными делами: строку

fs:=TFileStream.Create(IntToStr(x)+'File'+IntToStr(y), fmCreate);

Нужно заменить на

fs:=TFileStream.Create('File'+IntToStr(y)+IntToStr(x)+'.jpeg', fmCreate);