Fórum Manipulacao de TXt #286659
01/07/2005
0
Kenshinhimura
Curtir tópico
+ 0Posts
01/07/2005
Aroldo Zanela
Coloque um fragmento do código para que possamos avaliar melhor. Normalmente utilizamos ´Shadow login´ por meio de uma tabela no próprio banco de dados, mas é preciso avaliar seu código para entender exatamente o seu problema.
Gostei + 0
01/07/2005
Kenshinhimura
type
User = record
Usuario: String[50];
Senha: String[10];
homedirectory: string[50];
fullname : string[50];
Flag: char; //Marca se o usuario é administrador
status: char;//MARCA SE ESTA OU NÃO DELETADO
online:char; //MARCA SE O USUARIO ESTA CONECTADO
end;
Var
Dado: User;
ArquivoSenha: file of User;
Gostei + 0
02/07/2005
Leolopes79
Gostei + 0
02/07/2005
Leolopes79
Gostei + 0
02/07/2005
Adriano Santos
Declare a unit IniFiles no uses do form.
Criei duas procedures pra você ver como funciona, uma le o INI e outra grava.
procedure Leitura;
var
INI : TIniFiles;
Usuario: String;
Senha: String;
HomeDirectory: String;
begin
Ini := TIniFile.Create(´C:\MeuProjeto´);
Usuario:= Ini.ReadString(´CONFIGURACAO´,´USUARIO´,Usuario);
Senha:= Ini.ReadString(´CONFIGURACAO´,´SENHA´,Senha);
Usuario:= Ini.ReadString(´CONFIGURACAO´,´HOMEDIRECTORY´,HomeDirectory);
ShowMessage(´Usuário:´ + Usuario + #13 + ´Senha:´ + Senha + 13 + ´HomeDirectory:´ + HomeDirectory);
Ini.Free;
end;
procedure Gravacao;
var
INI : TIniFiles;
Usuario: String;
Senha: String;
HomeDirectory: String;
begin
Ini := TIniFile.Create(´C:\MeuProjeto´);
Usuario := ´Adriano´;
Senha:= ´000000´;
HomeDirectory:= ´C:\Windows\´;
Ini.WriteString(´CONFIGURACAO´,´USUARIO´,Usuario);
Ini.ReadString(´CONFIGURACAO´,´SENHA´,Senha);
Ini.ReadString(´CONFIGURACAO´,´HOMEDIRECTORY´,HomeDirectory);
Ini.Free;
end;
Ai você pode usar algum esquema de criptografia para não deixar a senha tão fácil de descobrir.
Gostei + 0
03/07/2005
Kenshinhimura
----
vc mencionou q tem componente pra criptogravar mais esqueceu de me passar o nome do componente(a aba tb ajuda). e por favor como nao manjo muito de programaçao ainda se puderem me adicionar no msn eu agradeço o pouco q sei eu compartilho com quem precisa , mais sempre to precisando de ajuda
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)