Gracias a todos por responder, lo que estoy implementando son unos indicadores gráficos en el formulario de login que me indican :
1. Si el servidor mysql esta On/Off
Lo que quería era agregar otro indicador grafico que este en verde si la BD se encuentra presente en el servidor mysql. Por eso, mi preocupación era de que forma utilizar las funciones de verificación en el OnActivate() del formulario de Login, como lo hice con el primer indicador:
Código Delphi
[-]procedure TForm1.FormActivate(Sender: TObject);
begin
if(TestMySQLServer('127.0.0.1',3306)) then
statusServer.Active:=true
else
statusServer.Active:=false;
end;
donde TestMySQLServer es:
Código Delphi
[-]function TForm1.TestMySQLServer(ipAddressStr:AnsiString; dwPort : Word):boolean;
var
client : sockaddr_in;
sock : Integer;
ret : Integer;
wsdata : WSAData;
begin
Result:=False;
ret := WSAStartup($0002, wsdata); if ret<>0 then exit;
try
client.sin_family := AF_INET; client.sin_port := htons(dwPort);
client.sin_addr.s_addr := inet_addr(PAnsiChar(ipAddressStr));
sock :=socket(AF_INET, SOCK_STREAM, 0); Result:=connect(sock,client,SizeOf(client))=0; finally
WSACleanup;
end;
end;
Si trato de usar un método de UniConnection es posible que aun no haya sido creado en ese momento y obtenga error.
Agradeceria luces en este sentido. Muchas gracias.