AYUDA CON DLL IMG2PDF

[FRANCISDAX]

Señores del foro...

Esto esta hecho en vb....

Code: Select all  Expand view  RUN

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
 

Como lo declaro en FWH para poder usar esta DLL el cual sirve para crear Archivos EMF a PDF ...

Salu2

[FRANCISDAX]

Esta DLL sirve para generar PDF a partir de EMF...

Code: Select all  Expand view  RUN

   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 )

Y los wrappers ...

Code: Select all  Expand view  RUN

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

Por si a alguien le interesa saber ...

Salu2

[Antonio Linares]

gracias!

Es una DLL libre ? Desde donde se puede descargar ?

[FRANCISDAX]

Que tal Master Antonio

Aqui esta las direcciones en el archivo de texto que baje, y si es de pago, lo de bueno es que al momento de generar los PDF, estos no salen con mensajes de version de evaluacion, como en el Image2Pdf. Pero si te sale un mensaje cuando se esta creando el archivo...cosa que al pagar ya no te saldria dicho mensaje.

contact: webmaster@pdf-analyzer.com
info/help: http://www.pdf-analyzer.com
http://www.is-soft.de

Salu2

[karinha]

Holá, esta DLL nos és free?

Saludos.

[George]

Hola,
Hace varios años utilice Image2PDF.DLL, estos son los wrappers que implementé por si te sirven de ayuda:

Code: Select all  Expand view  RUN

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"