Conversion de BMP a JPG

[sierraja]

Amigos, por favor necesito convertir ficheros BMP a JPG he utilizado una rutina que circula por alli pero no me funciona. Y para los que conocen la rutina se ubicaran cuando les indique que el error me da cuando llega a la linea bmp.canvas.draw(0,0,jpg). Me dice que los tipos son distintos. Por favor necesito que me ayuden. Gracias Adolfo Sierra ([email protected])

[roman]

Pues no dejas mucho rango para ayudarte. Si pones la rutina o mencionas de dónde la sacaste quizá alguien pueda determinar en qué falla.

// Saludos

[sierraja]

Hermano disculpa, tienes razón, pensé que conocías la siguiente rutina:

procedure TForm1.Button2Click(Sender: TObject);
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
{ Convert a JPEG to a BMP }
MyJPEG := TJPEGImage.Create;
with MyJPEG do begin
LoadFromFile('YourJpegHere.JPEG');
MyBMP := TBitmap.Create;
with MyBMP do begin
Width := MyJPEG.Width;
Height := MyJPEG.Height;
Canvas.Draw(0,0,MyJPEG); ////aqui es donde me da el error/////
SaveToFile('YourBmpHere.BMP');
Free;
end;
Free;
end;
end;

Esta rutina aparece en varios foros y paginas que he consultado. Sólo quiero convertir un jpg a bmp para luego almacenarlo en un campo Blob de interbase posteriormente. Hermano de antemano gracias por tu atención....

[roman]

¿Y ésta no te sirve?

Código Delphi [-]
var
  JPeg: TJpegImage;
  Bitmap: TBitmap;

begin
  JPeg := TJPegImage.Create;
  JPeg.LoadFromFile('hands.jpg');

  Bitmap := TBitmap.Create;
  Bitmap.Assign(JPeg);
  Bitmap.SaveToFile('hand.bmp');

  JPeg.Free;
  Bitmap.Free;

// Saludos

[sierraja]

El error continua y aparece en la linea:

Bitmap.Assign(jpg);

Y el error que aparece es:

Cannot assign a TJPEGImage to TBitmap.


EL codigo está tal y cual tu lo escribiste. Gracias

[sierraja]

El error continua y aparece en la linea:

Bitmap.Assign(jpg);

Y el error que aparece es:

Cannot assign a TJPEGImage to TBitmap.


EL codigo está tal y cual tu lo escribiste. Gracias