Не даёт покоя TFileStream и fmShareDenyNone.

[avd]

У кого есть Delphi XE(2,3) перебилдите пожалуйста, хочется узнать вдруг у вас всё заработает. У меня 2010.

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TFileStream;
  name: string;
  strl: tStringList;
begin
  strl := TStringList.Create();

  name := ExtractFileDir(Application.ExeName) + '\test.txt';

  Stream := TFileStream.Create(name, fmCreate or fmShareDenyNone);
  Stream.Write(AnsiString('123456789')[1], 9);

  strl.LoadFromFile(name); // У меня здесь исключение несмотря на fmShareDenyNone
  strl.Free;

  Stream.Free;

end;

[Serge_Bliznykov]

проверил код у себя в Delphi 2006
та же фигня.

погуглил. Это широкоизвестный факт.
Насколько я понимаю, ключики с fmShareDenyxxxx Win API понимает только для режимов, когда файл открывается на чтение.
попробуйте, например
Stream := TFileStream.Create(name, fmOpenRead or fmShareDenyNone);

решение. каждый раз после записи в файл закрывайте поток.
вот так:

  if FileExists(name) then begin
    Stream := TFileStream.Create(name, fmOpenReadWrite);
    Stream.Seek(0, soFromEnd );
  end
  else
    Stream := TFileStream.Create(name, fmCreate);

  s := '123456789'#13#10;
  Stream.Write(s[1], Length(s));
  FreeAndNil(Stream);

[astecenko]

fmCreate = $FFFF - то бишь она перекрывает все с чем будет складываться (OR), и имеет эксклюзивный доступ.
По этому вначале создайте файл (с помощью CreateFile), а потом уже открывайте его файловым потоком с нужным Вам методом доступа.

[avd]

каждый раз после записи в файл закрывайте поток.

Делать этого мне не хочется (хотя так и приходится делать) т. к. у меня пишется лог файл и теоретически за 1 сек. может возникать до 256 событий.
fmCreate в модуле Classes: fmCreate = $FF00;
Но, что интересно, блокнотом файл который

TFileStream.Create(name, fmCreate or fmShareDenyNone);

спокойно можно открыть!
Интересно всё-таки кто виноват в такой ситуации Delphi или API?

Можно конечно придумать что-то типа

  CopyFile(PWideChar(name), PWideChar(name + '0'), true);
  strl.LoadFromFile(name + '0');
  strl.Free;

[astecenko]

Хм, странно.
У меня Delphi 7, в Classes буквально:

const
{ TFileStream create mode }

  fmCreate = $FFFF;

Файл созданный открыть не даёт - пишет "Файл занят другим процессом".

смотрите тут

[Serge_Bliznykov]

astecenko, это было бы хорошо, если это было так просто.

Дело в том, что при использовании кода fmOpenReadWrite ( fmOpenReadWrite = 0002 )
наблюдается точно такая же ошибка с доступом к файлу:

проверьте:

  name := ExtractFileDir(Application.ExeName) + '\test.txt';
  Stream := TFileStream.Create(name, fmOpenReadWrite or fmShareDenyNone);
  Stream.Write(AnsiString('123456789')[1], 9);

  strl.LoadFromFile(name);

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

Но, что интересно, блокнотом файл который

TFileStream.Create(name, fmCreate or fmShareDenyNone);

спокойно можно открыть!
Интересно всё-таки кто виноват в такой ситуации Delphi или API?

"я не в курсе, ребята..."
а попробуйте
а) дополнительное приложение на Delphi откроет такой файл?
b) если да - тогда попробуйте в дополнительном потоке открыть файл. Может операционка ограничивает доступ в пределах одного выполняемого потока (нити== thread)...

[avd]

а) дополнительное приложение на Delphi откроет такой файл?

В том-то и беда (для меня), что не открывает;

[astecenko]

Проверил, на LoadFromFile все равно выскакивает ошибка, но дополнительное приложение на Delphi (TotalCommander Viewer) открывает

[avd]

astecenco, спасибо за помощь.
Видимо беда со StringList. Я об этом даже не подумал.
Так всё работает:

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream, strm: TFileStream;
  name: string;
begin
  name := ExtractFileDir(Application.ExeName) + '\test.txt';

  Stream := TFileStream.Create(name, fmCreate or fmShareDenyNone);
  Stream.Write(AnsiString('123456789')[1], 9);

  strm := TFileStream.Create(name, fmCreate or fmShareDenyNone);
  strm.Write(AnsiString('abcd')[1], 4);
  strm.Free;

  Stream.Free;
end;

Может StringList требует себе монопольный доступ к файлу, а он уже открыт (как-то так).

[astecenko]

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

Может StringList требует себе монопольный доступ к файлу, а он уже открыт (как-то так).

Так посмотреть же можно

procedure TStrings.LoadFromFile(const FileName: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;