23 replies to this topic

[luk2009]

Hola a todos
Uso firebird 2.1, Zeos y Delphi 7

Lo que quiero es poner el codigo para manejar los siguientes errores o excepciones. El codigo que quiero modificar primero es el del login:

delphi

procedure TFRMlogin.BitBtn1Click(Sender: TObject);
 
begin
  DMmonitorenred.ZConmonred.HostName :=ComboBox1.text;
  DMmonitorenred.ZConmonred.Connect;
  If DMmonitorenred.ZConmonred.Connected then
  modalresult :=mrok
  else
  showmessage('incorrecta conexion');
  frmlogin.Show;
end;
 
procedure TFRMlogin.BitBtn2Click(Sender: TObject);
begin
close;
end;

Esto sirve para conectarse a una base de datos en red. y cuando no se conecta me da los siguientes errores:


        [/img]http://http://img233.images...oerror1.jpg   

[img width=800 height=500]http://img444.imageshack.us/img444/8238/manejoerror2.jpg[/img]

http://img444.images...joerror2.jpg 

gracias de antemano

[enecumene]

Hey Luk, puedes ver el tema de Método para crear ventanas de excepciones personalizadas .

Saludos.

[egostar]

Lo que yo utilizo para el manejo de errores es lo siguiente (ademas de lo recoemndado por enecumene

delphi

  try
    IBDatabase1.Open;
  except
    ShowMessage('Hubo un error al inicializar la conexión con la base de datos.'#13+
                 'Verifique que los datos de acceso a la base sea la correcta'#13+
                 'en el menu Herramientas->Configuración'#13+
                 'Después de modificar los datos, reinicie esta aplicación.');
  end;

Con eso ya no te muestra la excepción y te muestra en su lugar un mensaje digamos mas entendible.

Salud OS

[luk2009]

delphi

procedure TFRMlogin.BitBtn1Click(Sender: TObject);
 
begin
  DMmonitorenred.ZConmonred.HostName :=ComboBox1.text;
  try
  DMmonitorenred.ZConmonred.Connect;
  modalresult :=mrok
 except
  showmessage('incorrecta conexion');
 
end;
end;

Egostar si lo pongo mas o menos asi como dices, no me sale el mensaje de except y me sale el primer mensaje de error y luego al presionar ignore me sale el segundo. La idea es poder manejar la exception, sin que me saque del programa y voy a crear unos combobox con las posibles bases de datos y enlaces. Pero si no logra conectarse que me de la opcion de poder presionar el boton cerrar del form para salir del programa.



Estoy  tratando de utilizar el codigo de enecumene, pero siempre me sale la ventana de aviso, aunque no haya error.

[enecumene]

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
//¿Estan todas definidas?
DMmonitorenred.ZConmonred.HostName :=ComboBox1.text;
DMmonitorenred.ZConmonred.User := '';
DMmonitorenred.ZConmonred.Pass := '';
DMmonitorenred.ZConmonred.protocol := '';
 try
   DMmonitorenred.ZConmonred.Connect;
 except
   on E: Exception do
     if E.ClassNameIs('EDatabaseError') then
      begin
       SHowMessage(E.Message);
      Abort;
     end;
   end;
end;

Para ver los resultados del Except es mejor verlo con la aplicación ya construida.

Saludos.

[eduarcol]

Eso que dices que te saca del programa solo sucede cuando lo ejecutas desde el IDE si lo haces directamente desde el ejecutable eso no sale

[egostar]

Yo veo algo que también te puede faltar a la hora de ejecutar el programa

delphi

procedure TFRMlogin.BitBtn1Click(Sender: TObject);
begin
  DMmonitorenred.ZConmonred.HostName :=ComboBox1.text;
  try
    DMmonitorenred.ZConmonred.Connect;
    modalresult := mrok;
  except
    showmessage('incorrecta conexion');
    modalresult : mrNone; // Que va a hacer cuando exista un error.....
  end;
end;

Salud OS

[Wilson]

Otra manera sencilla de personalizar los mensajes de error es utilizando un TApplicationEvents que se encuentra en Additional. Interceptando el evento OnException puedes hacer algo parecido a esto:

delphi

procedure TDatos.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
if Pos(UpperCase('Unable to complete Network request to host..'), UpperCase(E.Message)) <> 0 then
  begin
ShowMessage('Lo que tu quieras');
//Código por si quieres hacer algo mas
  end
else if Pos(UpperCase('SQL Server does no exist or access denied..'), UpperCase(E.Message)) <> 0 then
  begin
ShowMessage('Lo que tu quieras');
//Código por si quieres hacer algo mas
  end
// Finalmente capturamos cualquier excepción no prevista
else 
ShowMessage('Ocurrió el siguiente error: ' + #13 + E.Message);
end

[poliburro]

Cacha todo tipo de errores

delphi

  Try
     Try
         //Bloque de código
      finally
         //bloque a ejecutar cuando finaliza el bloque protegido 
         //o cuando se lanza una excepción (útil para liberar objetos creados)
      End;     
   Except
       On Error: Exception do
          showMessage('Ocurrió un error al ejecutar el bloque, contacte al administrador. Error: ' + Error.message);
   End;
 

[luk2009]

Gracias a todos por sus respuestas, no habia podido conectarme hoy, pero ahora voy a probar las ideas que me dan
y en un momento les comento como va.

[luk2009]

Hola a todos

Le puse el mrNone como dice Egostar y si lo abro desde delphi me saca del programa. Eduarcol tienes razon si lo hago desde el ejecutable, la excepcion funciona y no me saca. Voy a probar todo lo demas para ver la forma en que funciona, pero asi como me  indica egostar y corriendo desde el ejecutable funciona bien.

Código: [Seleccionar]

procedure TFRMlogin.BitBtn1Click(Sender: TObject);
begin
  DMmonitorenred.ZConmonred.HostName :=ComboBox1.text;
  try
    DMmonitorenred.ZConmonred.Connect;
    modalresult := mrok;
  except
    showmessage('incorrecta conexion');
    modalresult : mrNone; // Que va a hacer cuando exista un error.....
  end;
end;

   

-Otra duda como le pongo alguna cosa para que se vea que esta intentando conectarse a para que no se vea como detenido el programa

[enecumene]

-Otra duda como le pongo alguna cosa para que se vea que esta intentando conectarse a para que no se vea como detenido el programa

_Busy.pas de cHackAll

Saludos.

[luk2009]

Con la ayuda de todos y los ultimos datos de enecumene van funcionando bien las cosas.  Siguiendo con la misma idea de controlar excepciones. Esta aplicacion, luego de conectarse a la base de datos, se mantiene haciendo consultas practicamente todo el tiempo. Lo que quiero controlar es que si por alguna razon se corta la conexion, el programa me permita ir al login y reconectar o algo asi.

Pregunta: donde poner el try?  despues de cada open de las consultas o en el bloque begin end ?

Aqui esta el codigo del timer:

delphi

procedure TFRMactivasred.Timer1Timer(Sender: TObject);
begin
 
  dmmonitorenred.zqcentral.Close;
  dmmonitorenred.zqcentral.sql.Clear;
  dmmonitorenred.zqcentral.SQL.add('select * from central left join acmsub on central.csid=acmsub.csid left join evento on central.evento=evento.evento') ;
  dmmonitorenred.zqcentral.SQL.Add('where entradadatos > ' + quotedstr(inttostr(buscentral)));
  dmmonitorenred.zqcentral.SQL.Add('order by entradadatos desc');
  dmmonitorenred.zqcentral.open;
 
 
 if  dmmonitorenred.zqcentralENTRADADATOS.AsInteger > buscentral then
   begin
     with DMmonitorenred do
     FRMactivasred.ListBox1.Items.Add(zqcentralfechan.AsString+ '   ' + zqcentralDETALLE.AsString +'         ' + zqcentralCSID.AsString + '   ' + zqcentralCLIENTES.AsString + '   ' + zqcentralEVENTO.AsString + '   ' + zqcentralDETALLE_1.AsString + '   ' + ' ' +zqcentralTELEFONO.AsString + '                       entradadatos #  '+ zqcentralENTRADADATOS.AsString  );
     FRMactivasred.ListBox1.Items.Add('   ');
     FRMactivasred.ListBox1.TopIndex := -1 + FRMactivasred.ListBox1.Items.Count;
     buscentral:=dmmonitorenred.zqcentralentradadatos.AsInteger;
     dmmonitorenred.zqcentral.Next;
   end;
 
  dmmonitorenred.zqpendientes.Close;
  dmmonitorenred.zqpendientes.SQL.Clear;
  dmmonitorenred.zqpendientes.SQL.Add('select first 1 * from activas ');
  dmmonitorenred.zqpendientes.SQL.Add(' where alarmnum > ' + quotedstr(inttostr(buscar)) );
  dmmonitorenred.zqpendientes.SQL.Add('order by alarmnum desc');
  dmmonitorenred.zqpendientes.Open;
 
  if dmmonitorenred.zqpendientesalarmnum.ASINTEGER  > buscar then
 
  begin
    dmmonitorenred.zqactivas.Close;
    dmmonitorenred.zqactivas.SQL.Clear;
    dmmonitorenred.zqactivas.SQL.add('select first 100 * from  Activas inner join evento on activas.evento=evento.evento left join acmsub on activas.csid=acmsub.csid ');
    dmmonitorenred.zqactivas.SQL.add(' where completa <> '+ 'COMPLETADA');  //debe ser buscando los que estan pendientes
    dmmonitorenred.zqactivas.SQL.Add('order by alarmnum desc');
    dmmonitorenred.zqactivas.Open;
    SONIDO.Show;
    buscar:=dmmonitorenred.zqpendientesalarmnum.ASINTEGER;
  End;
 
end;
 

[egostar]

Hola

Pienso que en este caso especifico yo harí­a lo siguiente

delphi

  if NoHayConexion then  begin
      VolverAConectar;
      dmmonitorenred.zqcentral.open;
  end
  else begin
          dmmonitorenred.zqcentral.open;
  end;

Esto para no perder la secuencia que tienes en tu timer.

Salud OS

[Wilson]

Lo que quiero controlar es que si por alguna razon se corta la conexion, el programa me permita ir al login y reconectar o algo asi.

Para esto puedes valerte de dos procedimientos adicionales uno que cierre todos los datasets además de  la conexión con la base de datos(que también te puede ser util en otros escenarios), y otro que vuelva a conectar con la base datos, mas o menos asi  :

delphi

procedure CerrarConexionServidor;
var
  i : Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is ZeosDatasets then//no conozco Zeos, hay que ajustar este detalle
      (Components[i] as ZeosDatasets).Active := False;
 ZeosDBConexion.Connected := False;
end;

la reconexión

delphi

procedure ReconectarServidor;
begin
  CerrarConexionServidor;
//Aquí­ puedes pasar el usario y el password y los parámetros que fueren necesarios
  ZeosDBConexion.Connected:= True;
end;

Y puedes llamar el procedimiento ReconectarServidor sólo en caso de que tu procedimiento lance una excepción de pérdida de conexión. O también como dice Egostar primero probar si hay conexión, en caso afirmativo continuar con lo que tienes en el Timer de lo contrario intentar reconectar.



PD: Esta es solo una idea.


Saludos

[luk2009]

Gracias Egostar y Wilson por sus respuestas, voy a trabajar con ellas y les comento mas tarde

[luk2009]

delphi

procedure TFRMactivasred.Timer1Timer(Sender: TObject);
begin
 
if not DMmonitorenred.ZConmonred.Connected  then
  try
  DMmonitorenred.ZConmonred.Connect;
  except
    showmessage('incorrecta conexion');
 
end
else
begin
 
  dmmonitorenred.zqcentral.Close;
  dmmonitorenred.zqcentral.sql.Clear;
  dmmonitorenred.zqcentral.SQL.add('select * from central left join acmsub on central.csid=acmsub.csid left join evento on central.evento=evento.evento') ;
  dmmonitorenred.zqcentral.SQL.Add('where entradadatos > ' + quotedstr(inttostr(buscentral)));
  dmmonitorenred.zqcentral.SQL.Add('order by entradadatos desc');
  dmmonitorenred.zqcentral.open;
 
 

y cuando la conexion se corta recibo el siguiente error, repetido muchisimas veces, hasta que abro el taskmgr y cierro el proceso

http://img145.imageshack.us/img145/5711/conexionerror2.jpg 


como puedo corregir el error.
Wilson en cuanto a tus procedimientos, no se todavia como escojer los dataset de zeos que indicas, pero sigo trabajando en ello

[egostar]

Hola amigo

Lo que veo es que estamos tratando de abrir una conexión que está bloqueada por la deesconexión a la red, por lo que deduzco ( que inteligente se leé eso ) que necesitamos algun proceso que cierre la conexión, que en realidad está bloqueda y no cerrada.

Vamos por la lógica

delphi

if not DMmonitorenred.ZConmonred.Connected  then begin
  try
    DMmonitorenred.ZConmonred.Close; //No se si esto funcione con ZEOS 
    DMmonitorenred.ZConmonred.Connect;
  except
    showmessage('incorrecta conexion');
  end;
end
else begin
    dmmonitorenred.zqcentral.Close;
    dmmonitorenred.zqcentral.SQL.Text := 'select * from central left join acmsub on central.csid=acmsub.csid '+ 
                                         ' left join evento on central.evento=evento.evento '+
                                         ' where entradadatos > :BusCentral '+ 
                                         ' order by entradadatos desc';
    dmmonitorenred.zqcentral.parambyname('BusCentral').AsString := inttostr(buscentral); 
    dmmonitorenred.zqcentral.open;
end;

Salud OS

[luk2009]

delphi

   procedure TFRMactivasred.Timer1Timer(Sender: TObject);
begin
 if not DMmonitorenred.ZConmonred.Connected  then
 
  try
  DMmonitorenred.ZConmonred.Connected:=false;
  DMmonitorenred.ZConmonred.Connected:=true;
  except
   showmessage('incorrecta conexion');
 end
else
begin

Lo hice de esta manera y me da el mismo error, tambien si lo hago poniendo

delphi

DMmonitorenred.ZConmonred.Connect;   

Que puedo hacer con esto?

[eduarcol]

eso significa que no se puede conectar a esa ip.  Si la bd se desconecta se debe primero solucionar el problema que origino la desconexion para que no salga de nuevo el error, lo mas "sano" es cerrar el sistema y volver a abrir,