PDF Dateien, Seitenzahlen ermitteln.

[Bernhard Geyer]

Zitat von ASM:

Zur Nutzung für den eigenen, privaten Gebrauch wird es auf Grund der GPL-Lizenz, unter der Angus den Code freigegeben hat, jedoch keine "viralen" Probleme geben.

Ob der Thread-Ersteller den gleichen Einsatzfall hat ...

[Andreas2k]

Zitat von Bernhard Geyer:

Zitat von ASM:

Zur Nutzung für den eigenen, privaten Gebrauch wird es auf Grund der GPL-Lizenz, unter der Angus den Code freigegeben hat, jedoch keine "viralen" Probleme geben.

Ob der Thread-Ersteller den gleichen Einsatzfall hat ...

Es geht nur um eine für mich, also private, Nutzung. Es ist also kein Programm zum verkauf oder ähnliches. Es soll mir nur intern die Arbeit erleichtern.

[Branco Wassmuth]

Falls das noch jemanden interessiert:
Ich habe mir vor einer Weile mal eine Funktion geschrieben,
mit der man ohne jegliche Zusatzkomponenten die Anzahl der
Seiten einer PDF-Datei ermitteln kann. Nutze ich jetzt seit
Jahren ohne Probleme. Falls es jemand braucht:

Delphi-Quellcode:

// --> Seitenzahl mit Hilfe der Verweise in der PDF-Struktur (Root -> Pages -> Count) ermitteln:
function GetPdfPageCount(pDateiMitPfad: string): integer;
var
   position, AnzVersuche: integer;
   puffer, pufferTemp, obj, gen: string;
   PosRichtig: boolean;
   DateiGroesse: LongInt;

   function IsNumber(pStr: string): boolean;
   var
      i, code: integer;
   begin
      val(pStr, i, code);
      if code <> 0 then result := False else result := True;
   end;

   procedure GetObjGen(pPuffer: string; pStartPos: integer; NurObj: boolean);
   var
      z: integer;
      KzFuellen: byte; // --> 1 = Variable "obj" füllen; 2 = Variable "gen" füllen
   begin
      KzFuellen := 1;
      obj := '';
      gen := '';

      // --> Werte für "obj" und "gen" ermitteln:
      for z := pStartPos to (pStartPos + 50) do
      begin
         if KzFuellen = 2 then
         begin
            if IsNumber(pPuffer[z]) then gen := gen + pPuffer[z] else break;
         end;

         if KzFuellen = 1 then
         begin
            if IsNumber(pPuffer[z]) then obj := obj + pPuffer[z] else KzFuellen := 2;
            if (KzFuellen = 2) and NurObj then break;
         end;
      end;
   end;
begin
   result := -5;

   try
      screen.cursor := crHourglass;

      // --> Datei einlesen:
      with TFileStream.Create(pDateiMitPfad, fmOpenRead) do
      try
         SetLength(puffer, Size);
         Read(puffer[1], Size);
         DateiGroesse := Size;
      finally
         Free;
      end;

      // --> "Root"-Eintrag suchen, z.B. "/Root 58 0" (58 = obj, 0 = gen):
      position := pos('/ROOT', AnsiUpperCase(puffer));
      if position = 0 then exit;

      // --> "Root"-Eintrag lesen:
      GetObjGen(puffer, position + 6, False); // --> Suche beginnen nach Leerzeichen hinter "Root"
      if (obj = '') or (gen = '') then exit;

      // --> Abschnitt mit "Pages"-Eintrag suchen:
      //     Da ein Eintrag mehrfach gefunden werden kann (bei der Suche nach "1 0 OBJ" wird z.B. auch die Stelle
      //     "11 0 OBJ" gefunden, usw.), ist die Suche auf max. 100000 Versuche begrenzt.
      PosRichtig := False;
      AnzVersuche := 0;
      pufferTemp := puffer;
      repeat
         inc(AnzVersuche);
         position := pos(obj + ' ' + gen + ' OBJ', AnsiUpperCase(pufferTemp));
         if position = 0 then exit;
         if (position <> 0) and (IsNumber(pufferTemp[position - 1]) = False) then PosRichtig := True;
         // --> Bereits durchsuchten Bereich am Anfang abschneiden
         pufferTemp := System.Copy(pufferTemp, position + 8, DateiGroesse);    
      until PosRichtig or (AnzVersuche = 100000);
      if PosRichtig = False then exit;

      // --> "Pages"-Eintrag suchen (erster Eintrag im verbliebenen pufferTemp-Bereich):
      position := pos('/PAGES', AnsiUpperCase(pufferTemp));
      if position = 0 then exit;

      // --> "Pages"-Eintrag lesen:
      GetObjGen(pufferTemp, position + 7, False);
      if (obj = '') or (gen = '') then exit;

      // --> Abschnitt mit "Count"-Eintrag suchen:
      PosRichtig := False;
      AnzVersuche := 0;
      pufferTemp := puffer;
      repeat
         inc(AnzVersuche);
         position := pos(obj + ' ' + gen + ' OBJ', AnsiUpperCase(pufferTemp));
         if position = 0 then exit;
         if (position <> 0) and (IsNumber(pufferTemp[position - 1]) = False) then PosRichtig := True;
         pufferTemp := System.Copy(pufferTemp, position + 8, DateiGroesse);
      until PosRichtig or (AnzVersuche = 100000);
      if PosRichtig = False then exit;

      // --> "Count"-Eintrag suchen:
      position := pos('/COUNT', AnsiUpperCase(pufferTemp));
      if position = 0 then exit;

      // --> "Count"-Eintrag lesen:
      GetObjGen(pufferTemp, position + 7, True);
      if obj = '' then exit;

      screen.cursor := crDefault;
      result := StrToInt(obj);
   except
      // --> Hier keine Fehlermeldung ausgeben (result = -5)
   end;
end;

[omata]

Zitat von Branco Wassmuth:

Falls das noch jemanden interessiert...

Hier mal eine Überarbeitung, ohne exit, break, with und globale Variablen.

Code entfernt, wegen schlauem Kommentar

[Furtbichler]

Wie wäre es, wenn Du Dich mehr mit aussagekräftigen Bezeichnern auseinandersetzt, anstatt sinnvolle und mächte Programmflusskontrollsequenzen wegzukürzen?

Clean Code lässt grüßen.

[omata]

Wenn du so schlau bist, dann mach es doch besser.

Clean Code: bezogen auf dummes Geblubber = Fresse halten

[Branco Wassmuth]

@omata:

Natürlich kann man die Funktion auch kürzer schreiben,
aber das geht meist nur auf Kosten der Lesbarkeit.
Daher ist mir eine "ausführlichere" Variante oftmals lieber...

Jeder Programmierer macht das ja eh anders und es gibt
sicher auch bessere Lösungswege.
(Dein Code würde mich trotzdem auch mal interessieren,
konnte ihn nicht mehr lesen...)

Aber ich wollte ja auch keinen Preis gewinnen, sondern einfach
mal die Idee weitergeben.
Ich bin selber immer froh, wenn ich ein Problem lösen will/muss
und ich finde ein paar Code-Beispiele in div. Foren.

Also keep cool und respektiert Euch alle gegenseitig.
Jeder von uns hat's doch auf seine Weise drauf!!