checkbox en un form de registro

[Crazyro]

Además de guardar los datos del user y pass en el fichero, deberías guardar una opción que te diga si se guardan o no desde la última vez, para que cuando ejecutes la aplicación primero veas si tiene que estar el check activo, si es así, recoge los datos del user y pass, si desmarcas esta opción deberías guardarla tambien el en txt, para que a la proxima vez que ejecutes la aplicación, no introduzca los datos.

// Para guardar los datos cuando haces click en recordar los datos

procedure TfrmPrincipal.recordarClick(Sender: TObject);
var
fText : TextFile;
fFichero : String; // Nombre del fichero
lFichero : String; // Linea del fichero
bEstado : Boolean; // Si está o no marcada la opción de guardar los datos

begin
Try
lFichero := ' ';
fFichero := 'Nombrefichero.txt' // Con la ruta claro...;-)

AssignFile(fText, fFichero);
Rewrite(fText);


if checkbox.enabled then begin
bEstado := 'T';
// Los ';' son para separar los datos en el fichero
sFichero := bEstado + ';' + edUser.Text + ';' + edPass.Text;
end else begin
bEstado := 'F';
sFichero := bEstado;
end;

Writeln(fText, sFichero);
CloseFile(fText);
except
MessageDlg('Error en el fichero de user', mtConfirmation, [mbYes], 0);
CloseFile(fText);
end;

end;

// Este código se debería poner antes de realizar el application.run
// Jugamos con las mismas variables de antes

AssignFile(fText, fFichero);
Reset(fText);
Readln(fText, sLinea);

// en sLinea tenemos la linea que guardamos la última vez, lo que hay que
// buscar, si el primer caracter es 'T' ó 'F', para seguir o no
// Crearse una función que busque el caracter ';' en la linea sLinea
// cuidado, si hay ';', porque puede ser el primero ; o él último eso
// hay que controlarlo.

nPos := buscar(sLinea, ';');

if nPos = 0 then begin
// no hay ; esto es que no se quiso guardar
end else begin
// hay ; pues recoger todos los datos del user y pass, y marcar el clic como
// activo
end;

CloseFile(fText);



Espero que te haya servido, lo hice rapido y no se si le falta algún control, o que?

salu2.

[Crazyro]

Como dice Roman, en el clic del check no hacer nada, si cuando pulsas aceptar, este está marcado guardar los ficheros con los datos, o el fichero según decidas como hacerlo.

salu2.

[roman]

Empezado por Crazyro

Además de guardar los datos del user y pass en el fichero, deberías guardar una opción que te diga si se guardan o no desde la última vez, para que cuando ejecutes la aplicación primero veas si tiene que estar el check activo, si es así, recoge los datos del user y pass, si desmarcas esta opción deberías guardarla tambien el en txt, para que a la proxima vez que ejecutes la aplicación, no introduzca los datos.

Había pensado algo similar a esto, pero creo que no es necesario guardar esa opción y simplemente basarse en el hecho de que estén o no presentes los otros valores.

// Saludos

[gontxalo]

Hola
Bien, es que en ficheros .txt o ficheros .ini, se leen con bloc de notas. Y creo que guardar un nombre y contraseña de acceso en estos archivos sería un fallo de seguridad. Que opináis.

Lo mejor sería guardarlo en registro de windows ?

Si puede ser así, que tendría que poner en el evento click del botón login para que lo puesto en los edit nombre y contraseña se guarde en el registro de windows ?

Y que tendría que hacer luego para que el checkbox si esta checked lea ese registro de windows y al abrir la aplicación, los edit ya tengan ese nombre y contraseña ?

Gracias

[delphi.com.ar]

Empezado por gontxalo

Hola
Bien, es que en ficheros .txt o ficheros .ini, se leen con bloc de notas. Y creo que guardar un nombre y contraseña de acceso en estos archivos sería un fallo de seguridad. Que opináis.

Lo mejor sería guardarlo en registro de windows ?

Los TXT los lees con el block de notas, y el Registro con el Regedit... ¿Cuál es la diferencia?
Si vas a guardar datos importantes y privados, guardes dónde los guardes lo importante es que esten bien encriptados.

[gontxalo]

No lo se, la verdad pensaba que podían leer más facilmente por ajenos a nuestro ordenador los archivos .txt que lo que tienes en el registro de windows

[[Lepe]]

En lugar de guardarlo como .txt guarda el archivo con extensión .XCR ya no sale el icono del bloc de notas. Es un truco muy usado

Un saludo

[gontxalo]

Hola
Si, guardarlo así no sale el icono de bloc de notas, pero creo que no deja de ser un fallo de seguridad.

Alguien sabe como guardarlo en .txt pero que se guarde encriptado?

Se guardan las claves en .txt pero después de encriptarlo.

En comoponentes indy creo que hay algo de esto, md5 pero no se donde.

Gracias.