26 respuestas en este tema

[root]

saludos a todos Sres
pregunta
se puede hacer que el zconection de ZEOS
tome los parametros de un archivo de configuracion ???

[Caral]

Hola
Me imagino que te refieres a un archivo .INI.?
Si es asi, no le veo el problema.
Saludos

[root]

sip como lo agrego
y que estructura llevaria ??
como le digo al conection que tome el .ini ?

[Caral]

Hola
No tengo Zeos (lo borre  ).
Te voy a explicar como se hace con access, el camino es practicamente el mismo, solo tendras que colocar en el INI los datos que la conexion necesite.
Primero, el zconnection se pone en un datamodule.
Segundo, se agrega al uses del datamodule IniFiles.
Tercero, se colocan las instrucciones que se necesitan en el evento OnCreate del datamodule, serian algo asi:
(en mi caso Ado)

delphi

procedure TDM1.DataModuleCreate(Sender: TObject);
Var Direccion, BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   ADOC1.Close;
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'DatosEmp.ini');
   Direccion :=  IniFile.ReadString('DR','Path','');
   BasedeDatos := IniFile.ReadString('BDE','Path','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+Direccion+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDB:Database Password=admin';
   ADOC1.ConnectionString := ConStr;
   ADOC1.Open;

Cuarto y por supuesto necesario, se coloca en el INI lo que se necesita, seria algo asi:

[BD]
Path="S:\bd\Prod.MDB"
[Logon]
Auto="No"
Login=""
Pass=""

Como veras el archivo INI en este caso se llama DatosEmp.ini y la dirección esta en el path del INI.
No es muy diferente con zeos, el programa solo buscara primero el ini y luego se iniciara.
Espero te ayude.
Saludos

[eduarcol]

la forma de enlazarlo directamente no la hay, tienes que hacerlo por codigo tal cual te explica Carlos, si no te sale avisas para sacarte un ejemplo---

[root]

Primero, el zconnection se pone en un datamodule.
Segundo, se agrega al uses del datamodule IniFiles.
Tercero, se colocan las instrucciones que se necesitan en el evento OnCreate del datamodule


Cuarto y por supuesto necesario, se coloca en el INI lo que se necesita

ok el ini ya kedo coketo y todo
[DB]
catalog="a"
Database="a"
hostname="192.168.254.20"
password="Mictlan"
Protocol="mysql-4.1"
user="arroyoj"
nomas que me surgieron dudas
1.- en el codigo pones inifile:=Tinifile
2.- si lo pongo en el evento on create no es un lujo inecesario cerrar la coneccion si la voy creando apenas ??
3.- en mi caso <Mysql> no tengo que usar un parametro de conecion verda ??

digo no soy tonto nomas lento
y con tanta chamba que luego le inventan  a uno aki en la office mas

[Caral]

Hola

.....
nomas que me surgieron dudas
1.- en el codigo pones inifile:=Tinifile
2.- si lo pongo en el evento on create no es un lujo inecesario cerrar la coneccion si la voy creando apenas ??
3.- en mi caso <Mysql> no tengo que usar un parametro de conecion verda ??

El primer punto, SI.
El segundo punto, no entiendo a que te refieres con cerrar la conexion?, donde la cierro?, mas bien la abro, No entiendo.
El tercero punto, no entiendo.
Tal vez si lo explicas a lo Novato?.
Saludos

[root]

[quote author=Caral link=topic=1179.msg13880#msg13880 date=1242077503]

(en mi caso Ado)

delphi

procedure TDM1.DataModuleCreate(Sender: TObject);
Var Direccion, BaseDeDatos, ConStr : String;
    [b]IniFile: TIniFile;[/b]
begin
   // Obtiene la ruta y el nombre de la base de datos
   [b]ADOC1.Close;[/b]
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'DatosEmp.ini');
   Direccion :=  IniFile.ReadString('DR','Path','');
   BasedeDatos := IniFile.ReadString('BDE','Path','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+Direccion+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDB:Database Password=admin';
   ADOC1.ConnectionString := ConStr;
   ADOC1.Open;

marque co nnegritas donde le das close
y para que sirte el
IniFile: TIniFile

[enecumene]

Hola, pues es lo correcto se debe cerrar la base en caso de estar abierto porque sino existe la posibilidad de que te marque algún error. TIniFile sirve para poder crear el archivo .Ini es donde están los métodos y funciones que otorgan la creación de ese tipo de archivo.

Saludos.

[Caral]

Hola
Se me adelantaron jejeje.
Como te dijeron, el close es por si acaso esta abierta, asi no se duplica y manda error.
Saludos

[root]

Pues creo que sigo regandola

delphi

procedure TForm1.FormCreate(Sender: TObject);
var catalog, database, hostname, password, prtocol, user : string   ;
begin
ZConnection1.close ;
inifile:Tinifile ;
inifile:=Thnifile.create(ExtractFilePath(aplication.exename)+'mysql.ini');
catalog:=Inifile.ReadString('DR','catalog','');
database:=Inifile.ReadString('DR','database','');
hostname:=Inifile.ReadString('DR','hostname','');
password:=Inifile.ReadString('DR','password','');
Protocol:=Inifile.ReadString('DR','protocol','');
user:=Inifile.ReadString('DR','user','');
zconection1.catalog:= catalog;
zconection1.database:=database;
zaconectio1.hostname:= hostname;
zconection1.password:=password;
zconection1.protocol:=protocol;
zconection1.user:=user;
end;

y me dice que todo esto esta mal
[Error] Unit1.pas(52): Undeclared identifier: 'inifile'
[Error] Unit1.pas(53): Undeclared identifier: 'Thnifile'
[Error] Unit1.pas(53): Undeclared identifier: 'aplicatoin'
[Error] Unit1.pas(53): ')' expected but identifier 'exename' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

este es mi ini

[DB]
catalog="a"
database="a"
hostname="192.168.254.20"
password="Mictlan"
Protocol="mysql-4.1"
user="arroyoj"

[Caral]

Hola

delphi

procedure TForm1.FormCreate(Sender: TObject);
var 
catalog, database, hostname, password, prtocol, user : string   ;
inifile: Tinifile ;
begin
ZConnection1.close ;
inifile:=Thnifile.create(ExtractFilePath(aplication.exename)+'mysql.ini');
catalog:=Inifile.ReadString('DR','catalog','');
database:=Inifile.ReadString('DR','database','');
hostname:=Inifile.ReadString('DR','hostname','');
password:=Inifile.ReadString('DR','password','');
Protocol:=Inifile.ReadString('DR','protocol','');
user:=Inifile.ReadString('DR','user','');
zconection1.catalog:= catalog;
zconection1.database:=database;
zaconectio1.hostname:= hostname;
zconection1.password:=password;
zconection1.protocol:=protocol;
zconection1.user:=user;
ZConnection1.open ;
end;

Asi, de reojo.
Saludos

[root]

la forma de enlazarlo directamente no la hay, tienes que hacerlo por codigo tal cual te explica Carlos, si no te sale avisas para sacarte un ejemplo---

master
creo que si
si me ayudas con un ejemplo te lo agradecere mucho

GRACIAS

[eduarcol]

El ejemplo ya te lo ha colocado Carlos, has intentado hacerlo????  si es asi dime que error te da y coloca el codigo que tienes

[root]

perdon
pero tenia aki varias cosas que tenia pendientes y ya termine

ahora si

master me arroja estos errores

[Error] Unit1.pas(156): Undeclared identifier: 'close'
[Error] Unit1.pas(157): Undeclared identifier: 'aplication'
[Error] Unit1.pas(157): ')' expected but identifier 'exename' found

espero me puedan ayudar

GRACIAS

[Caral]

Hola
A ver:
Amigo, la sintaxis es importante, el espanglish no funciona en delphi.
Esto es lo que tienes escrito:

delphi

inifile:=Thnifile.create(ExtractFilePath(aplication.exename)+'mysql.ini');

Veamos asi:

delphi

procedure TForm1.FormCreate(Sender: TObject);
var 
catalog, database, hostname, password, protocol, user : string   ;
inifile: TInifile ;
begin
ZConnection1.Close;
Inifile := TInifile.Create(ExtractFilePath(Application.ExeName)+'mysql.ini');
catalog:=Inifile.ReadString('DR','catalog','');
database:=Inifile.ReadString('DR','database','');
hostname:=Inifile.ReadString('DR','hostname','');
password:=Inifile.ReadString('DR','password','');
protocol:=Inifile.ReadString('DR','protocol','');
user:=Inifile.ReadString('DR','user','');
zconection1.catalog:= catalog;
zconection1.database:=database;
zaconectio1.hostname:= hostname;
zconection1.password:=password;
zconection1.protocol:=protocol;
zconection1.user:=user;
ZConnection1.open ;
end;

No deberia dar problemas el Close, pero puedes quitarlo si lo amerita.
Saludos

[root]

ok esa parte de la dedografia tienes razon zape para mi

pero ahora me dice que no encuentra el driver
ya hice una prueba
y le pedi que en unas etiquetas me ponga las variables y no pone nada osea que las variables estan vacias
como si no estuviera leyendo el archivo
el codigo quedo asi

delphi

Inifile := TInifile.Create(ExtractFilePath(Application.ExeName)+'mysql.ini');
catalog:=Inifile.ReadString('DR','catalog','');
database:=Inifile.ReadString('DR','database','');
hostname:=Inifile.ReadString('DR','hostname','');
password:=Inifile.ReadString('DR','password','');
protocol:=Inifile.ReadString('DR','protocol','');
user:=Inifile.ReadString('DR','user','');
zconnection1.catalog:= catalog;
zconnection1.database:=database;
zconnection1.hostname:=hostname;
zconnection1.password:=password;
zconnection1.protocol:=protocol;
zconnection1.user:=user;

[root]

coreccion ya encontre el error

afortunadamento
o no tanto
el error estava entre
la silla y el teclado
en el archivo ponia la parte del archivo "DB" y cuando leia los datos los queria sacar de "DR"

[egostar]

coreccion ya encontre el error

afortunadamento
o no tanto
el error estava entre
la silla y el teclado
en el archivo ponia la parte del archivo "DB" y cuando leia los datos los queria sacar de "DR"

Vaya, parece que hoy es el dí­a

Salud OS

[root]

bueno finalmente kedo asi

delphi

procedure TForm1.FormCreate(Sender: TObject);
var capt : string ;
catalog, database, hostname, password, protocol, user : string   ;
inifile: TInifile ;
 
begin
Inifile := TInifile.Create(ExtractFilePath(Application.ExeName)+'mysql.ini');
catalog:=Inifile.ReadString('DB','catalog','');
database:=Inifile.ReadString('DB','database','');
hostname:=Inifile.ReadString('DB','hostname','');
password:=Inifile.ReadString('DB','password','');
protocol:=Inifile.ReadString('DB','protocol','');
user:=Inifile.ReadString('DB','user','');
zconnection1.catalog:= catalog;
zconnection1.database:=database;
zconnection1.hostname:=hostname;
zconnection1.password:=password;
zconnection1.protocol:=protocol;
zconnection1.user:=user;
end;

El archivo ini va asi

[DB]
catalog="a"
database="a"
hostname="192.168.254.20"
password="Mictlan"
protocol="mysql-4.1"
user="arroyoj"