tif Anzahl der Pages auslesen

[bernhard_LA]

um aus einer tif die einzelnen tif auszulesen gibt es einen Sample code hier http://www.delphipraxis.net/169243-e...ml#post1173787


wo steht denn im Datentyp encoderParameters: TEncoderParameters die Anzahl der Pages einer tif Datei drinnen ?

[Bummi]

Meinst Du das?

Delphi-Quellcode:

function GetFrameCount(img : TGPImage) : integer;
var
  dim : integer;
  DimensionID : PGUID;
type
  GuidArray = array of TGUID;
begin
  dim := img.GetFrameDimensionsCount;
  GetMem(DimensionID, SizeOf(TGUID) * dim);
  img.GetFrameDimensionsList(DimensionID, dim);
  Result := img.GetFrameCount(GuidArray(DimensionID)[0]);
  FreeMem(DimensionID);
end;

[bernhard_LA]

Genau diese Funktion - Super !! & Danke !!