Hola edwin.simon
Cita:
Empezado por edwin.simon
... pudo decirte que en la actualidad almaceno la foto en la base de dato usando un DBImage, el problema es que esta muy pesada porque tengo 4300 registro y cada registro tiene una foto si pudiera hacer que se moviera mas rápida fuera un éxito.
si hay otra forma de mejorar el movimiento de la BD, para mi fuera lo mejor.
|
La solución obvia es usar otro formato que mapa de bits para almacenar las imágenes. Para denotar la diferencia, una misma imágen de 1920x1200 píxeles ocupa:
Código:
Formato BMP (24 bits) = 6.912.054 bytes
Formato JPG = 495.616 bytes
Pero, si almacenas imágenes JPG no podrás usar un
TDBImage para mostrarlas, aunque podes usar un
TImage en su lugar.
Un ejemplo básico:
Código Delphi
[-]
implementation
uses Jpeg;
...
var
Cont: Integer = 1;
procedure ImageToField(aImage: TImage; aField: TField);
begin
if aImage.Picture.Graphic is TJPEGImage then
begin
aField.DataSet.Edit;
aField.Assign(aImage.Picture.Graphic);
end;
end;
procedure FieldToImage(aField: TField; aImage: TImage);
var
J: TJPEGImage;
begin
aImage.Picture:= nil;
if (aField is TBlobField) then
if not aField.IsNull then
begin
J:= TJPEGImage.Create;
try
J.Assign(aField);
aImage.Picture.Assign(J);
finally
J.Free;
end;
end;
end;
procedure TForm1.btnAddImageClick(Sender: TObject);
begin
with OpenDialog1 do
begin
if Execute then
begin
Image1.Picture:= nil;
Image1.Picture.LoadFromFile(FileName);
IBDataSet1.Insert;
IBDataSet1.FieldByName('ID').AsInteger:= Cont;
...
ImageToField(Image1,IBDataSet1.FieldByName('IMAGEN'));
IBDataSet1.Post;
Inc(Cont);
end;
end;
end;
procedure TForm1.IBDataSet1AfterScroll(DataSet: TDataSet);
begin
FieldToImage(IBDataSet1.FieldByName('BLOB1'),Image1);
end;
...
Saludos