rtf -> pdf?

[r_kerber]

Hallo Luckie,

damit kannst Du aber nur PDF lesen aber keine PDF erzeugen!

[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);