Como mostrar una lista de bases de datos en un servidor MySQL con Zeos?

Guille
27 de Julio del 2004
Hi!

Necesito mostrar una lista de base de datos de un servidor MySQL con zeos y esto es lo que hago:

ZMainConnection.User := 'root';
ZMainConnection.Password := 'pass';
ZMainConnection.HostName := 'localhost';
ZMainConnection.Database := 'mysql';
ZMainConnection.Protocol := 'mysql';

ZQuery.SQL.Text := 'show databases';
ZQuery.Connection := ZMainConnection;
ZQuery.ExecSQL;

Ok. Hasta aca no he tenido ningun problema... el problema lo tengo cuando quiero conectar a un servidor remoto donde no tengo permisos para acceder a la base 'mysql' y no se que bases de datos existen en ese servidor ... presisamente necesito obtener una lista de ellas para seleccionar una ... en definitiva no puedo ejecutar:

ZMainConnection.Connect;

sin haber especificado una 'databse' en:

ZMainConnection.database

Alguien sabe como hacer esto?

Gracias.
Saludos.

Guille otra vez
27 de Julio del 2004
Me olvide de decir que lo estoy desarrolando en delphi 7...
sorry!