Foros Club Delphi - Problema con ficheros

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Problema con ficheros (https://www.clubdelphi.com/foros/showthread.php?t=9822)

Problema con ficheros

hola compañeros,
usamos un fichero de registros para realizar la gestión de usuarios de un programa. Cuando damos de alta un usuario, se tiene que escribir sus datos, incluyendo el nombre de usuario y una contraseña, en el fichero. Entonces al inciar sesión en el programa, lo que hacemos comparar el nombre y contraseña introducidos con los que hay en el fichero y si coincide con alguno es que el usuario está registrado y por tanto puede utilizar el programa.
El problema es que nos da este error al intentar inciar la sesión con el nombre y contraseña de un usuario que ya está registrado en el fichero: "Proyect ... raised exception class ElnOutError with message 'Read Beyond End of File'. "

Él código para dar de alta es:

Código:

type

  tentrada = record

     nombre:string[15];

     apellidos:string[25];

     contrasena:string[20];

     nombre_usuario:string[20];

     end;



var

  ficherousuarios:file of tentrada;

     .

     .

     .



procedure TForm6.Button1Click(Sender: TObject);

var

 linea:string;

 nombre2,apellidos2,nombre_usuario2,

 contrasena2,rcontrasena2,contrasenaad:string;

 usuario:tentrada;

begin

 usuario.nombre:=#0;

 usuario.apellidos:=#0;

 usuario.contrasena:=#0;

 usuario.nombre_usuario:=#0;  

 nombre2:=Edit1.Text;

 apellidos2:=Edit2.Text;

 nombre_usuario2:=Edit3.Text;

 contrasena2:=Edit4.Text;

 rcontrasena2:=Edit5.Text;

 contrasenaad:=Edit6.Text;

 Edit1.Text:='';

 Edit2.Text:='';

 Edit3.Text:='';

 Edit4.Text:='';

 Edit5.Text:='';

 Edit6.Text:='';

 AssignFile(administrador,'administrador.txt');

 Reset(administrador);

 Readln(administrador,linea);

 if linea=contrasenaad then

 begin

   AssignFile(ficherousuarios,'ficherousuarios');

   if FileExists('ficherousuarios') then

    begin

     Reset(ficherousuarios);

    // totreg:=FileSize(ficherousuarios);

     Seek(ficherousuarios,FileSize(ficherousuarios));

    end

   else Rewrite(ficherousuarios);

   if contrasena2=rcontrasena2 then

    begin

       usuario.nombre:=nombre2;

       usuario.apellidos:=apellidos2;

       usuario.contrasena:=contrasena2;

       usuario.nombre_usuario:=nombre_usuario2;

       write(ficherousuarios,usuario);

       Form6.ModalResult:=mrOk;

       Form6.Visible:=False;

       Form1.Visible:=True;

       CloseFile(ficherousuarios);

    end

   else

    begin

     Form17.ShowModal;

     CloseFile(ficherousuarios);

    end;

  end

 else Form11.ShowModal;

end;

y el código con el que leemos para poder iniciar la sesión es el siguiente:

Código:

procedure TForm2.Button1Click(Sender: TObject);

var

 n2,c2,nombre2,contrasena2:string;

 ej:tentrada;

 encon,enconc,enconn:boolean;

begin

 encon:=false;

 enconc:=true;

 enconn:=false;

 nombre2:=Edit1.Text;

 contrasena2:=Edit2.Text;

 Edit1.Text:='';

 Edit2.Text:='';

 AssignFile(ficherousuarios,'ficherousuarios');

 if FileExists('ficherousuarios') then

    begin

     Reset(ficherousuarios); 

     while not Eof(ficherousuarios) do

      begin

       read(ficherousuarios,ej);//EL ERROR NOS DA JUSTO EN ESTE PUNTO 

       n2:=ej.nombre_usuario;

       c2:=ej.contrasena;

       if (n2=nombre2)then

        begin

         enconn:=true;

         if (c2<>contrasena2) then enconc:=false;

        end;

       if ((n2=nombre2) and (c2=contrasena2)) then

        encon:=true;

      end;

     if encon then

      begin

        Form3.Activar;

        Form2.ModalResult:=mrOK;

        Form2.Visible:=False;

      end

     else if ((enconn=true) and (enconc=false)) then

       Form13.ShowModal

      else Form14.ShowModal;

     Seek(ficherousuarios,1);

    end

 else Form12.ShowModal;

end;

nosotras no encontramos el error, espero que nos podais ayudar, gracias.

Cita:

'Read Beyond End of File'

Comprobad que el fichero tenga almenos 80 bytes. (tamaño de la estructura que utilizais)

A parte de esto:
el fichero 'ficherousuarios', no simepre va a estar donde deseeis, ya que puede variar del "directorio donde trabajeis", por lo que si en algún momento, accedeis a otro directorio, puede variarla ruta.

No cerrais el fichero despues de leer, por lo que supongo que lo maneneis abierto para cerrarlo posteriomente, ya que la variable file que utilizais es global

Seguimos sin solución

Cita:

Empezado por Julià T.

Muchas gracias por tu respuesta,
Hemos comprobado el tamaño del fichero y es de 336 bytes,asi que por eso no puede darnos el error.
El fichero ya lo hemos cerrado, pero nos sigue dando el mismo error de 'Read beyond end of file' en el mismo punto que antes.
A ver si nos podeis ayudar, porfavor.
Muchas gracias.

Sugerencia:
Salir del bucle
while not Eof(ficherousuarios) do
cuando lo encuentre o bien por el Eof

¿Para que seguir recorriendo todo el archivo si ya lo ha encontrado?

Saludos.

Gracias Lepe,
hemos añadido en el bucle la condicion de que siga buscando mientras no lo encuentra(con una variable booleana), pero aún así, nos da error.En cualquier caso, con condición añadida o sin ella no debería dar ese problema,no sé a que se refiere exactamente con 'Read beyond end of file'(Lee más allá del fin de fichero),
¿puede ser por que la posición del cursor al intentar leer este al final del fichero?Pero se supone que al hacer un reset el fichero se abre para lectura y el cursor se posiciona al principio, no?

Puede que el problema esté en dar de alta a un usuario, pero no encontramos ningún fallo en el código(antes lo escribimos )

Muchas gracias de nuevo, espero que nos podais echar un cable.

Podríais insertar antes de la lectura de la línea, la lectura de un único caracter y si ese caracter es #26 (EOF) que no lea la línea completa y salga del bucle.

Un saludo.