VPF::сохранить 90 000 иконок (ZipForge) - Форум программистов

JS2

Дата 10.11.2009, 15:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 25.3.2009

Репутация: нет
Всего: нет

столкнулся с проблемой:

необходимо сохранить порядка 90 000 иконок (размер около 3 кб) товаров в архив. Делаю примерно так:

Код


procedure TForm1.Button1Click(Sender: TObject);
const
  Path = 'C:\Program Files\images\';
var
  F, F2: TFileStream;
  FN: string;
  I, T: Integer;
begin
  T := GetTickCount;
  F := TFileStream.Create('D:\Test.zip', fmCreate);
  try
    ZipForge1.OpenArchive(F, True);
    try
      ZipForge1.BeginUpdate;
      try
        ZipForge1.
        for I := 1 to 90000 do
        begin
          Application.ProcessMessages;

          FN := Format('icon%d.jpg', [I]);
          F2 := TFileStream.Create(Path + FN, fmOpenRead or fmShareDenyNone);
          try
            ZipForge1.AddFromStream(FN, F2);
          finally
            F2.Free;
          end;

          if I mod 500 = 0 then
            Caption := 'Иконок в архиве: ' + IntToStr(I);

        end;
        ZipForge1.EndUpdate;

      except
        ShowMessage('Call ZipForge.CancelUpdate');
        ZipForge1.CancelUpdate;
      end;
    finally
      ZipForge1.CloseArchive;
    end;
  finally
    F.Free;
    ShowMessageFmt('Время: %d', [GetTickCount - T]);
  end;
end;

Не хватает памяти. переодически появляется out of memory. Как исправить?

cemick

Дата 12.11.2009, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: 2
Всего: 6

1. Попробовать другой архиватор, например, я бы порекомендовал Abbrevia
2. В каком месте падает с out of memory?
3. Что с памятью в системе? Сколько свободной, сколько съедает процесс?
4. Попробовать в несколько этапов запаковать

Это сообщение отредактировал(а) cemick - 12.11.2009, 11:42

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »