Como saber si mi servidor de MySQL esta activo o corriendo.

[rgstuamigo]

Hola Queridos colegas,mi duda es: ¿como puedo hacer para saber si mi servidor MySql esta activo o corriendo desde mi aplicacion Delphi 7 ?.Esto lo digo para no cometer errores de conexion al hacer alguna operacion en mi aplicacion.
Les agradesco de antemano sus respuestas..... ..
Saludos.....

[[enecumene]]

Hola,

http://www.clubdelphi.com/foros/showthread.php?t=37682

Saludos.

[rgstuamigo]

Gracias Enecumene por el link , aunque con tantas opciones a veces te confunden por cual usar o cual es la mejor. Pero tengo una duda ¿Sera que esos metodos que nos ofrece ahí seoane y roman sirven si el servidor esta en otro host? Me refiero que si sirven para hacerlo remotamente o como lo hago?

[roman]

Yo creo que lo normal es que el servicio tenga el nombre por defecto y, de no ser así, estará documentado y tu aplicación lo sabrá. Por tanto, lo más adecuado es usar las funciones que da seoane en el mensaje #4 de ese hilo.

// Saludos

[rgstuamigo]

ok roman, pero dime ¿me serviría para hacerlo remotamente? o solo funciona a nivel local?
En caso de ser solamente local,¿Como lo adaptaría para hacerlo remotamente?

[rgstuamigo]

Viendo otro hilo , encontre este codigo, pero lo adapte a mis necesidades utilizando Telnet:

Código Delphi [-]
uses IdTelnet...
.
.
.
.
procedure TForm1.Button6Click(Sender: TObject);
var t:TIdTelnet;
begin
  t:=TIdTelnet.Create(self);
    try
     t.Host:='Server';//Podria ser tambien la ip del Server
     t.Port:=3306;
     t.Connect();
     ShowMessage('true');//Servidor corriendo
    except
     ShowMessage('falso');//Servidor no corriendo
    end;
   t.Disconnect;
 t.Free;
end;