FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; |
#2
|
|||
|
|||
Cita:
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 |
#3
|
|||
|
|||
Seguimos sin solución
Cita:
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. |
#4
|
||||
|
||||
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. |
#5
|
|||
|
|||
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. |
#6
|
||||
|
||||
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.
__________________
Se hace lo que se puede que siempre es menos de lo que se dice |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|