rtf -> pdf?

[EB19]

Ich habe bei Google Units und DLLs zur Konvertierung von RTF zu PDF gefunden, aber diese haben mich alle zur Verzweiflung gebracht. Was aber gut funktioniert, ist ein download mit Installation des „7-PDF-Makers“.
https://www.7-pdf.de/produkte/pdf-ma...-fuer-experten

Du musst den „7-PDF-Maker“ mit allen Optionen installieren. Dann findest du im Ordner „C:\Program Files (x86)\7-PDF\7-PDF Maker“ das Programm 7p.exe, was eine Batch-Anwendung bzw. für die Eingabeaufforderung ist. Die Dokumentation ist hier:

https://www.7-pdf.de/produkte/pdf-ma...-fuer-experten

In Delphi wird 7p.exe als Hintergrundprozess aufgerufen:
ShellExecute(handle, 'open', Pchar(‘ 7p.exe’), Pchar(‘RTFdatei.rtf’), nil,SW_HIDE);

Dieser Aufruf wandelt die RTF-Datei in eine PDF-Datei gleichen Namens um. Die Argumente von Pchar müssen beiden den vollständigen Datei-Pfad mit beinhalten.

Diese RTF-PDF-Umwandlung funktioniert zuverlässig. Jedoch dürfen keine Leerzeichen im vollständigen Pfad zu RTF-Datei vorkommen. Ansonsten muss der gesamte String in Apostrophe übergeben werden.

[himitsu]

Das ist jetzt hoffentlich nicht nur eine Werbung um den 7PDF-Maker zu verkaufen?



Im Windows ist seit langem ein PDF-Drucker "Microsoft Print to PDF" enthalten,
den einfach als Ausgabe für z.B. TRichEdit verwenden.

Delphi-Quellcode:

uses
  IOUtils, Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
  DeviceMode: THandle;
  Device, Driver, Port: array[0..80] of Char;
begin
  Printer.PrinterIndex := Printer.Printers.IndexOf('Microsoft Print to PDF');
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);
  Printer.SetPrinter(Device, Driver, PChar(TPath.GetTempPath + 'Test.pdf'), 0);

  //Printer.BeginDoc;
  //Printer.Canvas.TextOut(100, 100, 'Test');
  //Printer.EndDoc;
  RichEdit1.Print('Testdruck');
end;

Quelle: https://stackoverflow.com/questions/...-pdf-in-delphi

[Redeemer]

Was? RichEdit.Print druckt auf Printer.PrinterIndex? Ich dachte, das kann nur auf Standarddrucker drucken. Seit wann? Schon immer?

[himitsu]

Auf die Printerinstanz, welche grade aktiv ist.
* nach dem Start der DefaultPrinter
* oder manuell gewählt
* oder nach dem PrinterAuswahlDialog
* oder ...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Print;

  RichEdit1.Print('');
end;

Delphi-Quellcode:

procedure TCustomForm.Print;
begin
  Printer.BeginDoc;
  ...
      with Printer, Canvas do
          ...
          StretchDIBits(Canvas.Handle, 0, 0, PrintWidth, PrintHeight, 0, 0, ...

Delphi-Quellcode:

procedure TCustomRichEdit.Print(const Caption: string);
begin
  Printer.Title := Caption;
  Printer.BeginDoc;
  ...
      LastChar := RenderRange(Printer.Canvas, nil, LastChar, MaxLen);

[eddy]

Hallo Spider,

dann solltest Du aber zusehen, daß Du die Schülerversion bekommst:

EDU DELPHI 8 PRO D - EDU Delphi 8 Professional
1-User Einzellizenz LIZ (ca. 90,00 Euro zzgl. MwSt.)

weil

Delphi 8 Pro D - Delphi 8 Professional (ca. 920,00 Euro zzgl. MwSt.)

doch um einiges teurer ist.

mfg
eddy

[Luckie]

Über die Preise gibt es schon genug Threads in der DP. Also bitte beim Thema bleiben. Danke.

[Die Muhkuh]

@Eddy


Man Vater holts ja! Aber als Upgrade.


@Luckie

Wie soll das gehen?


@r_kerber


Ja es muss mit Delphi sein. Es wäre nicht schlecht wenn ich das übers Wochende das fertig bekomm.

[r_kerber]

Also ich kenne keine Komponente, die rtf ind pdf umwandelt. Es gibt Komponenten, mit denen Du wie ein Report bzw. Druckausgabe arbeiten kannst. Die sind aber IMHO nicht kostenlos. Hast Du schon mal bei DSP oder Torry gesucht?

[Luckie]

Stimmt. Mit dem ActiveX Kontroll wird das wohl nichts. Ichhatte irgend wie im Hinterkopf, dass es ums Drucken ging.

[Die Muhkuh]

Jo hab schon bei Torry geguckt. Aber nix...