Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   MySQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=21)
-   -   Como saber si mi servidor de MySQL esta activo o corriendo. (https://www.clubdelphi.com/foros/showthread.php?t=61674)

rgstuamigo 17-11-2008 22:59:31

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

enecumene 18-11-2008 00:45:04

Hola,

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

Saludos.

rgstuamigo 18-11-2008 19:51:49

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?:confused: Me refiero que si sirven para hacerlo remotamente o como lo hago?:confused:

roman 18-11-2008 21:16:20

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 18-11-2008 21:22:17

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?:confused:

rgstuamigo 19-11-2008 22:54:01

Me voy a responder yo mismo
 
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;


La franja horaria es GMT +2. Ahora son las 12:22:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi