Como siempre gracias al foro pude utilizar los Tinifiles y todo bien pero ahora me sigue saliendo el error donde al ultimo me marca en :
Código Delphi
[-]
DestroyComponents;
if FOwner <> nil then FOwner.RemoveComponent(Self);
inherited Destroy;
este codigo esta dentro de la unidad Clases
Ahora bien el codigo q hice es el siguiente tengo un modulo en el cual estan mis componentes mdobd,mdotransaction entonces en el evento on create del modulo tengo el siguiente codigo:
Código Delphi
[-]
modulo_bd.MDOBD_SAM.Connected:=false;
modulo_bd.MDOT_SAM.Active:=false;
modulo_bd.mdoq_listado_gral.Active:=false;
modulo_bd.mdoq_act_edad.Active:=false;
Fichero := ExtractFileDir (ParamStr(0))+'\Config.ini';
if FileExists('D:\P_SAM\Aplicacion\Config.ini') then
begin
MiFichero := TiniFile.Create (Fichero);
Var1:= MiFichero.ReadString ('ServidorBD','Servidor','');
MiFichero.Free;
modulo_bd.MDOBD_SAM.DatabaseName:=var1+':'+'D:\P_SAM\BD\P_SAM.FDB';
modulo_bd.MDOBD_SAM.Params.Add('user_name=SYSDBA');
modulo_bd.MDOBD_SAM.Params.Add('password=masterkey');
modulo_bd.MDOBD_SAM.Connected:=true;
modulo_bd.MDOT_SAM.Active:=true;
modulo_bd.mdoq_listado_gral.Active:=true;
modulo_bd.mdoq_act_edad.Active:=true;
end
else
begin
modulo_bd.MDOBD_SAM.Connected:=false;
modulo_bd.MDOT_SAM.Active:=false;
f_conectar.ShowModal;
end;
ahora bien si el archivo no existe entonces se llama a otro formulario donde se registrara el nombre de la PC servidora
entonces en el eventro onclick del boton del formulario f_conectar tengo el siguiente codigo:
Código Delphi
[-]
var MiFichero:Tinifile;
fichero,var1:string;
begin
modulo_bd.MDOBD_SAM.Connected:=false;
modulo_bd.MDOT_SAM.Active:=false;
modulo_bd.mdoq_listado_gral.Active:=false;
modulo_bd.mdoq_act_edad.Active:=false;
Fichero := ExtractFileDir (ParamStr(0))+'\Config.ini';
MiFichero := TiniFile.Create (Fichero);
MiFichero.WriteString ('ServidorBD','Servidor',login.text);
MiFichero.Free;
modulo_bd.MDOBD_SAM.DatabaseName:=login.Text+':'+'D:\P_SAM\BD\P_SAM.FDB';
modulo_bd.MDOBD_SAM.Params.Add('user_name=SYSDBA');
modulo_bd.MDOBD_SAM.Params.Add('password=masterkey');
modulo_bd.MDOBD_SAM.Connected:=true;
modulo_bd.MDOT_SAM.Active:=true;
modulo_bd.mdoq_listado_gral.Active:=true;
modulo_bd.mdoq_act_edad.Active:=true;
close;
end;
donde es que cometo el error ??? o en que evento tendria q estar el codigo?? la verdad no me ubico en que evento tendria q destruir un objeto??
como siempre espero que me puedan brindar toda la ayuda posible
indicarles q mas antes que haga este codigo todo iva bien
Muchas gracias por toda la ayuda q puedan brindarme