Einzelnen Beitrag anzeigen

Benutzerbild von Schatzy
Schatzy

Registriert seit: 9. Aug 2006
Ort: Nähe HH
9 Beiträge
 
Delphi 6 Professional
 
#1

Anzeigen & NamedDest in PDF File mit ActiveX/AcroPDF

  Alt 9. Aug 2006, 11:51
Halllöööchen,

ich hab ein Problem mit der Anwendung von ActiveX/AcroPDF.
Öffnen lässt sich die gewünschte PDF mit
 myPDF70.LoadFile('gewuenschteFile.pdf'); Aber nun möchte ich an eine gewünschte Stelle im Dokument Springen.
Dies soll laut Doku folgendermaßen ablaufen:
Zitat:
SetNamedDest
void setNamedDest(BSTR szNamedDest);
Description
Changes the page view to the named destination in the specified string.
szNamedDest = The named destination to which the viewer will go.
Allerdings wird beim Öffnen des PDF die zuletzt angezeigte Seite geöffnet.

Hier mal mein Source:
Delphi-Quellcode:
unit GoToAcro_Set;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }

    aPDF_myPDF70 : TAcroPDF;
    b_myPDF70Created : boolean;
    s_param_Document, s_param_Location : string;

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

 s_param_Document := Paramstr(1);
 s_param_Location := ParamStr(2);

 try

   aPDF_myPDF70 := TAcroPDF.Create(self);
   aPDF_myPDF70.Parent := Form1;
   aPDF_myPDF70.Align := alclient;
   
   aPDF_myPDF70.setViewScroll('Fit',10.0);

   aPDF_myPDF70.LoadFile(s_param_Document);

   if (s_param_Location >= '0') and (s_param_Location <= '9') then
     aPDF_myPDF70.setCurrentPage(strtoint(s_param_Location))
     else
       //* hier liegt das Problem. Es wird nicht ausgeführt!!
       aPDF_myPDF70.setNamedDest(s_param_Location);

   b_myPDF70Created := true;

  except

    b_myPDF70Created := false;
    aPDF_myPDF70.Free;
    ShowMessage('Keine gültigen Parameter');

  end;

end;

end.
Kann mir jemand sagen woran dies liegen kann....
bin hier schon total am verzweifeln

LG Schatzy
Jacqueline
Die drei natürlichen Feinde des Programmierers:
Sonnenlicht, Frischluft und das unerträgliche Gebrüll der Vögel
  Mit Zitat antworten Zitat