FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemas con imágenes en BD
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!!!
__________________
Programo por comida! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
!! Problemas con movimiento de imágenes !! | Darkseratul | Varios | 3 | 11-07-2011 22:04:23 |
Problemas con imagenes jpg | Besto | Gráficos | 4 | 11-10-2006 09:11:52 |
Problemas utilizando STI para adquisición de imágenes | harpo | API de Windows | 2 | 24-08-2006 17:09:20 |
Problemas con Streams e Imágenes | Elfoscuro | Gráficos | 2 | 09-05-2005 19:42:26 |
problemas con mail e imagenes | hugokizo | PHP | 2 | 11-10-2004 10:02:14 |
|