Como guardar .JPG como Bitmap en Base de Datos

[[seoane]]

Extraña petición, lo normal es querer convertir una imagen a jpg por el problema del espacio, no al revés. Recuerda que las imágenes jpeg también pueden mostrarse en un TImage. De todas formas:

Código Delphi [-]
//Importante añadir esto para que reconozca las imagenes jpg
uses jpeg;

// Convierte a bmp, imagenes jpg, ico y wmf
procedure Convertir(Origen, Destino: string);
var
  Imagen: TPicture;
  Bitmap: TBitmap;
begin
  Imagen:= TPicture.Create;
  try
    Imagen.LoadFromFile(Origen);
    if not (Imagen.Graphic is TBitmap) then
    begin
      Bitmap:= TBitmap.Create;
      try
        Bitmap.Width:= Imagen.Width;
        Bitmap.Height:= Imagen.Height;
        Bitmap.Canvas.Draw(0,0,Imagen.Graphic);
        Bitmap.SaveToFile(Destino);
      finally
        Bitmap.Free;
      end;
    end else Imagen.SaveToFile(Destino);
  finally
    Imagen.Free;
  end;
end;

// Ejemplo de uso
Convertir('d:\1.jpg','d:\2.bmp');