consulta de imagen

[ecfisa]

Hola edwin.simon

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:

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;

// TImage a TBlobField
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;

// TBlobField a TImage
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;

// Agregar una imágen
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;

// Mostrar imágen al desplazarse
procedure TForm1.IBDataSet1AfterScroll(DataSet: TDataSet);
begin
  FieldToImage(IBDataSet1.FieldByName('BLOB1'),Image1);
end;
...

Saludos