Вывести размер БД

[Tanzor69]

Задача стоит крайне простая, нужно вывести на экран размер базы данных access. Однако это никак сделать не могу. Если пытаюсь читать

function GetFileSize(FileName: string): Int64; 
var F: TMemoryStream;
begin
  try
    F:=TMemoryStream.Create;
    F.LoadFromFile(FileName);
    Result:=F.Size;
  finally
    F.Free;
  end;
end;

или

function GetFileSize(FileName: String): Integer;
var
FS: TFileStream;
begin
try
FS := TFileStream.Create(Filename, fmOpenRead);
except
Result := -1;
end;
if Result <> -1 then Result := FS.Size;
FS.Free;
end;

то программа выкидывает ошибку, что невозможно прочитать из-за доступа к файлу. Хотя перед тем как начать его читать выполняю:

procedure CloseAllConnections;
var i : integer;
begin
   for i:= 0 to DataModule2.ADOConnection1.DataSetCount - 1 do
   DataModule2.ADOConnection1.DataSets[i].Close;
   DataModule2.ADOConnection1.Connected:=False;
end;

по идее соединение с БД разрываю, и размер должен считаться, но ошибка не пропадает.

Если пробовать у любого другого файла проверить размер, то всё отлично показывает.

Собственно вопрос в том, как полностью закрыть Бд access на выполнение этой операции.

[eval]

а если файл будет 4 гига, тоже в память пихать будете?

FileSize не подойдет?

[Tanzor69]

делал и через обычный AssignFile, Reset, FileSize.

Но попробовал файла 3 - везде неверный размер. В том числе и размер базы данных которая мнее и нужна. Но зато хотя бы не ругнулся что она открыта.

[eval]

С чего решили что не верный?

[Tanzor69]

ну точнее не то чтобы неверный, просто как я понял, FileSize показывает кол-во строк в файле, а мне надо размер файла в байтах/кб/мб и т.д.

[eval]

в файле строк не бывает

[Tanzor69]

Описание
Функция FileSize выдает размер открытого файла в записях.

Прежде, чем эта функция может использоваться, файл должен быть назначен дескриптору, используя AssignFile и открыт используя подпрограммы Append, Reset или ReWrite.
Примечания
Для получения размеров текстовых файлов в байтах используйте GetFileSize или FindFirst, FindNext, которые возвращают размер и значения даты последнего изменения одного или более файлов.

Перепутал, не строк а записей

[Аватар]

См. 2-й или 3-ий способ.
http://www.sources.ru/delphi/files/get_file_size.shtml

[Tanzor69]

спасибо, завтра на работе попробую