PDF Dolument mit delphi öffnen

[The_Tremendous]

HI.

Ich will mit einem Klick auf Hilfe ein PDF Dokument öffnen.

Wie mache ich das denn mit Delphi???



The_Tremendous

[Luckie]

Shellexecute wäre eine Möglichkeit, setzt aber voraus, dass der Adobe Acrobate Reader auf dem Zielsystem installiert ist.

[PierreB]

Das machst du mit ShellExecute:

Code:

ShellExecute(Application.Handle, 'open', pchar('test.pdf'), nil, PChar('c:\'),                      sw_ShowNormal);

Dann wird das PDF mit der Standardanwendung (meist Adobe Acrobat) geöffnet.

Wenn du aber ein PDF direkt in dein Programm einfügen willst, such mal bei torry nach pdf komponenten.

[The_Tremendous]

hm.. also irgendwie hilft mir das net weiter. Sorry ich bin noch Programmier Anfänger.

Also angenommen ich habe ein menü und mit klick auf den menüpunkt hilfe soll das pdf dkokument hilfe.pdf geöffnet werden. Dieses liegt unter ..\Dokumente\
--> ich hoffe man kann da relative Pfade verwenden

Wie müsste ich das dann realisieren??


Gurß The_Tremendous

[Sharky]

Zitat von The_Tremendous:

....--> ich hoffe man kann da relative Pfade verwenden....

Hai The_Tremendous,
besser ist es sich den Pfad zu holen wo das eigene Programm liegt und dann den "relativen Pfad" drann zu hängen.
Das sähe dann z.B. so aus:

Delphi-Quellcode:

uses
 ShellApi;

procedure TForm1.Hilfe1Click(Sender: TObject);
var
  ap_pfad : String;
begin
  ap_pfad := ExtractFilePath(Application.ExeName); // Pfad zur Anwendung
  ap_pfad := ap_pfad + 'Dokumente\hilfe.pdf'; // Pfad zur Hilfe anhängen
  ShellExecute(Handle, 'open', pchar(ap_pfad), nil, nil,SW_SHOW);
end;

[Akut-Programming]

Du musst eigentlich nur die WinApi in die Uses-Sektion deiner Anwedung einbinden und dann wie delphman schon sagte einfach im OnClick deines Menüpunktes den ShellExecute Befehl angeben.
ShellExecute(Application.Handle, 'open', pchar('test.pdf'), nil, PChar('c:\', sw_ShowNormal); Ob du relative Pfade verwenden kannst weiß ich jetzt nicht. Wenn der Order "Dokumente" aber im Order liegt, wo sich auch die exe befindet, kannst du es mit dem Befehl
ExtractFilePath(Application.ExeName) machen.

Wenn ich da jetzt richtig liege sollte der komplette ShellExecute Befehl also so ausehen..
ShellExecute(Application.Handle, 'open', pchar(ExtractFilePath(Application.ExeName)+'Dokumente\test.pdf'), nil, nil,sw_ShowNormal);

[The_Tremendous]

Ok jetzt funktioniert es. Danke

[kiar]

hallo the _tremendous,

vorher solltest du aber mit
dem
prüfen ob der acrobat reader installiert ist.

Raik

[Sharky]

Zitat von kiar:

... du aber mit
mit
prüfen ob der acrobat reader installiert ist....

Hai Raik,
der Link geht nicht

[kiar]

hallo hai,

jetzt passt er

raik