Hilfe zu IThumbnailProvider

[himitsu]

Problem an TJpegImage und Co. ist oft, dass selbst bei Zoom, oftmals die Bilder zuerst in ein TBitmap gezeichnet und anschließend gestrecht werden,
anstatt gleich gestrecht in das Temp-Bitmap gezeichnet zu werden.

Drum hat Delphi, z.B. im TImage, mit großen Bildern (JPEG,PNG,TIFF) oft Probleme.
z.B. siehe TWICImage, denn die WIC-API (Windows Imaging Component) ist eigentlich speziell für die stückchenweise Behandlung extrem großer Bilder sehr speichersparend optimiert .... man müsste nur die API richtig benutzen.

Ich hab hier einen netten Testfall, wo eine technische Zeichnug als TIFF nur wenige 100 KB groß ist, aber beim Versuch ein Vorschaubild zu bekommen, da rauchen die Delphi-Klassen bei ab, weil als Bitmap ist das Ding rießig.

[Benmik]

Zitat von himitsu:

Problem an TJpegImage und Co. ist oft, dass selbst bei Zoom, oftmals die Bilder zuerst in ein TBitmap gezeichnet und anschließend gestretcht werden,...

Das ist interessant, denn ich beobachte bei meiner Methode, dass die 16 GB bis an den Rand vollaufen, was so erstmal nicht verständlich ist. 1920 x 1080 müssten als Bitmap etwa 6 MB sein, das kann doch eigentlich 16.000 MB nicht auslasten, zumal sie ja nach dem Zeichnen sofort freigegeben werden.

Was käme denn als Alternative in Frage? Ich muss da wohl noch ein bisschen forschen.

[Benmik]

Zitat von himitsu:

z.B. siehe TWICImage...

Das war ein wunderbarer Hinweis. Ich habe mal probehalber auf TWICImage umgestellt und siehe da, plötzlich sind alle 24 Kerne voll ausgelastet und die Speicherbefüllung steigt langsam und linear bis auf 65% und verharrt dann dort; und das trotz einiger Umkopiererei. Sehr nützlich war diese Routine von hier ("High quality bitmap resize with transparency"):

Delphi-Quellcode:

Uses
  Winapi.Wincodec,
  Vcl.Graphics;

procedure ResizeBitmap(Bitmap: TBitmap; const NewWidth, NewHeight: integer);
var
  Factory: IWICImagingFactory;
  Scaler: IWICBitmapScaler;
  Source : TWICImage;
begin
  Bitmap.AlphaFormat := afDefined;
  Source := TWICImage.Create;
  try
    Factory := TWICImage.ImagingFactory;
    Source.Assign(Bitmap);
    Factory.CreateBitmapScaler(Scaler);
    Scaler.Initialize(Source.Handle, NewWidth, NewHeight,
      WICBitmapInterpolationModeHighQualityCubic);
    Source.Handle := IWICBitmap(Scaler);
    Bitmap.Assign(Source);
    Scaler := nil;
    Factory := nil;
  finally
    Source.Free;
  end;
end;

Dieses TWICImage muss ich mir noch genauer anschauen.

[himitsu]

Der Scaler ist zwar nicht der Schnellste (gegenüber Anderem z.B. aus GDI+)
aber er arbeitet in kleinen Blöcken und braucht selber somit kaum Speicher.
Nur blöd, wenn Delphi selber ihn garnicht verwendet und stattdessen ein TBitmap nimmt und dort über TCanvas kopiert/skaliert.
Auch schmeißen sie direkt nach dem Laden viele Interfaces sofort wieder weg, so daß man sich selber Vieles wieder unnötig neu erstellen muß.