Imprimir jpg's

[[ElDioni]]

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

[dec]

Hola,

Prueba a ver con esto y nos cuentas a ver:

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

[roman]

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

[dec]

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.

[roman]

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

[[ElDioni]]

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'