Conectar con mysql y zeoslib

[javierin_]

Buenos días. Ante todo muchas gracias por vuestra estimada ayuda. Probé la versión 7.2.1 de ZEOS, package XE8, y esta vez sí que se me instaló bien y sin errores!! No sé si será una versión estable, así que me pongo a probarlo y ya os cuento. Muchísimas gracias por vuestra ayuda, amigos!!!
Roman, el problema que me dio Delphi7 es que no me dejaba instalarlo en Windows 10.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por javierin_

Buenos días. Ante todo muchas gracias por vuestra estimada ayuda. Probé la versión 7.2.1 de ZEOS, package XE8, y esta vez sí que se me instaló bien y sin errores!! No sé si será una versión estable, así que me pongo a probarlo y ya os cuento. Muchísimas gracias por vuestra ayuda, amigos!!!

Empezado por javierin_

el problema que me dio Delphi7 es que no me dejaba instalarlo en Windows 10.

Algo no debiste hacer bien (debe instalarse con permisos de administrador) porque debe funcionar correctamente.
Yo mismo lo tengo instalado en un Windows 10.

[javierin_]

Gracias, Neftalí. Creo recordar que lo intenté con permisos de administrador, pero no lo recuerdo bien. Aunque la gracia ya está hecha, lo tendré en cuenta y volveré a probar, porque seguro que tengo que retocar alguna de las aplicaciones hechas con Delphi 7 y que he observado que con Delphi 10 no son del todo compatibles (de momento he visto que los informes hechos con quickreport no van bien).

Por cierto, ya he conseguido conectar la BDD MySql.

Seguiré informando.

[javierin_]

Buenas a todos. Sigo con mis "problemas". Como os dije antes, ya puedo conectarme a la BDD. Ahora bien, me encuentro con otros problemas. El primero es que antes, con Delphi7, utilizaba los "findkey", "gotokey", "gotonearest"...etc para hacer mis búsquedas, ya que era bastante más rápido que el "locate"; y ahora no lo tengo (supongo que es porque esas instrucciones están asociadas al BDE). Ante esto me surgen dos preguntas:

1.- Existe algo parecido al findkey si trabajo con Delphi2010 y ZeosLib?
2.- En caso negativo, sería recomendable volver a Delphi7 con su BDE? (hasta ahora solo había trabajado con tablas planas DBaseIV, así que si volviera a Delphi7 tendríais que ayudarme un poco).

Muchísimas gracias.

PD: Tenías razón, Neftali. Había que ejecutar la instalación de Delphi7 en Windows10 como Administrador. Y, lo que me ha gustado más, es que pueden convivir las dos versiones perfectamente! (gracias de nuevo).

[Neftali [Germán.Estévez]]

Empezado por javierin_

Buenas a todos. Sigo con mis "problemas". Como os dije antes, ya puedo conectarme a la BDD. Ahora bien, me encuentro con otros problemas. El primero es que antes, con Delphi7, utilizaba los "findkey", "gotokey", "gotonearest"...etc para hacer mis búsquedas, ya que era bastante más rápido que el "locate"; y ahora no lo tengo (supongo que es porque esas instrucciones están asociadas al BDE). Ante esto me surgen dos preguntas:

1.- Existe algo parecido al findkey si trabajo con Delphi2010 y ZeosLib?
2.- En caso negativo, sería recomendable volver a Delphi7 con su BDE? (hasta ahora solo había trabajado con tablas planas DBaseIV, así que si volviera a Delphi7 tendríais que ayudarme un poco).

El problema es que antes trabajabas con una Base de Datos de escritorio, y ahora trabajas con un Servidor de Bases de Datos.
Son diferentes y la ideología también es diferente.

¿Exactamente, para qué necesitas el "findKey"?
¿Búsquedas incrementales?

Si es así, digamos que es una cosa "no recomendable".
Deberías orientar el programa hacia realizar filtros. Las búsquedas incrementales generan muchas consultas y mucho tráfico de red y eso no es bueno.

[rastafarey]

Te recomiendo el versión 7.2 que función 10 veces mas rapido.

y para instalar todo se solucione con este archivo

Zeos.inc

aquí dentro vasa encontrar un bloque de código por cada versión del compilador.

escoje la ultima duplicala

y solo cambias la directiva de comiplacion que indica la version de delphi que para la seatle seria la 300 si mas no recuerdo. y listo.

[javierin_]

Buenos días.

Neftalí, el findkey lo utilizo para hacer una búsqueda en una tabla. Es muy efectivo y fácil, ya que a medida que vas tecleando la palabra a buscar, ves cómo va recorriendo la tabla (en un dbgrid) con gotokey y/o gotonearest. Empecé a usarlo porque observé que, en una búsqueda un tanto complicada para realizar un informe en una tabla con varios miles de registros, el locate tardaba demasiado (del orden de varios minutos), mientras que con el findkey, el mismo algoritmo y la misma tabla tardaba unos cuantos segundos. Ya te digo que soy algo novato con las mysql, así que qué me recomiendas? Volver al locate quizá??

Rastafarey, he echado un vistazo al código del fichero Zeos.inc, pero mira lo que he encontrado:

{$IF CompilerVersion >= 27} //Delphi XE6+
{$IF CompilerVersion >= 28} //Delphi XE7+
{$UNDEF WITH_DBTABLES} //M.A. In Delphi XE7 no BDE
{$IF CompilerVersion >= 29} //Delphi XE8+
{$IF CompilerVersion >= 30} //Delphi Seattle+
{$ELSE !CompilerVersion >= 30} //Delphi XE8
{$IFEND CompilerVersion >= 30}
{$ELSE !CompilerVersion >= 29} //Delphi XE7
{$IFEND CompilerVersion >= 29}
{$ELSE !CompilerVersion >= 28} //Delphi XE6
{$IFEND CompilerVersion >= 28}
{$ELSE !CompilerVersion >= 27} //Delphi XE5
{$IFEND CompilerVersion >= 27}
{$ELSE !CompilerVersion >= 26} //Delphi XE4
{$IFEND CompilerVersion >= 26}
{$ELSE !CompilerVersion >= 25} //Delphi XE3
{$IFEND CompilerVersion >= 25}
{$ELSE !CompilerVersion >= 24} //Delphi XE2
{$IFEND CompilerVersion >= 24}
{$ELSE !CompilerVersion >= 23} //Delphi XE
{$IFEND CompilerVersion >= 23}
{$ELSE !CompilerVersion >= 22} //Delphi 2010
{$DEFINE WITH_URW1111_ISSUE} //D2010 can't compile for some strange reasons with inlined code.
{$IFEND CompilerVersion >= 22}
{$ELSE !CompilerVersion >= 21} //Delphi 2009
{$DEFINE WITH_INLINE_ANSISTRLCOMP} //AnsiStrLComp is inlined in D2009 only
{$DEFINE WITH_URW1135_ISSUE} //D2009 can't compile for some strange reasons with inlined code.
{$IFEND CompilerVersion >= 21}
{$IFEND CompilerVersion >= 20} //Delphi 2007
{$IFEND CompilerVersion >= 18.5} //Delphi 2006
{$ELSE !CompilerVersion >= 18} //Delphi 2005
{$DEFINE WITH_C11389_ERROR} //D2005 has some inline problems
{$IFEND CompilerVersion >= 18}
{$IFEND CompilerVersion >= 17} //Delphi 8
{$IFEND CompilerVersion >= 16} //Delphi 7
{$IF not defined(PatchSystemMove) and defined(WIN32)}
{$DEFINE FAST_MOVE}
{$IFEND}
{$IFEND CompilerVersion < 15}
{$ENDIF}

Así que creo que no puede ser. Muchas gracias de todos modos.

Saludos.