Læse sidetal i PDF

Jeg har fundet noget på nettet, som jeg måske kan bruge.

Er der nogen der kan fortælle mig hvor jeg kan finde acrobat.tlb

http://delphi.about.com/cs/howto/ht/htpdf.htm

Stoney

Den har jeg været inde at kikke på, men jeg kan ikke finde ud af hvordan jeg får antallet af sider.

jeg har fundet nedenstående på nettet men jeg har ikke acrobat_tlb.

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, acrobat_tlb;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


var
  Form1: TForm1;

implementation

uses ComObj;

{$R *.dfm}
{$TYPEDADDRESS OFF} //muss so sein (this have to be)
var
  PDDoc: Acrobat_TLB.CAcroPDDoc;
  PDPage: Variant;
  PDHili: Variant;
  PDTextS: Variant;
  acrobat: Variant;
  Result: Boolean;
  NTL, i, j, Pagecount: Integer;
  zeilen: string;
  stichwortcounter: Integer;
  Size: Integer;
  gesamtstring: AnsiString;
  zwreal: Real;

procedure TForm1.Button1Click(Sender: TObject);

  function removecrlf(workstring: string): string;
  var
    i: Integer;
  begin
    removecrlf := '';
    for i := 0 to Length(workstring) do
    begin
      if workstring[i] = #13 then workstring[i] := ' ';
      if workstring[i] = #10 then workstring[i] := ' ';
    end;
    removecrlf := workstring;
  end;

begin
  if not opendialog1.Execute then Exit;

  memo1.Clear;
  gesamtstring := '';
  stichwortcounter := 0;
  Size := 0;
  try
    //Object erstellen
    acrobat := CreateOleObject('AcroExch.pdDoc');

    //PDF Datei in Object öffnen
    Result := acrobat.Open(opendialog1.FileName);

    if Result = False then
    begin
      messagedlg('Kann Datei nicht öffnen', mtWarning, [mbOK], 0);
      Exit;
    end;

    for j := 0 to acrobat.GetNumPages - 1 do
    begin
      memo1.Lines.Add('----------------------------------------------');
      //Erste Seite des Dokuments aktiv setzen  (first page)
      PDPage := acrobat.acquirePage(j);

      //Ein Highlight Object mit 2000 Elementen erzeugen
      PDHili := CreateOleObject('AcroExch.HiliteList');
      Result := PDHili.Add(0, 4096);

      //Erzeuge eine Markierung über den ganzen Text
      PDTextS := PDPage.CreatePageHilite(PDHili);

      ntl := PDTextS.GetNumText;

      for i := 0 to ntl - 1 do
      begin
        zeilen := PDTextS.GetText(i);
        if (Length(zeilen) > 0) and (zeilen <> '') then
          memo1.Lines.Add(removecrlf(zeilen));
        gesamtstring := gesamtstring + removecrlf(zeilen);
        //nur für statistik
        Size := Size + SizeOf(zeilen);
        Inc(stichwortcounter);

        Application.ProcessMessages;
      end;

      //Wieder freigeben
      pdhili        := Unassigned;
      pdtextS        := Unassigned;
      pdpage        := Unassigned;
      label2.Caption := IntToStr(stichwortcounter);
      label4.Caption := IntToStr(Size);
      label2.Refresh;
      label4.Refresh;
    end; //for i to pagecount


  except
    on e: Exception do
    begin
      messagedlg('Fehler: ' + e.Message, mtError, [mbOK], 0);
      Exit;
    end;
  end;
  if Size > 1024 then
  begin
    zwreal := Size / 1024;
    str(zwreal: 2: 1,zeilen);
    label4.Caption := zeilen;
    label5.Caption := 'KB';
  end;
  memo1.Lines.SaveToFile(Extractfilepath(Application.exename) + '\debug.txt');
end;

end.

acrobat_tlb får du ved at følge
http://delphi.about.com/cs/howto/ht/htpdf.htm

Jeg har fulgt http://delphi.about.com/cs/howto/ht/htpdf.htm men jeg får følgende fejl

[Fatal Error] main.pas(36): File not found: 'acrobat_tlb.dcu'

og jeg har ledt hele hd igennem og der ligger ikke nogen 'acrobat_tlb.dcu'

nogen forslag

du har selvfølgelig en PDF reader instaleret på din maskine ikke?

efter du har fulgt http://delphi.about.com/cs/howto/ht/htpdf.htm får du et nyt komponent under activeX der hedder acroPDF, denne skal du have på dit projeckt

Jo, jeg har pdf reader.

Jeg har kikket på acroPDF, men jeg kan ikke se hvordan jeg kan få sideantallet ud fra en pdf fil.

der var det jo du skulle bruge den kode så viser ovenfor

ups
der var det jo du skulle bruge den kode som du viser ovenfor

ja, men jeg får stadig fejl acrobat_tlb.dcu ikke fundet.

Den komponent, som jeg får på fanebladet activeX hedder AcroPDFLib_tlb.

Jeg får problemer med linien PDDoc: Acrobat_TLB.CAcroPDDoc;

Det kræver tilsyneladende store tilrettelser, så det må jeg se på.

Er der nogen i det ganske land, som kan hjælpe mig med at få ovenstående kode til at virke - gerne sammen med activeX componenten.

Det er kun side antal, som jeg skal bruge alt andet er ligegyldigt.

HJÆLP.

Jeg har løst problemet ved at downloade

PDFXpress - Professional - V1.0  fra

http://www.componentsource.com/catalog.asp?sc=CS&ec=&option=12996&fl=&RC=CS_P_S_C_RL&sr=pdf+delphi&POS=1&bc=BUSFUNCPDFCO&cv=re&PO=515550&gf=+BUSFUNCPDFCO&ul=en&SERC=GG_PDF&ml=en&vw=T14&bhcp=1

Vallemanden og stoney -> hvis i vil have nogle points, skal jeg have nogle svar.

Jeg lukker