PDF-Export Ähnlich bie bei OpenOffice

[Maik81ftl]

Moin Moin,

Weiß jemand von euch, ob es ein Package gibt, das Ähnlich wie die Druckfunktion pdf's exportiert? Alternative wäre auch über eine erweiterung des TPrintdialog nachzudenken. Danks schon mal im Vorfeld.

[knight]

Meinst du soetwas: http://wiki.lazarus.freepascal.org/PowerPDF/de

knight

[Maik81ftl]

Volltreffer...

bin da aber auf einige Versionen gestoßen. Eine davon braucht allerdings eine jpegforlazarus. 'ne idee, wo ich die herbekomme?

[gocher]

Die aktuelle Version findest Du unter http://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr im Verzeichnis
/components/powerpdf

[Maik81ftl]

Hab nun als Test folgende Zeilen geschrieben

Code: Alles auswählen

procedure TForm6.Button2Click(Sender: TObject);
begin
try
  PReport1.FileName:= 'x.pdf';
  PReport1.Print(PRPage1);
finally
  Free;
  Caption:= 'Fehler';
end;
end;

und erhalte im laufe der LZ folgende Meldung. pthread_mutex_lock.c nicht gefunden. Wollen Sie Selbst nach Ihr suchen?

[Eclipticon]

Off topic: Du weisst, dass Deine TForm6.Caption auch auf 'Fehler' gesetzt wird, wenn der Code ohne Exception ausgefuehrt wird?

[Maik81ftl]

Off topic: Du weisst, dass Deine TForm6.Caption auch auf 'Fehler' gesetzt wird, wenn der Code ohne Exception ausgefuehrt wird?

Ähmmm mag sein, das ich da dir Try. schleife noch net recht geschnallt hab, aber ändert das unbedingt was daran, das die gewünschte file nicht vorhanden ist?

[Eclipticon]

Nein, deswegen ja off topic

Korrekt waere uebrigens

Code: Alles auswählen

procedure TForm6.Button2Click(Sender: TObject);
begin
  try
    try
      PReport1.FileName:= 'x.pdf';
      PReport1.Print(PRPage1);
    except
      on E: Exception do
        Caption:= 'Fehler';
    end;
  finally
    Free;
  end;
end;

wobei man IMHO auch den try ... finally ... end-Block weglassen koennte, oder?

[Maik81ftl]

Nein, deswegen ja off topic

Korrekt waere uebrigens

Code: Alles auswählen

procedure TForm6.Button2Click(Sender: TObject);
begin
  try
    try
      PReport1.FileName:= 'x.pdf';
      PReport1.Print(PRPage1);
    except
      on E: Exception do
        Caption:= 'Fehler';
    end;
  finally
    Free;
  end;
end;

wobei man IMHO auch den try ... finally ... end-Block weglassen koennte, oder?

ne doppelte Try schau i mir norgen abend ma an... um 4 is de nacht wieda wech und denne a erst gegen 18 Uhr wieder on.

[carli]

Du willst die .c Datei ja nicht debuggen.
Dein Programm hat halt ne Exception geworfen, die aber in irgendeinem C-Code ausgelöst wurde. Das kannst du getrost wegklicken.