FiveTech Software tech support forums

Option Strict Off
Option Explicit On
Module Module1
    Public Declare Function IMG2PDF Lib "IMG2PDF.dll" (ByVal ImageName As String, ByVal PDFName As String) As Int32
End Module
 

   LOCAL nError := 0
   LOCAL cPdfFileName:= "D:\SISTEMAS\CIB32\" + ::oDevice:cDocument + ".Pdf"  
   LOCAL hOldRes := GetResources()
   LOCAL aFiles  := ::oDevice:aMeta
   LOCAL nFiles, hLibImg2PDF
   
   hLibImg2PDF:=LoadLib32( "IMG2PDF" )
   
   IF Len( aFiles ) = 0
      MsgBeep()
      RETURN NIL
   ENDIF
   
   nFiles := Len( aFiles )
   
   For X = 1 To nFiles
     nError := IMG2PDF( aFiles[X], cPdfFileName )
     SYSREFRESH()      
   Next
   
   DO CASE
      CASE nError == 0
      ALERT( cPdfFileName+" Generado Satisfactoriamente ...")
   ENDCASE
   
   FreeLib32(hLibImg2PDF)
   SetResources( hOldRes )

DLL32 STATIC FUNCTION IMG2PDF( cArchivoIni AS LPSTR, cArchivoFin AS LPSTR) AS LONG;
  PASCAL FROM "IMG2PDF" LIB "IMG2PDF.dll"
 

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"