Problemas con imágenes en BD

[martinlillo]

Gente, tengo un gran problema. Resulta que en mi base de datos (firebird) tengo registros con fotos, y al ingresar supongamos diez fotos de no más de 1 MB, la base crece muchísimo más que 10 MB. Las fotos que levanto son jpg, e internamente las convierto a BitMap. Acá va un código que uso:

------------------------------------------------------------
function ConvertirFoto(Nombre:String):TBitmap;
var p : TPicture;
begin
p := TPicture.Create;
p.LoadFromFile(Nombre);
result := TBitmap.Create;
result.Assign(p.Graphic);
p.Free;
end;

procedure TFormFotos.Button2Click(Sender: TObject);
begin
DM.Fotitos.Edit;
DBimage1.Picture.Bitmap := ConvertirFoto(FileListBox1.FileName);
DM.FotitosID_DATOSFIL.Value := DM.DatosfilialesID_DATOSFIL.Value;
DM.Fotitos.Post;
DM.IBTransaction1.CommitRetaining;
showmessage('Foto agregada exitosamente');
end;
---------------------------------------------------------


Al hacer un backaup de la base, y restaurarla, el tamaño disminuye. No una barbaridad, pero disminuye. Qué estaré haciendo mal? Será que al convertir a BMP, los datos de la imagen crecen? Hay forma de guardar como jpg?

Saludos y gracias!!!

[Casimiro Notevi]

El bmp ocupa muchisimo más que el jpg. De todas formas no te preocupes porque la BD sea grande, no hay ningún problema.

Por cierto, recuerda poner etiquetas a tu código fuente en los mensajes.
Ejemplo:



.

Y recuerda también poner las preguntas en el foro adecuado, en este caso seguramente estaría mejor en "Firebird".
¿Leíste nuestra guía de estilo?, gracias.

[martinlillo]

Gracias! De ahora en más usaré ese método para poner código. En cuanto a la guía de estilos, la leí y estoy muy de acuerdo.

Saludos!

[Casimiro Notevi]

Gracias

Empezado por martinlillo

Gracias! De ahora en más usaré ese método para poner código. En cuanto a la guía de estilos, la leí y estoy muy de acuerdo.

Saludos!

[martinlillo]

He estado leyendo, y encontré que hay un componente llamado EDBImage, que permite manejar jpg. Según lo que sospecho, puedo cambiar este componente sin tocar la estructura de la base de datos, en donde la imagen seguirá siendo blob tipo 0. Lo único que cambia es la interfaz.

Estoy en lo correcto?

Saludos!

[Casimiro Notevi]

El componente normal TImage puede mostrar jpg también, haz una búsqueda por los foros, se ha tratado el tema en diversas ocasiones.