Los foros del Guille

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

Google
 

Ya está a la venta Novedades de Visual Basic 9.0

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

18/nov/2008
El primer libro de C# escrito por el Guille:

Aprenda C# 3.0 desde 0.0 - Parte 3, lo nuevo


Cónsiguelo desde aquí: http://www.elguille.info/NET/AprendaCSharp3/parte3_lo_nuevo.aspx

  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-2017  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8762)
 
Usuarios activos: 48 - App. iniciada: 23/11/2017 13:55:04 GMT - La hora GMT del servidor es: 23/11/2017 14:42:02 GMT