Размер файла он-лайн

[FaTaL]

Если имя файла и его месторасположения известно, то почему не читать его размер через TFileStream?
Например так:

var
  f : TFileStream;
begin
  f := TFileStream.Create('полный путь к файлу', fmOpenRead);
  ShowMessage (IntToStr(f.Size) + ' байт');
  f.Free;
end;

[Primkray]

FaTal, потому, что файл занят процессом записи и через TFileStream программа не получит информацию.

[FaTaL]

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

FaTal, потому, что файл занят процессом записи и через TFileStream программа не получит информацию.

Как я понимаю в файл пишет не Ваша программа?

[Filka]

Включил запись онлайн радио... Такой же глюк...

[Primkray]

FaTal,конечно нет, пишет сторонняя программа.

[Serge_Bliznykov]

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

stream := TFileStream.Create(filename, fmOpenRead or fmShareDenyNone);

[Primkray]

Я пробовал этот код, не работает

[Filka]

procedure UpdateFileState(const FileName: TFileName);
var
  FileHandle: THandle;
begin
  FileHandle := CreateFile(PChar(FileName), 0, FILE_SHARE_READ or
    FILE_SHARE_WRITE or FILE_SHARE_DELETE, nil, OPEN_EXISTING, 0, 0);
  if FileHandle <> INVALID_HANDLE_VALUE then
    CloseHandle(FileHandle);
end;

procedure TForm1.tmr1Timer(Sender: TObject);
var
  Fss1: Int64;
begin
  UpdateFileState('C:\11.mp3');
  Fss1 := GetFileSize('C:\11.mp3');
  Form1.mmo1.Lines.Add(IntToStr(Fss1);
end;

?

[Primkray]

Filka, умница, программа работает, спасибо!

[Filka]

Пожалуйста