Ошибка доступа к файлу делфи

    Процесс не может получить доступ к файлу, так как этот файл занят другим процессом… Но это не точно… Как показала практика, для программы на Delphi это действительно не точно.
    При открытии файла в режиме «только для чтения» в параметре определяющем режим доступа к файлу обычно передают комбинацию «fmOpenRead or fmShareDenyNone». Но оказалось, что это избавляет только от части ошибок «Процесс не может получить доступ к файлу, так как этот файл занят другим процессом» или «The process cannot access the file because it is being used by another process».
    Для начала немного теории. В Delphi режим доступа к файлу, определяется комбинацией константы режима открытия файла (fmOpen*) и константы разделения доступа к файлу (fmShare*). Эти константы описанны в модуле System.SysUtils. Приведу их значение для ОС Windows:

    Теперь перейдем к практике. Попробуем в режиме fmOpenRead открыть все файлы в каталоге для хранения временных файлов (там большая вероятность встретить файл, который занят какими-нибудь процессом).

Вариант 1. Откроем файлы без указания режима разделения доступа

try
  with TFileStream.Create(sFileName, fmOpenRead) do
    try
      // читаем секретные материалы
    finally
      Free
    end;
except
  on E: Exception do
    Writeln(E.Message);
end;

У меня в каталоге для хранения временных файлов нашлось 23 файла, которые заняты какими-то процессами.

Вариант 2. Откроем файлы в режиме разделения доступа «fmShareDenyNone»

try
  with TFileStream.Create(sFileName, fmOpenRead or fmShareDenyNone) do
    try
      // истина где-то рядом
    finally
      Free
    end;
except
  on E: Exception do
    Writeln(E.Message);
end;

Теперь получаем 16 файлов занятых другими процессами и радуемся улучшению результата. Радуемся, но не долго. Некоторые из этих «занятых» файлов открываются на просмотр в «Lister» из Total Commander! Как так?!?

Метод TFileStream.Create приводит к функции FileOpen из System.SysUtils:

function FileOpen(const FileName: string; Mode: LongWord): THandle;
const
  AccessMode: array[0..2] of LongWord = (
    GENERIC_READ,
    GENERIC_WRITE,
    GENERIC_READ or GENERIC_WRITE);
  ShareMode: array[0..4] of LongWord = (
    0,
    0,
    FILE_SHARE_READ,
    FILE_SHARE_WRITE,
    FILE_SHARE_READ or FILE_SHARE_WRITE);
begin
  Result := INVALID_HANDLE_VALUE;
  if ((Mode and 3) <= fmOpenReadWrite) and
    ((Mode and $F0) <= fmShareDenyNone) then
    Result := CreateFile(PChar(FileName), AccessMode[Mode and 3],
      ShareMode[(Mode and $F0) shr 4], nil, OPEN_EXISTING,
      FILE_ATTRIBUTE_NORMAL, 0);
end;

Получается, что в режиме разделения доступа fmShareDenyNone функция CreateFile вызывается с параметром dwShareMode = FILE_SHARE_READ or FILE_SHARE_WRITE. Согласно документации от Microsoft, в WinAPI, кроме FILE_SHARE_READ и FILE_SHARE_WRITE, есть еще режим разделения доступа FILE_SHARE_DELETE. В Delphi константа FILE_SHARE_DELETE описана в модуле Winapi.Windows, но не используется.

Откроем файл для нашего потока сами с учетом FILE_SHARE_DELETE:

var
  h: THandle;
...
h := CreateFile(PChar(sFileName),
                GENERIC_READ,
                FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,
                nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if h = INVALID_HANDLE_VALUE
  then Writeln(SysErrorMessage(GetLastError))
  else with TFileStream.Create(h) do
         try
           // X-файлы наши!
         finally
           Free
         end;

Оказывается, что у меня в каталоге для хранения временных файлов реально только 4 файла занятых другими процессами!

В результате я добавил себе в проект функцию

function FileOpenAsReadOnly(const sFileName: String): THandle;
begin
  Result := CreateFile(PChar(sFileName),
                       GENERIC_READ,
                       FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,
                       nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if Result = INVALID_HANDLE_VALUE then
    raise EFOpenError.CreateResFmt(@SFOpenErrorEx, 
                                   [ExpandFileName(sFileName), 
                                   SysErrorMessage(GetLastError)])
end;

и использовал ее для открытия файлов в режиме «только для чтения»:

TFileStream.Create(FileOpenAsReadOnly(sFileName))

    Конечно, полностью победить эту ошибку мне не удалось, но 4 файла против 23 или 16 — это тоже хорошее достижение. Интересно, то, что разработчики из Borland потеряли FILE_SHARE_DELETE, а разработчики из Embarcadero не нашли — это ошибка в Delphi? Или так надо, и я чего-то не понимаю?

When I run my code an select the save button which i created. The record doesnt save but i get an error ‘file access denied’.

my code :

The code i split into 2 units MainUnit and AddTenantUnit.

I think the problem lies within the procedure at the end of the code. If you scroll down I made it clear which procedure (TAddTenantForm.SaveButtonClick).

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMainForm = class(TForm)
    AddTenantButton: TButton;
    procedure FormCreate(Sender: TObject);
    procedure AddTenantButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TTenantRecord = record
    FirstName : string[20];
    LastName : string[20];
  end;

var
  MainForm: TMainForm;
  Tenant : TTenantRecord;
  TenantFile : file of TTenantRecord;

implementation

uses AddTenantUnit;

{$R *.dfm}

procedure TMainForm.AddTenantButtonClick(Sender: TObject);
begin
  AddTenantForm.ShowModal;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  assignfile (TenantFile, 'Tenant.dat');
  if not fileexists ('Tenant.dat')
  then
    begin
      rewrite (TenantFile);
      closefile (TenantFile)
    end
  {endif};
end;

end.


unit AddTenantUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MainUnit, StdCtrls;

type
  TAddTenantForm = class(TForm)
    MainFormButton: TButton;
    FirstNameLabel: TLabel;
    FirstNameEdit: TEdit;
    LastNameLabel: TLabel;
    LastNameEdit: TEdit;
    SaveButton: TButton;
    ClearButton: TButton;
    procedure SaveButtonClick(Sender: TObject);
    procedure LastNameEditChange(Sender: TObject);
    procedure ClearButtonClick(Sender: TObject);
    procedure FirstNameEditChange(Sender: TObject);
    procedure MainFormButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddTenantForm: TAddTenantForm;

implementation

{$R *.dfm}

procedure TAddTenantForm.MainFormButtonClick(Sender: TObject);
begin
  AddTenantForm.Close;
end;

procedure TAddTenantForm.FirstNameEditChange(Sender: TObject);
begin
  Tenant.FirstName := FirstNameEdit.Text;
end;

procedure TAddTenantForm.ClearButtonClick(Sender: TObject);
begin
  FirstNameEdit.Clear;
  LastNameEdit.Clear;
end;

procedure TAddTenantForm.LastNameEditChange(Sender: TObject);
begin
  Tenant.LastName := LastNameEdit.Text;
end;

// This is where the problem lies when I run this piece of
// code. This represents the Save button being clicked.
procedure TAddTenantForm.SaveButtonClick(Sender: TObject);
begin
  assignfile (TenantFile, 'Tenant.dat');
  write(TenantFile, Tenant);
  closefile (TenantFile);
end;


end.

Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нём некорректно.
Вам необходимо обновить браузер или попробовать использовать другой.

Пожалуйста, выделяйте текст программы тегом [сode=pas] … [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как «свернуть» программу в трей.
3. Как «скрыться» от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
… (продолжение следует) …

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.

Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка — 60 дней. Последующие попытки бан.
Мат в разделе — бан на три месяца…

ошибка доступа к файлу
, или как закрыть файл принудительно?

ViktorXP	Сообщ. #2 , 27.01.08, 06:43
	try    MyStringlist.SaveToFile(‘кудато в небытие’); except    ShowMessage(‘Закрой файл, а то глаз выколю!!’);    // тут можна сказать левой процедуре чобы та закрыла свой доступ и дала дорогу молодым)))    // а потом вызвать процедуру повтора end; Добавлено 27.01.08, 06:45 просто закрыть файл не зная хендл трудновато будет)))

ViktorXP	Сообщ. #4 , 27.01.08, 17:35
	Ну веб браузер не использует постоянно страничку попробуй добавить какойто флаг и перед загрузкой в вебраузер ставить его в истину а в событии OnDocumentComplete ставить его в лож а уже перед сохранением из TStringList проверять илиже перед сохранением зделать WebBrowser1.Stop; чтобы он прекратил загружать страничку

ViktorXP	Сообщ. #7 , 03.02.08, 08:12
	tyoma_first ну тада показывай весь исходник походу у тебя еще чтото файл ковыряет

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей: