GDI + tif - MultiPage - Bild wird dunkler

[Bummi]

PNG:
mit PixelFormat8bppIndexed
dest.Save( WideString(NewFilename), encoderClsid, nil );

kommt es bei mir wie erwartet mit 8-Bit

wenn ich einen Encoder 'image/bmp'
geht PixelFormat16bppRGB565 , bei PNG nicht (wird 32-bit)

Ich bin nicht der Experte was die Formate angeht ....

[bernhard_LA]

@Bummi : * Unterscheidet sich Dein Code von meiner Routine ?
kann leider die Tif Datei nicht Public machen

* Was wäre denn der beste Weg das ganze als TBitmap zu speichern

[Bummi]

Bei mir sind die encoderParameters nil ...,da ich als PNG bzw. BMP ausgebe

[bernhard_LA]

Hallo Zusammen,

vielen Dank für die echt guten Hinweise in den ganzen Threads zum Thema TIF , GDI+, Array[0..0]. Leider läuft mein Programm mit meinen Tif Bildern immer noch nicht.
Ich habe meine Aufgabe über einen Umweg (Handarbeit) gelöst, das Demo Projekt zum Thema "Tif Splitter" habe ich unter https://sourceforge.net/projects/tiffsplitdemo/ veröffentlich, vielleicht hilft es anderen oder jemand sieht noch das Problem..

Grüße

B.

[Gernot Huber]

Hallo,

versuch es mal hiermit:

Delphi-Quellcode:

procedure ExtractTiffPages(aFileName: string);
var
  encoderParameters : TEncoderParameters;
  parameterValue    : TEncoderValue;

  image             : TGPImage;
  count, frameCount : UINT;
  DimensionIDs      : PGUID;
  i, j              : integer;
  encoderClsid      : TGUID;
  OutFile           : string;
  FilePath          : string;

type
  TGUIDDynArray = array of TGUID;

begin
  FilePath := ExtractFilePath(aFileName);

  Image := TGPImage.Create(aFileName);

  // Initialize the one EncoderParameter object.
  encoderParameters.Count := 1;
  encoderParameters.Parameter[0].Guid := EncoderCompression;
  encoderParameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;
  encoderParameters.Parameter[0].NumberOfValues := 1;
  encoderParameters.Parameter[0].Value := @parameterValue;
  parameterValue := EncoderValueCompressionLZW;

  // How many frame dimensions does the Image object have?
  count := image.GetFrameDimensionsCount;
  GetMem(DimensionIDs, count * SizeOf(TGUID));

  // Get the list of frame dimensions from the Image object.
  image.GetFrameDimensionsList(DimensionIDs, count);

  GetEncoderClsid('image/tiff', encoderClsid);

  for i := 0 to count - 1 do
  begin
    // Get the number of frames in dimension.
    frameCount := image.GetFrameCount(TGUIDDynArray(DimensionIDs)[i]);
    for j := 0 to frameCount - 1 do
    begin
      OutFile := FilePath + IntToStr(i) + '-' + IntToStr(j) + '.tif';

      image.SelectActiveFrame(TGUIDDynArray(DimensionIDs)[i], j);
      image.Save(OutFile, encoderClsid, @encoderParameters);
    end;
  end;

  freemem(DimensionIDs);
  image.Free;
end;

Hierbei sollten die Farben erhalten beleiben.

Gruß
Gernot