Недостаточно памяти для большого битмапа

[Alex Cones]

procedure TForm1.Button1Click(Sender: TObject);
Var
 Z,Y,X : Integer;
 Bit, Bitl : TBitMap;
 JPG : TJpegImage;
 SX, SY : String;
begin
 For Z := 5 to 7 Do
  Begin
   Bit := TBitMap.Create;
   Bit.Width := Round(Exp(Z *ln(2))) * 256;
   Bit.Height := Round(Exp(Z *ln(2))) * 256;
   For Y := 0 to Round(Exp(Z *ln(2))) - 1 Do
    For X := 0 to Round(Exp(Z *ln(2))) - 1 Do
     Begin
      Label1.Caption := 'Z = ' + IntToStr(Z) + '. ' +
                        'Y = ' + IntToStr(Y) + '. ' +
                        'X = ' + IntToStr(X) + '.';
      Application.ProcessMessages;
      SX := IntToStr(X);
      While Length(SX) <> 4 Do SX := '0'+SX;
      SY := IntToStr(Y);
      While Length(SY) <> 4 Do SY := '0'+SY;
      JPG := TJpegImage.Create;
      JPG.LoadFromFile('D:\Map\' + InttoStr(Z) + '\'+ SX + SY + '.jpeg');
      Bitl := TBitMap.Create;
      Bitl.Assign(JPG);
      Bit.Canvas.Draw(X * 256, Y * 256, Bitl);
      Bitl.Free;
      JPG.Free;
     End;
   Bit.SaveToFile('D:/' + IntToStr(Z) + '.bmp');
   Bit.Free;
  End;
end;

Размеры на шагах:
5 = 8192 х 8192
6 = 16384 х 16384
7 = 32768 х 32768
Размеры bmp файла на выходе:
5 = 128 мб
6 = 256 мб
7 = 512 мб

Как собственно обойти ошибку?

[raxp]

довольно странно, т.к. максимальный размер блока памяти в windows для tbitmap 2 гига, где-то еще утечка

[Alex Cones]

Причем вылетает на первом же шаге на

   Bit.Height := Round(Exp(Z *ln(2))) * 256;

До этого было For Z := 1 to 4 Do отработало прекрасно.
_______________________________
Поставил размер файла подкачки по требованию системы. 5-й шаг отработался.

В паинте создал картинку размером 32 000 х 32 000 - тоже выдало "недостаточно памяти".
16 000 х 16 000 создался, но при сохранении выдал тот же недостаток.

[mutabor]

А ну ка, считаем, если 24 битный (3 байта), то 32768 * 32768 * 3 = ровно 3 ГБ.
У тебя есть 3 ГБ свободной виртуальной памяти?

з.ы. Если хочешь непременно такой огромный битмап, пиши его сразу в файловый поток на диск, если у тебя NTFS, то можешь писать пока место не закончится
Если в Линуксе работаешь, то я не помню какие там ограничения на размер файла в файловых системах.

[Alex Cones]

Если хочешь непременно

Хочу.

пиши его сразу в файловый поток

А можете показать, как?

[mutabor]

Придется отказаться от всяких оболочек в виде TBitmap, и создавать битмап ручками, и по мере создания сразу писать его на диск, а не в память. В Delphi есть удобная штука TFileStream, он вполне подходит для той части к-рая будет писать на диск. Я даже название для него придумал TStreamBitmap Кстати погугли это название, мало ли

p.s. Конечно ни о какой скорости речи быть не может, сам понимаешь, запись на диск и чтение операции не из самых быстрых.

[Alex Cones]

Хм... Пеинт не создает 16 000 х 16 000. Не возникнет ли ситуация, что я не смогу открыть созданный файл?
Может есть обходной путь?

Я выкачал карты яндекса и теперь делатю так, чтобы этими "кусочками" можно было пользоваться. Что посоветуете?

[mutabor]

Я не знаю точно спецификации на виндовый битмап (был еще битмап для OS/2), есть ли ограничения на размеры и какие они. Знаю что есть разные версии битмапа, последняя кажется пятая, но очень смутно припоминаю. Все это можно глянуть где нибудь на MSDN я думаю.

Если ограничений нет, то созданный файл можно будет открыть, но... лет через десять, когда памяти у всех будет по 100 гигов А пока его можно будет открыть только вашим софтом (к-рый будет динамически подгружать из файла нужные куски).

Я выкачал карты яндекса и теперь делатю так, чтобы этими "кусочками" можно было пользоваться. Что посоветуете?

Следить за исп. памятью (во время разработки я имею ввиду), динамически подгружать по кускам с диска, это в любом случае быстрее, чем если у юзера память заканчивается (ну не купил он еще себе 2 гига, и файл подкачки небольшой у него, и вообще он не знает что это такое) и наступает такой тормоз (система начинает перераспределять память) что мало не покажется
Можно сделать умную систему, к-рая сперва проверит как дела с памятью обстоят, и затем будет в зависимости от этого регулировать свои аппетиты, а значит и скорость работы.

Оч. интересно, а в каком формате карты? Какой-то один город, или побольше?

p.s. Посмотрел сколько Дубль гис кушает (это десктоп программа, карта города в ней), не более 100 мб, независимо от масштаба. Я думаю там вектор, это все объясняет, я и забыл совсем, в растре никто карты не делает.

[Alex Cones]

На то, что стоит у юзверя лично мне в данном случае наплевать, поскольку этими картами буду пользоваться я и мой сотоварищ с памятью в 2 раза больше моей (у меня 2, у него 4).

Карты в таком масштабе - весь мир в размерах:
256 х 256 (сохранено)
512 х 512 (сохранено)
1024 х 1024 (сохранено)
2048 х 2048 (сохранено)
4096 х 4096 (сохранено)
8192 х 8192 (сохранено)
16384 х 16384 (пока в кусочках по 256 х 256)
32768 х 32768 (аналогично)
65536 х 65536 (аналогично. Основная цель - получить эту карту в юзабельном виде)

последняя кажется пятая

typedef struct { 
  DWORD        bV5Size; 
  LONG         bV5Width; 
  LONG         bV5Height; 
  WORD         bV5Planes; 
  WORD         bV5BitCount; 
  DWORD        bV5Compression; 
  DWORD        bV5SizeImage; 
  LONG         bV5XPelsPerMeter; 
  LONG         bV5YPelsPerMeter; 
  DWORD        bV5ClrUsed; 
  DWORD        bV5ClrImportant; 
  DWORD        bV5RedMask; 
  DWORD        bV5GreenMask; 
  DWORD        bV5BlueMask; 
  DWORD        bV5AlphaMask; 
  DWORD        bV5CSType; 
  CIEXYZTRIPLE bV5Endpoints; 
  DWORD        bV5GammaRed; 
  DWORD        bV5GammaGreen; 
  DWORD        bV5GammaBlue; 
  DWORD        bV5Intent; 
  DWORD        bV5ProfileData; 
  DWORD        bV5ProfileSize; 
  DWORD        bV5Reserved; 
} BITMAPV5HEADER, *PBITMAPV5HEADER;

[mutabor]

В любом случае лучше вектор (хотя, смотря какая карта). А если растр, как например на том же гугле вид со спутника, то там тайлами сделано, подгружается нужный кусок, если перетянул карту дальше, тот убирается (или в кэш, но лучше убрать) и подгружается новый, при изменении масштаба либо генерируются на лету растры из какого-то одного, либо под каждый масштаб своя база.

Основная цель - получить эту карту в юзабельном виде

Технически это не проблема. Я выше уже писал как это сделать, основная идея - подгружать с диска нужные куски в память. И даже не обязательно иметь один огромный файл, вполне подойдет база из небольших, так даже удобнее, не придется класс специально писать для работы с этим огромным файлом, а вполне можно обычный битмап юзать.

65536 х 65536 это 12 гб в общем. Если разбить его штук на 50, то будет в самый раз.

Я бы написал такой класс, в к-ром есть метод Загрузить и параметры
TBitmap - битмап приемник
и координаты в каком-то виде
При вызове этой функции она высчитает в каком/каких файле/файлах находится нужный кусок, и загрузит этот файл/файлы, и нужное скопирует в битмап приемник, к-рый можно будет обычным способом отображать. При каждом более менее большом сдвиге карты придется вызывать все время этот метод, а иначе никак, 12 гб растра в память никак не загрузишь.