PDF-Dokumente aus Delphi drucken

[Alexander]

Gibt es vielleicht sowas wie Update oder so?

[fredi]

Hallo Leute,
wichtig: das activex-controll funktioniert nur mit Adobe Acrobat 4.0 zusammen wirklich gut.
dann ist das laden, drucken etc. kein problem.
Laden geht dann so:
if OpenDialog1.Execute then
begin
PDF1.src:=OpenDialog1.FileName;
PDF1.LoadFile(OpenDialog1.FileName);

fredi

[jziersch]

Von der WPCubed GmbH ("wPDF, "WPTools") gibts seit 1.10.2003 ein control das PDF Dateien anzeigt und auch ausducken kann: WPViewPDF.
Es erfordert keinen Acrobat und auch keine OCX registrierung, ist in der standard version allerdings als DLL implementiert (was es auf der anderen Seite aber einsetzbar unter Delphi, .NET, VC .. macht).
Eine demo steht zum Download bereit unter
http://www.wpcubed.com/products/pdfviewer/index.htm

Grüsse,
Julian Ziersch

[hacki]

Hey Leute,

kleines Update ! Ich hab's nun zum funzen gebracht: Der "Trick" daran ist, das die Darstellung des PDF's in der auf die Form gezogenen Komponente erfolgt. Man muß die Komponente entsprechend plazieren und auf die vorgesehen Grösse bringen - dann kann man es auch sehen

:oops: leider hatte ich die Komponente so minimiert, daß ich nichts darin sehen konnte.

Also es funzt !

Was aber muß man bei einer Programmauslieferung beachten ? Muß man das PDF.ocx mit ausliefern ? Muß man irgendetwas registrieren (was und wie) ? Oder ???


Danke für Eure Hilfe

hacki

[Alexander]

Das ist jetzt auch wieder ne rechtliche Frage...
Denn ich weiß nicht, ob du diese OCX Datei einfach so weitergeben darfst.
Aber du kannst ja einfach sagen, der Acrobat Reader muss installiert sein bzw. bei der Installation mit installieren....

[hacki]

Wie kann man denn aus dem Prog abfragen, ob der Acrobat Reader installiert ist ? Falls nicht installiert -> kann ja dann ein Meldungsfenster mit dem entsprechenden Hinweis aufpoppen.

Jemand eine Anhnung ?

[Matze]

Delphi-Quellcode:

function IsAcrobatInstalled: Boolean;  //Adobe Acrobat Reader
var reg: TRegistry;
begin
  Result := false;
  reg := TRegistry.Create(KEY_READ);
  with reg do
  begin
    try
      RootKey := HKEY_CLASSES_ROOT;
      if OpenKey('CLSID\{CA8A9780-280D-11CF-A24D-444553540000}', False)
        then Result := true
    finally
      CloseKey;
      Free
    end
  end
end;

[hacki]

Super vielen Dank,

es funzt !!

grüsse
hacki

[Glühwürmchen]

Hallo Allerseits,

habe da ein ganz ähnliches Problem, bin aber, wie's scheint, etwas Begriffsstutzig: http://www.delphipraxis.net/images/smiles/gruebel.gif
Grübelnd...

Ich möchte mir aus einem Delphi-Programm heraus eine Informationsmappe drucken. Die einzelnen Seiten der Mappe sind fertige PDF-Dokumente, Excel-Tabellen und Word-Dokumente. Wenn ich auf meinem Formular den Drucken-button drücke, soll der Drucker der Reihe nach alle Seiten dieser Info-Mappe drucken, ohne noch mal extra nachzufragen, wo denn die Dateien liegen.

Fakt ist: Ich kriege das Programm nicht mal dazu mir eine solche Seite anzuzeigen, geschweige denn auszudrucken.

Oben genannten Quellcode habe ich einfach mal kopiert

Delphi-Quellcode:

if OpenDialog1.Execute then
begin
PDF1.src:=OpenDialog1.FileName;
PDF1.LoadFile(OpenDialog1.FileName);

mit dem Erfolg, daß beim Start des Programmes der Acrobat Reader gestartet wird. Was dann passiert finde ich etwas seltsam: Der Acrobat Reader und mein Programm werden klamm heimlich wieder geschlossen. Mein Formblatt habe ich gar nicht zu Gesicht bekommen.

Kann mir jemand sagen, was ich tun muß, daß das geht?
Wie müßte der Code aussehen, eine Seite auszudrucken?

Gruß
Glühwürmchen

[edit=sakura][delphi]-Tags gesetzt. Mfg, sakura[/edit]

[fredi]

du mußt auf alle fälle eine schleife bauen die durch das zielverzeichnis skipt
und wenn es ein pdf findet, laden und drucken.
Einfach so:

Delphi-Quellcode:

  with Pdf1 do
    begin
    LoadFile(myfile);
    print;
    end;

Ist deine importierte OCX aus dem installierten AcrobatReader ?
Die Versionen müssen zusammenpassen !

fredi

[edit=sakura][delphi]-Tags gesetzt. Mfg, sakura[/edit]