Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3023480 Fri, 11 Nov 2011 09:23:30 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3023480 Цитата neut ral @
так?

Не совсем.

вы забыли об assignfile,reset,write(ln)...,closefile

rewrite затирает файл(создает с 0-ля), а мне это не нужно в данной ситуации]]> ^D^ima Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3023348 Fri, 11 Nov 2011 06:35:10 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3023348 Цитата ^D^ima @
Если Вам кажется, напишите об этом

чтобы "прочитать" файл делаем assignfile,reset,read(ln)...,closefile
чтобы записать файл делаем assignfile,rewrite,write(ln)...,closefile
так?]]> neut ral Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3022979 Thu, 10 Nov 2011 13:35:00 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3022979
Спасибо большое.

Операций со своими файлами не было. Я не думал что из-за сторонней процедуры может быть.]]> ^D^ima Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3022971 Thu, 10 Nov 2011 13:21:04 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3022971 (Давно эта мыслЯ крутилась, но ты ж уверял, что больше нет операций с файлами)]]> leo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3022880 Thu, 10 Nov 2011 11:48:10 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3022880 ^D^ima Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3022826 Thu, 10 Nov 2011 11:06:17 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3022826 Цитата ^D^ima @
  Reset(F);
...
  Write(F,User);
reset, а потом write ... Вам не кажется, что тут что-то не так? :rolleyes:]]> neut ral Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3022686 Thu, 10 Nov 2011 07:32:28 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3022686
Сократил 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 (, : 776) ]]> ^D^ima Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017333 Tue, 01 Nov 2011 06:37:15 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017333 GFHFLJRC Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017324 Tue, 01 Nov 2011 06:29:09 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017324
    S:=Form1.CurDir+'User.ini';
    AssignFile(F,S);
    if FileExists(S) then
      Reset(F)
    else
      Rewrite(F);
    try
      ...
    finally
      CloseFile(F);
    end;
]]> leo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017316 Tue, 01 Nov 2011 06:18:14 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017316 ^D^ima Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017144 Mon, 31 Oct 2011 17:03:58 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017144 Цитата Shaggy @
как-то странно, в одном случае передаёшь размер файла(в байтах), а в другом, номер раписи...

Для типизированного файла FileSize выдает размер в кол-ве записей, а не в байтах]]> leo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017124 Mon, 31 Oct 2011 15:56:29 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017124 Цитата Polinom2686 @
попробовать при Reset и ReWrite указывать размер блока данных

Для типизированного файла такого понятия нет.]]> northener Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017091 Mon, 31 Oct 2011 14:57:32 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017091 Seek(F,D2);

как-то странно, в одном случае передаёшь размер файла(в байтах), а в другом, номер раписи...]]> Shaggy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017086 Mon, 31 Oct 2011 14:45:13 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017086 Polinom2686 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017075 Mon, 31 Oct 2011 14:18:24 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3017075 ^D^ima Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3014855 Thu, 27 Oct 2011 13:10:45 +0000 File access denied https://forum.sources.ru/index.php?showtopic=343655&view=findpost&p=3014855
    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 Delphi: Общие вопросы