File access denied

[^D^ima]

Процедура для показа списка пользователей/создания нового пользователя/чтения данных конкретного пользователея.

Type
  TUser = Record
            Name:String[100];
            Password:String[100];
          End;
 
var
  F:File of TUser;
  User:TUser;
  I,I1:Word;
 
Procedure UserProc(D:Byte;D2:Byte);{D - 1-show 2-add 3-read, D2 - Номер пользователя}
Var
 Size:Word;
 S:String;
Begin
  AssignFile(F,Form1.CurDir+'User.ini');
  {$I-}
  Reset(F);
    If  IOResult<>0 then Rewrite(F);
  {$I+}
    Size:=FileSize(F);
 
  Case D of
   1:Begin
       While Not Eof(F) do
         Begin
           Read(F,User);
           Form2.ListBox1.Items.Add(User.Name);
           Form4.ListBox1.Items.Add(User.Name);
         End;
     End;
   2:Begin
       S:=InputBox('Введите имя нового пользователя:','','');
         If S<>'' Then
         If not DirectoryExists(Form1.CurDir+S) Then
           Begin
             User.Name:=S;
             S:=InputBox('Введите пароль:','','');
               If S<>'' Then
                 Begin
                   User.Password:=S;
                   Seek(F,Size);
                   Write(F,User);//File Access Denied!!!
                   MkDir(Form1.CurDir+User.Name);
                   Form1.UserDir:=User.Name;
                 End;
           End Else ShowMessage('Пользователь уже существует');
     End;
   3:Begin
       Seek(F,D2);
       Read(F,User);
     End;
  End;{case}
 
  CloseFile(F);
End;

Если мы вызываем данную процедуру для создания пользователя неограниченное кол-во раз, все работает( UserProc(2,0) )

Стоит только прозвести чтение(UserProcD(3,1) ) и затем снова создание UserProc(2,0), как вываливается Write(F,User);//File Access Denied!!!
Не пойму в чем дело.

Файл User.ini не блокирован, я проверял перемещением, в чем ещё может быть дело?

Там ещё есть код конечно, но в нем нет операций по работе с файлами

Сообщение отредактировано: ^D^ima - 27.10.11, 14:42

[^D^ima]

Подскажите методу как отловить глюк

[Polinom2686]

Я не уверен, но может попробовать при Reset и ReWrite указывать размер блока данных.

[Shaggy]

Seek(F,Size);
Seek(F,D2);

как-то странно, в одном случае передаёшь размер файла(в байтах), а в другом, номер раписи...

[northener]

Цитата Polinom2686 @ 31.10.11, 14:45

попробовать при Reset и ReWrite указывать размер блока данных

Для типизированного файла такого понятия нет.

[leo]

Цитата Shaggy @ 31.10.11, 14:57

как-то странно, в одном случае передаёшь размер файла(в байтах), а в другом, номер раписи...

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

[^D^ima]

Подскажите алгоритм багфикса. IDE Delphi7

[leo]

Для начала попробуй переписать "по человечески"

S:=Form1.CurDir+'User.ini';
AssignFile(F,S);
if FileExists(S) then
  Reset(F)
else
  Rewrite(F);
try
  ...
finally
  CloseFile(F);
end;

[GFHFLJRC]

Скопировал пример, но по указанным действиям, так и не удалось повторить ошибку, все прекрасно читается и пишется в любом порядке. BDS 2006.

[^D^ima]

Выяснои в чем дело. ТОлько не знаю как решить. Помогите советом...

Сократил 1-й код до минимума.

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AdvGlowButton, StdCtrls, AdvSmoothExpanderGroup;
 
type
  TForm2 = class(TForm)
    AdvSmoothExpanderGroup1: TAdvSmoothExpanderGroup;
    AdvGlowButton1: TAdvGlowButton;
    procedure AdvGlowButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
Type
  TUser = Record
            Name:String[100];
            Password:String[100];
          End;
 
var
  Form2: TForm2;
  F:File of TUser;
  User:TUser;
 
implementation
 
uses NxCustomGridControl, Unit1;
 
{$R *.dfm}
 
 
procedure TForm2.AdvGlowButton1Click(Sender: TObject);
begin
  form1.NextGrid1.LoadFromTextFile(form1.CurDir+'1\table1.tbl');
 
  AssignFile(F,Form1.CurDir+'User.ini');
 
  Reset(F);
  User.Name:='777';
  User.Password:='777';
  Write(F,User);
  CloseFile(F);
end;
 
 
end.

Если убрать form1.NextGrid1.LoadFromTextFile(form1.CurDir+'1\table1.tbl'); то все работает.

NextGrid1 это известный компонент(тут)
Ошибка в атаче. Что с этим можно сделать? Delphi7
Прикреплённый файл__________.png (19,66 Кбайт, скачиваний: 728)

Сообщение отредактировано: ^D^ima - 10.11.11, 07:35

[neut ral]

Цитата ^D^ima @ 10.11.11, 07:32

  Reset(F);
...
  Write(F,User);

reset, а потом write ... Вам не кажется, что тут что-то не так?

[^D^ima]

Если Вам кажется, напишите об этом

[leo]

Проверь значение переменной FileMode, должно быть = 2 = fmOpenReadWrite
(Давно эта мыслЯ крутилась, но ты ж уверял, что больше нет операций с файлами)

[^D^ima]

В точку.

Спасибо большое.

Операций со своими файлами не было. Я не думал что из-за сторонней процедуры может быть.

[neut ral]

Цитата ^D^ima @ 10.11.11, 11:48

Если Вам кажется, напишите об этом

чтобы "прочитать" файл делаем assignfile,reset,read(ln)...,closefile
чтобы записать файл делаем assignfile,rewrite,write(ln)...,closefile
так?