Page 1 of 1
AYUDA CON DLL IMG2PDF
Posted: Fri May 25, 2012 11:00 pm
by FRANCISDAX
Señores del foro...
Esto esta hecho en vb....
Code: Select all
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
Re: AYUDA CON DLL IMG2PDF SOLUCIONADO
Posted: Sat May 26, 2012 2:37 pm
by FRANCISDAX
Esta DLL sirve para generar PDF a partir de EMF...
Code: Select all
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
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
Re: AYUDA CON DLL IMG2PDF
Posted: Sat May 26, 2012 4:53 pm
by Antonio Linares
gracias!
Es una DLL libre ? Desde donde se puede descargar ?
Re: AYUDA CON DLL IMG2PDF
Posted: Sat May 26, 2012 5:39 pm
by 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
Re: AYUDA CON DLL IMG2PDF
Posted: Tue Apr 30, 2019 7:02 pm
by karinha
Holá, esta DLL nos és free?
Saludos.
Re: AYUDA CON DLL IMG2PDF
Posted: Tue Apr 30, 2019 10:22 pm
by George
Hola,
Hace varios años utilice Image2PDF.DLL, estos son los wrappers que implementé por si te sirven de ayuda:
Code: Select all
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"