Quitar mensaje

[jandrorm]

Buenas:

Tengo lo siguiente en mi programa:

    try
      MysqlConecta.Connect;
    finally
       if MysqlConecta.Connected then
                  txtInfo.Lines.Add('Conexion existosa')
       else txtInfo.Lines.Add('Error en la Conexion.');
      end;

Todo funciona correctamente, pero quiero quitar el mensaje del SQL ERROR, de cuando falla la conexion, no quiero que muestre el mensaje.

Tambien tengo otra duda:

Quiero hacer un FindWindow que me busque todos los programas puestos en una BD. ¿Es posbile?


Gracias.

[droguerman]

usa un try ... catch, el mensaje no aparecerá cuando ejecutes el programa sólo cuando lo ejecutes desde delphi

[rgstuamigo]

Puedes aumentar otro bloque try pero con except mas o menos asi:

Código Delphi [-]
 try
    try
      MysqlConecta.Connect;//aqui intento conectarme
    except
      {si deseo capturar el error puedo codificar algo aqui,
        pero como no sea ha escrito nada, pues no generará ni se mostrará 
       ningun mensaje de error. 
       }
    end;
 finally
     if MysqlConecta.Connected then
       txtInfo.Lines.Add('Conexion exitosa')
     else txtInfo.Lines.Add('Error en la Conexion.');
 end;

Otra opcion es personalizar el mensaje de error algo asi:
(Esta vez si vamos a escribir codigo en el bloque except )

Código Delphi [-]
try
    try
      MysqlConecta.Connect;//aqui intento conectarme
    except
      txtInfo.Lines.Add('Error en la Conexion.');//<---al ocurrir un error se hace esto 
    end;
 finally
     if MysqlConecta.Connected then
       txtInfo.Lines.Add('Conexion exitosa');
   end;

Los dos fragmentos de codigos anteriores serian semejantes.
Espero que te hubiera ayudado en algo..
Saludos...

[rgstuamigo]

Una tercera opcion seria capturar el error en una variable de tipo Exception, y agregarle lo que quisieramos o personalizar el mensaje de error.

Código Delphi [-]
 try
    try
      MysqlConecta.Connect;//aqui intento conectarme
    except on MyVariable : Exception do//aqui capturo el error 
     begin
      MyVariable.Message:='Error en la Conexion.'+#13+#10+'Detalles -->'+#13+#10+'"'+MyVariable.Message+'"';
      txtInfo.Lines.Add(MyVariable.Message); 
     end;
    end;
 finally
     if MysqlConecta.Connected then
        txtInfo.Lines.Add('Conexion exitosa');
 end;

Saludos...

[jandrorm]

Hey perfecto añadi tu segunda opcion, jeje ayuda fue poco me lo hicistes todo jeje. Y alguien me puede resolver mi segunda duda? Muchas gracias a los dos por las respuestas.

[rgstuamigo]

Empezado por jandrorm

...
Y alguien me puede resolver mi segunda duda?
...

Sobre tu segunda duda esteeee.... no se entiende muy bien lo que deseas hacer,debes ser mas claro o explicate mejor.
Saludos...