Los archivos "MBP" los imprimo de maravilla, pero los "JPG" no puedo conseguir imprimirlos, ya que siempre me da error. haber si alguno de vosotros me puede hechar una mano y poner un ejemplo practico.

Saludos a los pocos que quedamos por aqui.

Fraguibo

Hola. Pon algún ejemplo del código que te falla

_________________
Un saludo.
Jesús P. Melgar Velasco

Jesus aqui te adjunto la opción de imprimir, he chale un vistazo para ver que es lo que tengo mal, ya que las imagenes "BMP" me las imprime correctamente, pero las imagenes "JPG" me bloquean el programa y me da error.

Un saludo y gracias por tu colaboración

Fraguibo

Estás usando la clase TBitmap:
oBitmap:=TBitmap():Create()

Esa clase no tiene no tiene ninguna propiedad 'Picture':

Do Case
Case cExt=="BMP"
oBitmap:Picture:BMP:Filename:=x19
Case cExt=="JPG"
oBitmap:Picture:JPG:FileName:=x19
Endcase

Te tiene que dar error al ejecutar, si miras la ayuda en la web verás que tu clase es la clase TPicture, con esta clase te funcionará.

Alberto, gracias por tu respuesta, pero con "TPicture" tampoco me funciona, debe de haber otra forma para que imprima las imagenes "JPG", aver si bruno da señales de vida y nos da alguna idea al respecto.

Un saludo.

Fraguibo

Me parece que has investigado poco, que fácil es decir 'no funciona' y que otro te de la solución, te mando un ejemplo donde se imprime una imagen bmp y otra jpg con la clase TPicture.

Alberto, en primer lugar gracias por el ejemplo que me has mandado, el cual me ha ayudado bastante, pero al intentar acoplarlo a mi programa continuaba sin imprimir los archivos "JPG", a unque en tu ejemplo si se que imprimen, así que despues investigar bastante y hacer barias pruebas, he conseguido que mi programa tambien imprima los los archivos "JPG" y los "BMP", a qui te mando la solución:

oPicture := TPicture():Create()

// oPicture:Bitmap:FileName := x19
// Printer:DrawBitmap( oPicture:Bitmap:Handle, { 24, 20, 163, 256 } )
oPicture:Jpeg:FileName := x19
Printer:DrawBitmap( oPicture:Jpeg:Handle, { 24, 20, 163, 256 } )

Se elimina todo lo que hace referencia a "Bitmap" y se daja solamente lo que hace referencia a "JPG" y así imprime los dos tipos de archivos "JPG" y los "BMP" por separado.

Un saludo y hasta la proxsima que nos podamos ayudar.

Fraguibo