pdf.tol de Antonio.Salmeron

Pdf functions.

Funciones

• Real PdfBuild(Text filInp, Text filOut)
  Returns true if can create a pdf file filOut from an html file filInp.

//////////////////////////////////////////////////////////////////////////////
Real PdfBuild(Text filInp, // Input html file
              Text filOut) // Output pdf file
//////////////////////////////////////////////////////////////////////////////
{
  If(Not(FileExist(filInp)), FALSE, // Nothing to do
  {
    Text absPth = Ois.AutoPath("."); // Ruta absoluta al punto de ejecucion

    Text dosInp = W(absPth+"/"+filInp); // Rutas con \ de Dos
    Text dosOut = W(absPth+"/"+filOut);

    Text margin = " /margin-left   42 "+
                  " /margin-right  42 "+
                  " /margin-top    42 "+
                  " /margin-bottom 42 ";

    Text cmdTxt = PdfExe+" "+                   // Executable pdf convertor
                  dosInp+" "+                   // Input file
                  dosOut+" "+                   // Output file
                  "/jpeg 100 "+                 // Compresion
                  "/psize A4" +                 // Author
                  margin;

//  Text WriteLn(cmdTxt);
    Text WriteLn("  Pdf: "+filOut);

    System(cmdTxt) // Execute html to pdf conversion
  })
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Returns true if can create a pdf file filOut from an html file filInp.",
PdfBuild);
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
// FILE    : pdf.tol
// AUTHOR  : http://www.asolver.com
// PURPOSE : Pdf functions.
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Text PdfExe = Q(W(
  "C:\Program Files\HTML2PDF Pilot\HTML2PDF_Pilot.exe"));
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Ruta de instalacion del conversor de Html a Pdf, depende de la instalacion.
Nótese la necesidad de comillas dentro de las comillas.",
PdfExe);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
// FUNCTIONS
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Real PdfBuild(Text filInp, // Input html file
              Text filOut) // Output pdf file
//////////////////////////////////////////////////////////////////////////////
{
  If(Not(FileExist(filInp)), FALSE, // Nothing to do
  {
    Text absPth = Ois.AutoPath("."); // Ruta absoluta al punto de ejecucion

    Text dosInp = W(absPth+"/"+filInp); // Rutas con \ de Dos
    Text dosOut = W(absPth+"/"+filOut);

    Text margin = " /margin-left   42 "+
                  " /margin-right  42 "+
                  " /margin-top    42 "+
                  " /margin-bottom 42 ";

    Text cmdTxt = PdfExe+" "+                   // Executable pdf convertor
                  dosInp+" "+                   // Input file
                  dosOut+" "+                   // Output file
                  "/jpeg 100 "+                 // Compresion
                  "/psize A4" +                 // Author
                  margin;

//  Text WriteLn(cmdTxt);
    Text WriteLn("  Pdf: "+filOut);

    System(cmdTxt) // Execute html to pdf conversion
  })
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Returns true if can create a pdf file filOut from an html file filInp.",
PdfBuild);
//////////////////////////////////////////////////////////////////////////////