TRichView.com

Posted: **Tue Jun 25, 2013 6:01 pm**

For those who are tired of trying to solve bugs with eDocEngine to export to pdf like me, here below is a solution using the synopsis that appears to be simple and only with time we will have the solution (final - I hope).

_without having to worry about header and footer

_the first tests this unit is work fine in Delphi 7 and Windows 7

I got some references here on this forum in http://www.trichview.com/forums/viewtop ... t=metafile

(work with SRichViewEdit)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Code: Select all

unit UnExpParaPDF;

interface

  Uses Windows,Types,Graphics,Forms,SclRView,RVStyle,SysUtils,Dialogs,
  ShellAPI,
  Synpdf,SynGdiPlus; //synopse

                           //Formxx.Handle
  procedure ExportaParaPdf ( handle:HWND; srve :TSRichViewEdit);

implementation

function MakePageMetafile(srve:TSRichViewEdit;aPageNo, aWidth, aHeight: Integer): TMetafile;
var
  savTextDraw: Boolean;
begin
  savTextDraw := ScaleRichViewTextDrawAlwaysUseGlyphs;
  ScaleRichViewTextDrawAlwaysUseGlyphs := False;

  Result := TMetafile.Create;
  Result.Width := aWidth;
  Result.Height := aHeight;
  srve.CanUpdate := False;
  srve.UseDrawHyperlinksEvent := True;
  srve.DrawMetafile(aPageNo, Result, False, True, False);
  ScaleRichViewTextDrawAlwaysUseGlyphs := savTextDraw;
  srve.CanUpdate := True;
  srve.UseDrawHyperlinksEvent := False;
end;


procedure ExportaParaPdf ( handle:HWND; srve :TSRichViewEdit);
const
  OutputFileName = 'c:\teste\testepdf.pdf';

var
  i: Integer;
  Metafile: TMetafile;
  RVUnit: TRVUnits;
  R : TRect;
  //synopse
  PdfDoc : TPDFDocumentGDI;
  PdfPage : TPdfpage;

begin
  srve.Update; //srve is ScaleRichViewComponent
  RVUnit := srve.UnitsProgram; //Get the current value
  srve.UnitsProgram := rvuPixels; //Change DBSRichviewEdit to pixels for PDF Conversion

  PdfDoc := TPdfDocumentGDI.Create;

  for i := 1 to srve.PageCount do
  begin

    Metafile := MakePageMetafile(srve,i, Round(srve.PageProperty.PageWidth), Round(srve.PageProperty.PageHeight));

    try

      PdfPage := PdfDoc.AddPage;
      if i=1 then begin
        PdfDoc.CompressionMethod := cmFlateDecode;
        pdfdoc.UseFontFallBack:=true;
        PdfDoc.UseSetTextJustification := False;
        PdfDoc.DefaultPaperSize := psA4;
        PdfDoc.DefaultPageLandscape := False;
        PdfDoc.VCLCanvas.Font.Charset:=ANSI_CHARSET;
        PdfDoc.UseUniscribe:=False;
      end;
//      PdfDoc.VCLCanvas.StretchDraw( Rect(0, 0, Round(Screen.PixelsPerInch * Metafile.MMWidth / 3600), Round(Screen.PixelsPerInch * Metafile.MMHeight / 3600)), Metafile);
        PdfDoc.VCLCanvas.StretchDraw( Rect(0, 0, Round(srve.PageProperty.PageWidth), Round(srve.PageProperty.PageHeight)), Metafile);
    finally
      Metafile.Free;
    end;
  end;
  srve.UnitsProgram := RVUnit; //Change back to the previous value before converted to pixels


  PdfDoc.SaveToFile(OutputFileName);
  PdfDoc.Free;

  ShellExecute(Handle, nil, PChar(OutputFileName), nil,  nil, SW_SHOWNORMAL);


end;

end.

Thanks

Posted: **Fri Jul 12, 2013 12:58 pm**

In previous routine, there was problem when printing landscape.

To solve this modified routine as below and there was no inconsistency in both landscape or portrait

Code: Select all

procedure ExportaParaPdf ( handle:HWND; srve :TSRichViewEdit; Arquivo:String);
var
  i: Integer;
  Metafile: TMetafile;
  RVUnit: TRVUnits;
  R : TRect;
  //synopse
  PdfDoc : TPDFDocument;

begin
  srve.Update; //srve is ScaleRichViewComponent
  RVUnit := srve.UnitsProgram; //Get the current value
  srve.UnitsProgram := rvuPixels; //Change DBSRichviewEdit to pixels for PDF Conversion

  PdfDoc := TPdfDocument.Create;

  for i := 1 to srve.PageCount do
  begin

    Metafile := MakePageMetafile(srve,i, Round(srve.PageWidth100Pix), Round(srve.PageHeight100Pix));

    try

        PdfDoc.DefaultPageWidth := MulDiv(srve.PageWidth100Pix,72,PdfDoc.ScreenLogPixels);
        PdfDoc.DefaultPageHeight := MulDiv(srve.PageHeight100Pix,72,PdfDoc.ScreenLogPixels);
        PdfDoc.AddPage;
        // draw the page content
        PdfDoc.Canvas.RenderMetaFile(MetaFile,1,0,0);


    finally
      Metafile.Free;
    end;
  end;

  PdfDoc.SaveToFile(Arquivo);
  PdfDoc.Free;

  ShellExecute(Handle, nil, PChar(Arquivo), nil,  nil, SW_SHOWNORMAL);

  srve.UnitsProgram := RVUnit; //Change back to the previous value before converted to pixels

end;

Posted: **Tue Jul 16, 2013 1:59 pm**

hello,
i'm very interested in your code.
i downloaded the latest stable version from synpdf and used your source.
the program compiles with delphi xe2 but it does not start. instead i get a runtime error 217 (OS: Win XP SP3). when i use gnostice again (i have a compiler switch for changing the libraries) everything is fine ... so it probably has to do with synpdf/syngdiplus

do you have an idea what could be the reason for this runtime error?
the program does not even goto FormCreate of my mainform.

i am definitely fed up with gnostice as well ... it takes ages for fixing the issues

Posted: **Tue Jul 16, 2013 11:45 pm**

the above routine works in Delphi 7 and I think that should be reviewed for XE2 using debug. Error 217 often report before startup and after finalizing cases.

TRichView.com

export easy using synpdf (synopse) (free)

export easy using synpdf (synopse) (free)

new updade