| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

out of memory

Nutz ©   (2009-11-09 19:02:00) 

в memorystream пытаюсь записать некоторые данные. Вот например:

 B: array [0..65535*256] of Byte;

procedure TForm1.Button1Click(Sender: TObject);
var
 I, T: Integer;
begin
 T := GetTickCount;
 M := TMemoryStream.Create;
 try
   for I := 1 to 10000 do
     M.Write(B, SizeOf(B));
 finally
   M.Free;
   ShowMessage(format('öèêëîâ: %d; âðåìÿ: %d', [I, GetTickCount - T]));
 end;
end;

В определенный момент вылетает out of memory. В чем проблема и как исправить

---

Anatoly Podgoretsky   (2009-11-09 19:59:00) [1]

> Nutz  (09.11.2009 19:02:00)  [0]

А память не лопнет от таких объмов.

---

Игорь Шевченко   (2009-11-09 19:08:00) [2]

Проблема в коде. 10000 по 16*256 килобайт будет сколько ? правильно, 40 гигабайт.
для MemoryStream сколько доступно ? Правильно, меньше 2-х гигабайт.
Чего ты еще хочешь таким кодом ?

---

Наверх