Imprimir jpg's
 

tengo el siguiente codigo

Código Delphi [-]
procedure TFrmDibujo.Button1Click(Sender: TObject);
var
  jp: TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
begin
  jp := TJPEGImage.Create;
  jp.LoadFromFile(frmdibujo.caption);
  try
    printer.BeginDoc;
    printer.canvas.Draw(0,0,jp);
    printer.EndDoc;
  finally
    jp.free;
  end;
end;

me suelta un error de compilacion en el printer canvas donde dice que:

[Error] Unit2.pas(37): Incompatible types: 'TGraphic' and 'TJPEGImage'

alguien puede decirme porque es esto
gracias por adelantado

Hola,

Prueba a ver con esto y nos cuentas a ver:

Código Delphi [-]
printer.canvas.Draw(0, 0, TGraphic(jp));

Un error muy extraño siendo TJPegImage descendiente de TGraphic, al menos en Delphi 7 que es donde lo acabo de probar tal cual y funciona sin problemas.

// Saludos

Hola,

Pues llevas toda la razón Román. Sabes que no tengo impresora, y no he podido comprobar si la impresión se llevaba a cabo o por lo menos ver una vista previa a la misma que mostrar que la cosa funcionara bien. Sin embargo, no obtuve el error que arriba comenta el compañero. Y es el caso que, ahora que lo pienso, efectivamente, es una tontería el código que propongo, puesto que, efectivamente, ese objeto ya desciende además directamente de "TGraphic"... un lapsus. ;)

Sin embargo a él le marca dicho error. Quizá, aunque me parecería muy raro, alguna versión anterior de Delphi manejase distinto los jpg.

// Saludos

gracias por responder tan pronto he probado el cast:

Código Delphi [-]
procedure TFrmDibujo.Button1Click(Sender: TObject);
var
  jp: TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
begin
  jp := TJPEGImage.Create;
  jp.LoadFromFile(frmdibujo.caption);
  try
    printer.BeginDoc;
    printer.canvas.Draw(0,0,tgraphic(jp));
    printer.EndDoc;
  finally
    jp.free;
  end;
end;

y me suelta lo siguiente:

[Error] Unit2.pas(38): Incompatible types: 'QGraphics.TGraphic' and 'Graphics.TGraphic'

Se me olvidaba estoy usando delphi 7

Perdonen pero se me ha acabado el turno de trabajo, hasta mañana no podre decirles si alguna de las soluciones que me puedan dar ahora funciona o no, les digo esto por si esperan mi contestacion de si funciona o no, gracias por su tiempo y mañana les contare

¡Ahhhhh! Pues es que estás mezclando las bibliotecas CLX con las VCL. Quita las referencias a QGraphics. Me parece que estás usando la unidad QPrinters en lugar de Printers.

// Saludos

Gracias Roman eso era justo lo que me estaba pasando, gracias de nuevo

Ahora si que me lo imprime pero el dibujo me sale reducido con respecto al original, como podria hacer que se imprimiera a tamaño real el jpg

Al final la solucion que he tomado ha sido cargar con el winexec el paint y pasarle como parametro la ruta del dibujo que queria imprimir, ya el paint me lo imprime a tamaño normal, que se le va a hacer, bueno gracias por vuestra ayuda.