Tengo un problema con dos clases en delphi,las tengo de la siguiente manera
unit uModuloDatos;
interface
uses
FloguinUsuario;
.
.
.
.
procedure TModuloDatos.DataModuleCreate(Sender: TObject);
var
ConEnc : String;
pedro : TFormLoguinUsuario;
begin
iniconfig:=TConfigIni.Create(ExtractFilePath(ParamStr(0)) + INIFILENAME);
try
ConexionServidorDS_Datos.Connected:=False;
ConexionServidorDS_Datos.Params.Values['HostName'] := iniconfig.Servidor;
ConexionServidorDS_Datos.Params.Values['port'] := iniconfig.PuertoDatos;
ConexionServidorDS_Datos.Params.Values['DSAuthenticationUser']:=
iniconfig.Usuario;
// Encriptar la contraseña introducida con SHA1
conenc:='';
**conEnc:=FormLoguinUsuario.EContrasena.Text;**
if iniconfig.Password<>ConEnc then
begin
conEnc:=iniconfig.Password; // 40 caracteres
iniconfig.Save;
end else
begin
conenc:=CalcHash2(ConEnc,haSHA1);
iniconfig.Password:=ConEnc;
end;
// iniconfig.Password:=ConEnc;
ConexionServidorDS_Datos.Params.Values['DSAuthenticationPassword']:= ConEnc;
ConexionServidorDS_Datos.Connected:=True;
ConexionServidorDS_Datos.Open;
iniconfig.Save;
except
on E: Exception do begin
MessageDlg('No se puede establecer la conexión con el servicio de
datos'+#10#13+
'Revise los parámetros de conexión',TMsgDlgType.mtError,
[TMsgDlgBtn.mbOK],0);
Application.Terminate;
end;
end;
end;
Y otra clase de la siguiente manera: unit FLoguinUsuario;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes,
System.Variants,
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
FMX.Objects, FMX.Edit, Data.DB, Datasnap.DBClient,IdStack,Data.DBXCommon ;
procedure TFormLoguinUsuario.BtnAceptarClick(Sender: TObject);
var
conEnc : String;
iniconfig : TConfigIni;
begin
iniconfig:=TConfigIni.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
// Validar formato de datos introducidos
iniconfig.Servidor:=EServidor.Text;
iniconfig.PuertoDatos:=EPuerto.Text;
iniconfig.Usuario:=EUsuario.Text;
iniconfig.Password:=EContrasena.Text;
if CBRecordarClave.IsChecked then
begin
EContrasena.Text:=iniconfig.Password;
end else
begin
EContrasena.Text:='';
end;
Mi problema es que me da un error de INACCESIBLE VALUE en la linea en negrita,intento acceder al valor del edit de la contraseña pero siempre me da INACCESIBLE VALUE y no entiendo por que la verdad,lo tengo todo en public,evidentemente los uses tambien...No se porque no puedo acceder al texto del objeto.
Un saludo!