GDI + tif - MultiPage - Bild wird dunkler

[bernhard_LA]

beim extrahieren aller Pages aus einer tif DAtei , sind jetzt die einzelnen Bitmaps sehr viel Dunkler abspeicherts als das Original
kann ich hier mit GDI + den ursprünglichen Wert beibehalten ?


erster Post zu diesem Thema ( http://www.delphipraxis.net/169243-e...ml#post1173787 )

[Bummi]

hast Du mal probiert was passiert wenn Du sie als PNG's speicherst, gegf. hat es etwas mit den TEncoderParameters zu tun, ich habe diese bisher nie gebraucht ...
die Grundsätzlich Verwendung funktioniert wohl so

Delphi-Quellcode:

        Wert := 2;
        encoderParameters.Count := 1;
        encoderParameters.Parameter[0].Guid := EncoderCompression;
        encoderParameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;
        encoderParameters.Parameter[0].NumberOfValues := 1;
        encoderParameters.Parameter[0].Value := @Wert;

[bernhard_LA]

er ändert den DPI Wert und die Farbtiefe , probiere den Tipp mit png mal aus

[bernhard_LA]

der Farbrange wird von 74 ..... 180 auf 90 ...110 zusammengefahren,

[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;

[bernhard_LA]

haben einen interessanten link für DELPHI und GDI+ gefunden http://trac.assembla.com/delphiexter...Decoders?rev=1


bin noch am lesen und experimentieren