Удаление информации из файлов .mb: почему не происходит?

[Ruschel]

У меня в таблице хранятся фотографии в blob-поле, при добавлении фотографии в таблицу создается в той же папке файл <table name>.mb где хранятся эти фото. При удалении записей из таблицы размер этого файла не уменьшается....в чем проблема?
Удаляю так(там три сендера - предпросмотр 3-х фото из базы):

procedure TNewEdit.DelFoto(Sender: TObject);
var i,ButtonSelect:integer;
begin
 ButtonSelect:=Application.MessageBox('Óäàëèòü ôîòîãðàôèþ?','Ôîòîãðàôèè',mb_IconQuestion+mb_YesNo+mb_TaskModal);
 if (ButtonSelect=idYes) then
  begin
   DMUnit.Foto.First;
   if Sender=DelFoto1 then
    begin
     Foto1.Picture.Bitmap.FreeImage;
     Foto1.Picture:=nil;
     i:=DMUnit.Foto.MoveBy(FotoScroll.Position-1);
     DMUnit.Foto.Delete;
     DMUnit.Foto.Refresh;
     FotoScrollClick(self,btNext);
    end;
   if Sender=DelFoto2 then
    begin
     Foto2.Picture.Bitmap.FreeImage;
     Foto2.Picture:=nil;
     i:=DMUnit.Foto.MoveBy(FotoScroll.Position);
     DMUnit.Foto.Delete;
     DMUnit.Foto.Refresh;
     FotoScrollClick(self,btNext);
    end;
   if Sender=DelFoto3 then
    begin
     Foto3.Picture.Bitmap.FreeImage;
     Foto3.Picture:=nil;
     i:=DMUnit.Foto.MoveBy(FotoScroll.Position+1);
     DMUnit.Foto.Delete;
     DMUnit.Foto.Refresh;
     FotoScrollClick(self,btNext);
    end;
  end;
end;

[Stilet]

Размер не уменьшается скорее всего потому что при удалении физически записи не удаляются а просто помечаются как удаленные.
Я точно не помню но по-моему есть SQL команда, которая вычищает удаленные записи окончательно, но это зависит от провайдера

[Ruschel]

у меня локальная база данных на основе BDE. Без SQL. У меня правда все происходит в режиме CachedUpdates/ApplyUpdates. Я пробовал без этого - все равно не удаляется физически из файла. Кто знает как бороться? Фотки не мало место едят, а если еще и удаляться не будут....то база разрастется

[Andrei]

Сообщение от Ruschel

у меня локальная база данных на основе BDE. Без SQL. У меня правда все происходит в режиме CachedUpdates/ApplyUpdates. Я пробовал без этого - все равно не удаляется физически из файла. Кто знает как бороться? Фотки не мало место едят, а если еще и удаляться не будут....то база разрастется

Не удаляются потому, что размер блоб поля может быть очень значительным и физическое удаление данных и переписывание всего файла может закончиться плачевно для него. Поэтому разработчики поступают просто. Они дописывают новые (или измененные) данные конец файла и в основной таблице только меняют ссылку на них. В FoxPro, например, упаковка БД выполняется в эксклюзивном режиме командой PACK, кажется. Причем, паковать там нужно отдельно основную таблицу и отдельно файл с блоб полями.

Думаю в Access происходит нечто подобное. Вот, нарыл в Гугле функцию для упаковки Accessa:

{
here is a function i have made to compact and repair an access database.
exclusive access to the db is required!!
}

uses
comobj;

function compactandrepair(db: string): boolean; {db = path to access database}
var
v: olevariant;
begin
result := true;
try
v := createoleobject('jro.jetengine');
try
v.compactdatabase('provider=microsoft.jet.oledb.4.0;data source='+db,
'provider=microsoft.jet.oledb.4.0;data source='+db+'x;jet oledb:engine type=5');
deletefile(db);
renamefile(db+'x',db);
finally
v := unassigned;
end;
except
result := false;
end;
end;

------
PS: Хмм... а почему я решил, что это Access? Впрочем, суть предложения от этого не меняется.
В эксклюзивном режиме создаем новую таблицу. Переносим данные из старой таблицы в новую.
Удаляем старую таблицу. Переименовываем новую.

[Kotofff]

у меня локальная база данных на основе BDE. Без SQL.

Какой формат самого файла базы ?
Или какой провайдер используешь для доступа к базе ?
В зависимости от этого есть команды о которых говорил Stilet.