Pdfclass como imprimir un bmp ??

[winca]

Hola Don José:

Le cuento que estoy usando su clase , la cual esta excelente, muchas gracias por su trabajo.

Se me presenta un problema , pues debo incluir en la página una figura que esta en formato bmp,
el cual contiene una informacion en PDF417.

Para poder poner esa imagen he convertido manualmente la figura del bmp a jpg y la imprime bien,
pero al leer con un lector de codigos de barras la imagen del pdf417 ( el jpg) , no es reconocible o
se altera al convertirla a jpg.

Existe alguna forma de poder leer y poner en una pagina con la clase pdfclass, algun imagen
en formato bmp.

Le agradesco cualquier ayuda o ideas

Saludos, Winca

[JoséQuintas]

Usando a forma tradicional, ::oPDFPage é uma página da HaruPDF, aceitando qualquer comando da HaruPDF.

Talvez copiar as funções atuais de JPEG, e criar equivalentes pra BMP.
Não tenho certeza se as equivalentes pra BMP são HPDF_LoadRawImageFromFile() e HPDF_LoadRawImageFromMem()

Exemplo, caso sejam essas funções que mencionei:

Código: Selecionar todos

METHOD DrawImageBox( nTop, nLeft, nBottom, nRight, cJPEGFile ) CLASS PDFClass

   LOCAL oImage, nWidth, nHeight

   IF ::nPrinterType > 2 // .OR. ! File( cJPEGFile )
      RETURN NIL
   ENDIF
   nWidth  :=  ::ColToPdfCol( nRight - nLeft ) - ::ColToPdfCol( 0 )
   nHeight := ( ::RowToPdfRow( 0 ) - ::RowToPdfRow( nBottom - nTop ) )
   nBottom := ::RowToPDFRow( nBottom )
   nLeft   := ::ColToPdfCol( nLeft )
   DO CASE
   CASE Right( cJPEGFile, 4 ) $ ".JPG,JPEG"
      oImage  := HPDF_LoadJPEGImageFromFile( ::oPdf, cJPEGFile )
   CASE Right( JPEGFile, 4 ) == ".BMP"
      oImage := HPDF_LoadRawImageFromFile( ::oPDF, cJPEGFile )
   ENDCASE
   HPDF_Page_DrawImage( ::oPage, oImage, nLeft, nBottom, nWidth, nHeight )

   RETURN NIL

[winca]

Don José:

Muchas gracias por su ayuda, ya me dio una buena idea, la voy a probar y cambiar en la clase. Gracias nuevamente.

Winca