tif Anzahl der Pages auslesen

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