Los foros del Guille

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 

elGuille.hosting: Ofertas de alojamiento
posiblemente los mejores precios
¡¡¡ Ahora con el doble de casi todo !!!

Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

20/oct/2006
Repetimos: ya que de vez en cuando es bueno que sepas que cosas te facilitarán las respuestas:
-No repitas mensajes,
-Intenta escribir un asunto adecuado a tu duda,
-No personalices (no indiques el nombre de quien quieres que responda),
-Explica bien tu duda, ten en cuenta que el que lee no puede leer tu mente y necesita saber todo lo que tu sabes para poder ayudarte.
Gracias.

  Foro: Delphi.General Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 9421 - Archivos INI
IDAsuntoFechaNick 
9421 Archivos INI24/10/05 21:11Poara   
Desearia conocer la utilidad de estos archivos y la manera de implementarlos. Gracias.
IDAsuntoFechaNick 
10768 Re: Archivos INI (Resp: 9421)14/11/05 17:55acertij022   
Hola la forma de utilizar los archivos ini es de siguiente manera:
1)debes agregar en las Uses IniFiles.
2) tenes crear una variable del tipo TIniFile.
Ej:

procedure escribir();
var
FileIni: TIniFile;
begin
FileIni := TIniFile.Create('c:\config.ini');
FileIni.WriteString('Directorio','Base','lo que quiera escribir');
FileIni.Free;
end;


procedure leer()
var
FileIni: TIniFile;
str1:string;
begin
FileIni := TIniFile.Create('c:\config.ini');
str1:=FileIni.ReadString('Directorio','Base','');
FileIni.Free;
showmessage(str1);
end;

****probado en delphi 6 ****


Si esta respuesta resuelve tu duda, por favor pulsa en la de este mensaje. Gracias.
IDAsuntoFechaNick 
10929 Re: Archivos INI (Resp: 10768)16/11/05 20:05Poara   
Muchas Gracias.

Bien, ahora que se como se implementan, como utilizarlos para direccionar una aplicacion a una base de datos.



Si esta respuesta resuelve tu duda, por favor pulsa en la de este mensaje. Gracias.
IDAsuntoFechaNick 
10932 Re: Archivos INI (Resp: 10929)16/11/05 20:38acertij022   
La forma seria mas o menos asi:




procedure TForm1.FormCreate(Sender: TObject);
var
FileIni: TIniFile;
st:String;
begin
//....................................................

FileIni := TIniFile.Create(ExtractFilePath(ParamStr(0))+'config.ini');
ZConnection1.HostName := FileIni.ReadString('Directorio', 'Base','');
FileIni.free;
if ZConnection1.HostName = '' then
begin
st:= inputbox('Ingrese el host de la base de datos:','','');
if st<>'' then
begin
FileIni := TIniFile.Create(ExtractFilePath(ParamStr(0))+'config.ini');
FileIni.WriteString('Directorio','Base',st);
FileIni.Free;
Showmessage('La aplicación se cerrara para tomar el cambio');
application.Terminate;
end;
end;
Try
ZConnection1.Connected := true;
ZQueryCliente.Active := true;
ZQueryInt.Active := true;
except
Showmessage('No se pudo cargar la base de datos!!'+#$D#$A+'La aplicación se cerrará');
application.Terminate;
end;
end;


Este ejemplo es utilizando los componentes ZEOS(conecya con base Mysql,Firebirds,Interbase,postreSQL,ADO, SysDBA).
Espero que sea de ayuda


Si esta respuesta resuelve tu duda, por favor pulsa en la de este mensaje. Gracias.
IDAsuntoFechaNick 
10962 Re: Archivos INI (Resp: 10932)17/11/05 14:16Poara   
Es lo que realmente necesitaba. Muchisimas gracias y hasta la proxima.



Si esta respuesta resuelve tu duda, por favor pulsa en la de este mensaje. Gracias.

 
(c) Guillermo 'guille' Som, 2005-2018  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8793)
 
Usuarios activos: 64 - App. iniciada: 18/09/2018 6:59:32 GMT - La hora GMT del servidor es: 18/09/2018 13:34:13 GMT