Esta DLL sirve para generar PDF a partir de EMF...
Code: Select all | Expand
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
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