FiveTech Software tech support forums

-UseActualImageDPI
-UseEMFDeviceSize
 

    local nFor, cLista:= ""
    local cVerPDF := " -openpdf"

        FOR nFor := 1 TO len(aFiles)
            cLista += "-image "+aFiles[nFor]+" "  //-----------> array de WMF  a convertir
        NEXT

        if file(RutaDelExe+"opciones.txt")
            waitrun( RutaDelExe+cLista+;
                     "    -output "+RutaDelExe+cNombre+;   //------> nombre del documento PDF de salida
                        " -Options "+RutaDelExe+"opciones.txt"+;
                        cVerPDF+;      //-----> permite ver el PDF generado
                        " -License XXXXX-XXXXX-XXXXX-XXXXX-XXXXX" )  //------> numero de licencia de uso
        else
            msgStop( "No existe el archivo:"+CRLF+CRLF+;
                        RutaDelExe+"opciones.txt", "Avisor")
        endif
 

FUNCTION SaveAsPDF(cRepName)
    // cRepName = Name of Report to be saved
    LOCAL result, hLib
    LOCAL cBuffer:=space(300)

    hLib = LOADLIBRARY( "Image2PDF.dll" )

    I2PDF_UseEMFDeviceSize()

    I2PDF_License("Image2PDF License Number") // Put here your Image2PDF License Number

    nRc :=  I2PDF_Log(".\log.txt", 3)

    I2PDF_MetaTextFitBoundingRect()

    nRc := I2PDF_UseEMFDeviceSize()

    nRc := I2PDF_MetaToNativePDF()

    nRc := I2PDF_SetDPI(0)                     //- or to whatever value you require

    DECLARE aEmf := {}
    aEmf := directory("*.emf")

    FOR nX := 1 TO  len(aEmf)
        nRc := I2PDF_AddImage(alltrim(aEmf[nX, F_NAME]))
    NEXT

    nResult := I2PDF_MakePDF(cRepName, 0, @cBuffer ,300)

    FreeLibrary(hLib)

    AEVAL(DIRECTORY(cAppliDir+"\*.EMF"), { |aFile| ferase(aFile[F_NAME])})   // cAppliDir is application path
RETURN (.T.)
 

///////////////////////////////////////////////////////////////////////////
DLL32 Function I2PDF_AddImage(image as LPSTR);
AS LONG PASCAL FROM "I2PDF_AddImage" LIB "IMAGE2PDF.DLL"
//Public Shared Function I2PDF_AddImage(ByVal image As String) As Integer
  //  End Function

DLL32 Function I2PDF_SetProducer(producer as LPSTR);
AS LONG PASCAL FROM "I2PDF_SetProducer" LIB "IMAGE2PDF.DLL"
//Public Shared Function I2PDF_SetProducer(ByVal producer As String) As Integer
//    End Function


DLL32 Function I2PDF_GetDLLVersion();
AS LONG PASCAL FROM "I2PDF_GetDLLVersion" LIB "IMAGE2PDF.DLL"
//Public Shared Function I2PDF_GetDLLVersion() As Integer
//    End Function


DLL32 Function I2PDF_License(code As LPSTR);
AS LPSTR PASCAL FROM "I2PDF_License" LIB "IMAGE2PDF.DLL"
// Public Shared Sub I2PDF_License(ByVal code As String)
//   End Sub


DLL32 Function I2PDF_MetaImageMaxMP(maxmp as LONG);
AS LONG PASCAL FROM "I2PDF_MetaImageMaxMP" LIB "IMAGE2PDF.DLL"
//Public Shared Function I2PDF_MetaImageMaxMP(ByVal maxmp As Double) As Integer
//    End Function

DLL32 Function I2PDF_DeleteImagesOnConvert();
AS VOID PASCAL FROM "I2PDF_DeleteImagesOnConvert" LIB "IMAGE2PDF.DLL"
//Public Shared Sub I2PDF_DeleteImagesOnConvert()


DLL32 Function I2PDF_SetDPI(dpi as LONG);
AS LONG PASCAL FROM "I2PDF_SetDPI" LIB "IMAGE2PDF.DLL"
//Public Shared Function I2PDF_SetDPI(ByVal dpi As Integer) As Integer
//   End Function

DLL32 Function I2PDF_MakePDF(output As LPSTR, options as LONG, @cBuffer As LPSTR, ;
    maxErrorTextSize As LONG);
AS LONG PASCAL FROM "I2PDF_MakePDF" LIB "IMAGE2PDF.DLL"
 //Public Shared Function I2PDF_MakePDF(ByVal output As String, ByVal int options,;
 //  ByRef errorText As String, ByVal maxErrorTextSize As Integer) As Integer
 // End Function

DLL32 Function I2PDF_SetPermissionPrint();
AS VOID PASCAL FROM "I2PDF_SetPermissionPrint" LIB "IMAGE2PDF.DLL"
//Public Shared Sub I2PDF_SetPermissionPrint()
//   End Sub


DLL32 Function I2PDF_MetaImageMaxMP_Int(maxmp as LONG);
AS LONG PASCAL FROM "I2PDF_MetaImageMaxMP_Int" LIB "IMAGE2PDF.DLL"
//Public Shared Function I2PDF_MetaImageMaxMP_Int(ByVal maxmp As Integer) As Integer
//   End Function

DLL32 Function I2PDF_UseEMFDeviceSize();
AS VOID PASCAL FROM "I2PDF_UseEMFDeviceSize" LIB "IMAGE2PDF.DLL"
//Public Shared Sub I2PDF_UseEMFDeviceSize()
//  End Sub

DLL32 Function I2PDF_MetaToNativePDF();
AS VOID PASCAL FROM "I2PDF_MetaToNativePDF" LIB "IMAGE2PDF.DLL"
//Public Shared Sub I2PDF_MetaToNativePDF()
//  End Sub

DLL32 Function I2PDF_Log(logFilename As LPSTR, logLevel as LONG);
AS LONG PASCAL FROM "I2PDF_Log" LIB "IMAGE2PDF.DLL"

DLL32 Function I2PDF_MetaTextFitBoundingRect();
AS VOID PASCAL FROM "I2PDF_MetaTextFitBoundingRect" LIB "IMAGE2PDF.DLL"
 

FUNCTION SaveAsPDF(aFiles,pdfFileName)
    LOCAL imageFilename := "   "
    LOCAL ix
    LOCAL iErr := 0
    LOCAL errorText := "  "

   hLib := LoadLib32( "Image2PDF StdCall.DLL" )

   iErr := I2PDF_License( "YOUR LICENSE CODE HERE" )

   // ensure that any EMF files are converted at highest quality
//   iErr := I2PDF_MetaToNativePDF( )
//   iErr := I2PDF_UseEMFDeviceSize( )
//   iErr := I2PDF_SetDPI(0) // Set PDF DPI to the same as the image

   // Build the pages using the array of image files
   FOR ix := 1 TO LEN( aFiles )
      imageFilename := aFiles[ix]
      IF (iErr := I2PDF_AddImage(imageFilename)) # 0
         EXIT
      ENDIF
   NEXT

   // Create the PDF.
   iErr := I2PDF_MakePDF(Rtrim(pdfFilename), 0, errorText, 40 )

    MsgInfo(iErr)

   FreeLib32( hLib )
RETURN (.T.)
 

hLib = LOADLIBRARY( "Image2PDF.dll" )
     msginfo(hLib)
     MsgInfo(I2PDF_GetDLLVersion())
 

FUNCTION SaveAsPDF(aFiles,pdfFileName)
    LOCAL imageFilename := "   "
    LOCAL ix
    LOCAL iErr := 0
    LOCAL errorText := "  "

    MsgInfo(pdfFileName)                                    // C:\PdvWin\Pdfs\Prueba.Pdf

   hLib := LoadLib32( "Image2PDF.DLL" )

    MsgInfo(hLib,"hLib")                                    // 268435456
   MsgInfo(I2PDF_GetDLLVersion(),"Versión")        // 273

   iErr := I2PDF_License( "YOUR LICENSE CODE HERE" )

    MsgInfo(iErr,"Licencia")                            //

   // ensure that any EMF files are converted at highest quality
   iErr := I2PDF_MetaToNativePDF( )
    MsgInfo(iErr,"MetaNative")                          // nil
   iErr := I2PDF_UseEMFDeviceSize( )
    MsgInfo(iErr,"UseEMF")                              // nil
   iErr := I2PDF_SetDPI(0) // Set PDF DPI to the same as the image
    MsgInfo(iErr,"SetDPI")                              // 0

   // Build the pages using the array of image files
   FOR ix := 1 TO LEN( aFiles )
      imageFilename := aFiles[ix]
        MsgInfo(ImageFileName,"FileName")           // C:\Users\Armando\AppData\Local\Temp\21064705.Emf
      IF (iErr := I2PDF_AddImage(imageFilename)) # 0
            MsgInfo(iErr,"iErr")                            // No pasa por aquí
         EXIT
      ENDIF
   NEXT

   // Create the PDF.
   iErr := I2PDF_MakePDF(Rtrim(pdfFilename), 0, errorText, 40 )

    MsgInfo(errorText)
    MsgInfo(iErr,"iErr1")                               // 3  creo que aquí esta el problema

   FreeLib32( hLib )
RETURN (.T.)
 

nResult := I2PDF_MakePDF(cRepName, 0, @cBuffer ,300)

 WaitRun("txt2pdf C:\prueba\RRHH\TXTFILE.TXT C:\prueba\PDFFILE",0)