fcl-image

[bw]

Привет.
Не нашел документации на пакет fcl-image, может я неправильно его "готовлю", но моя png (800x600) загружается ~3 минуты.
Вот код:

Код: Выделить всё

var
  Stream: TStream;
  IReader: TFPCustomImageReader;
  Image: TFPCustomImage;
begin
  Stream := TFileStream.Create('tasks.png', fmOpenRead);
  Image := TFPMemoryImage.Create(800, 600);
  IReader := TFPReaderPNG.Create;
  IReader.ImageRead(Stream, Image);
  Stream.Free;


Где я гоню?

..bw

[shade]

Да, ридер PNG в fcl-image очень медленый я тоже от этого страдал.

Как лечить? Наверное, только оптимизацией fpreadpng...

PS:

Код: Выделить всё

Image := TFPMemoryImage.Create(0, 0);
Image.LoadFromStream(Stream);

(или (1, 1) вместо (0, 0)...)

[SovNarKom]

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