GDI + tif - MultiPage - Bild wird dunkler

[Bummi]

Die Auflösung wird ja standardmäßig auf 32 Bit aufgezogen, vielleicht hast Du Lust mit folgendem Schnipsel zu experimentieren?

Delphi-Quellcode:

procedure TForm5.Button2Click(Sender: TObject);
var
   encoderClsid: TGUID;
   MulitFrameImage: TGPImage;
   PageIndex : Integer;
   NewFilename : String;
   dest:TGPBitmap;
   G:TGPGraphics;
begin

    MulitFrameImage := TGPImage.Create('C:\temp\MultiFrame.tif');


    GetEncoderClsid('image/png', encoderClsid);
    for PageIndex:= 0 to GetFrameCount(MulitFrameImage) - 1 do
    begin
        MulitFrameImage.SelectActiveFrame(FrameDimensionPage, PageIndex);
                                                                                  //>> hier ist Platz zum expriementieren
        dest:=TGPBitmap.Create(MulitFrameImage.GetWidth,MulitFrameImage.GetHeight,PixelFormat16bppRGB565);
        g := TGPGraphics.Create(dest);
        g.DrawImage(MulitFrameImage,MakePoint(0,0));
        NewFilename := 'c:\temp\b' + IntToStr(pageIndex)+'.png';
        dest.Save( WideString(NewFilename), encoderClsid, nil );
        g.Free;
        Dest.Free;
    end;
   MulitFrameImage.Free;
end;