mORMot Open Source

procedure TPCLForm.ConvertReport(rpFileName, outputFile: string);
var
  i    : Integer;
  line : string;
  pdf  : TGDIPages;
begin
  FPclFile := TStringList.Create;
  FPclFile.LoadFromFile(rpFileName);
  try
    pdf := TGDIPages.Create(self);
    try
      pdf.BeginDoc;
      try
        i := 0;
        while i < FPclFile.Count do
        begin
          line := FPclFile[i];

          // see if font needs to be changed
          CheckFont(line);

          // see if there is a newline command in the line
          if IsNewline(line) then
          begin
            pdf.AppendRichEdit(RichEdit.Handle);
            RichEdit.Clear;

            // create a new page in the PDF
            pdf.NewPage;
          end;

          // remove the PCL codes
          RemoveCode(PCL_LANDSCAPE, line);
          RemoveCode(PCL_VERTICAL, line);
          RemoveCode(PCL_PORTRAIT, line);
          RemoveCode(PCL_NEW_PAGE, line);

          RichEdit.Lines.Add(line);

          Inc(i);
        end;
        if RichEdit.Lines.Count > 0 then
          pdf.AppendRichEdit(RichEdit.Handle);
      finally
        pdf.EndDoc;
      end;
      pdf.ExportPDF(ChangeFileExt(outputFile, '.pdf'), true, false);
      pdf.ShowPreviewForm;
    finally
      pdf.free;
    end;
  finally
    FPclFile.Free;
  end;
end;