Convertir Formatos Graficos

[courtois]

Para cargar una imagen, ya sea jpeg o bmp, de preferencia jpeg, por el tamaño

Código Delphi [-]
   if DialogoAbrir.Execute then
   begin
     if (Tabla.State <> dsEdit) or (Tabla.State <> dsInsert) then Tabla.Edit;
     TablaCampoFoto.LoadFromFile(DialogoAbrir.FileName);
     Tabla.Post;
   end;

... de hecho esto carga cualquier cosa al campo

Para mostrarla en un TImage...

Código Delphi [-]
var  Jpeg:TJpegImage;
      JpegStream:TMemoryStream;
begin
   if TablaCampoFoto.IsNull then Imagen.Picture:=Nil
   else
   begin
     try
       Imagen.Picture.Assign(TablaCampoFoto); //esto funciona solo si es bmp
     except
        //pero si es jpeg...
        Jpeg:=TJpegImage.create;
        JpegStream:=TMemoryStream.create;
        try
          TablaCampoFoto.SaveToStream(JpegStream);
          //importante regresar?
          JpegStream.Seek(0,soFromBeginning);
          Jpeg.LoadFromStream(JpegStream);
          //Ahora si la mostramos
          Imagen.Picture.Assign(Jpeg);
        finally
          JpegStream.Free;
          Jpeg.Free;
        end;
     end;
   end;
end;