Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TPngImageList

Автор: h5who 6.4.2008, 11:02

TPngImageList из PngComponents.

У меня есть собственный бинарный формат файла в котором хранится png-графика (в файле просто подряд идущие png-картинки с префиксом в виде информации о картинке).

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

В цикле считываю данные из файла, а потом добавляю в PngImgList:

Код


  PngImg := TPNGObject.Create;
  PngImg.LoadFromStream(MS);
  try
    PngImgList.PngImages.Add.PngImage := PngImg;
  finally
    PngImg.Free;
  end;

Но это очень долго происходит. Именно на этапе:

Код


PngImgList.PngImages.Add.PngImage := PngImg;

Если убрать эту строчку - происходит достаточно быстро все, т.е. само считывание из файла работает нормально.

Что посоветуете?

Спасибо.