23 respuestas en este tema

[luk2009]

gracias Eduarcol, realmente lo que deseo hacer es que se detenga el programa, mientras con algun mecanismo se trata de establecer de nuevo la conexion y despues de que esta haya sido restablecida, continuar con las rutinas del programa.

He pensado en utilizar algunas de las ideas de los programitas para hacer ping y cuando me de el visto bueno del ping, entonces intentar conectarme a la base de datos de nuevo.

El problema esta en donde detener la ejecucion del programa y poder poner el codigo del ping.

He hecho esto despues de cada open de los querys del form principal y mas o menos funciona bien, ya por lo menos despues de unos click se cierra el programa. La idea es depurarlo y poner la parte de un form que haga el ping o algo asi.

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');
  try
    dmmonitorenred.zqcentral.open;
  except
     On e: exception do
     if e.ClassName = 'EZSQLException' then
       begin
         ShowMessage('no hay conexion a la base de datos');
         FRMactivasred.Close;
       end;
  end;
 
 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');
  try
    dmmonitorenred.zqpendientes.Open;
  except
    On e: exception do
    if e.ClassName = 'EZSQLException' then
      begin
        ShowMessage('no hay conexion a la base de datos');
        FRMactivasred.Close;
      end;
  end;
 
  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 <> :pcompleta '); //'+ 'COMPLETADA');  //debe ser buscando los que estan pendientes
      dmmonitorenred.zqactivas.SQL.Add('order by alarmnum desc');
      DMmonitorenred.ZQactivas.ParamByName('pcompleta').AsString:='COMPLETADA';
      try
        dmmonitorenred.zqactivas.Open;
      except
        On e: exception do
        if e.ClassName = 'EZSQLException' then
          begin
            ShowMessage('no hay conexion a la base de datos');
            FRMactivasred.Close;
            end;
      end;
    SONIDO.Show;
    buscar:=dmmonitorenred.zqpendientesalarmnum.ASINTEGER;
  End;
  end;

[eduarcol]

el ZConnection tiene el evento OnDisconect, podrias mirar alli

[luk2009]

Gracias Eduarcol 
creo que por ahi es que esta la respuesta. Estoy haciendo las pruebas para informar como queda todo

[luk2009]

delphi

var
  Form1: TForm1;
function IcmpCreateFile : THandle; stdcall; external 'icmp.dll';
function IcmpSendEcho
  (IcmpHandle : THandle; DestinationAddress : integer;
   RequestData : Pointer; RequestSize : Smallint;
   RequestOptions : pointer;
   ReplyBuffer : Pointer;
   ReplySize : DWORD;
   Timeout : DWORD) : DWORD; stdcall; external 'icmp.dll';
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ZQuery1.Close;
  ZQuery1.SQL.Text:='select first 10 * from activas order by alarmnum';
 
  try
    ZQuery1.Open;
  except
    on E:Exception do
   begin
      ZConnection1.Disconnect;
   end;
  end;
 
end;
 
procedure TForm1.ZConnection1BeforeConnect(Sender: TObject);
begin
  timer1.Enabled:=true;
 
end;
 
procedure TForm1.ZConnection1AfterDisconnect(Sender: TObject);
var
 Handle: Integer;
 Buffer: array [0..7] of Cardinal;
 
begin
 
  Handle := IcmpCreateFile;
  if Handle = -1 then Exit; // Error interno
  if not LongBool(IcmpSendEcho(Handle, inet_addr(pchar('10.0.0.2')), nil, 0, nil, @Buffer, SizeOf(Buffer),1000)) then
  begin
    MessageDlg ('Imposible realizar la conexión con la BD', mtError, [mbOK], 0);
    CloseHandle(Handle);
    ZConnection1.Disconnect;
  end
  else
    begin
      MessageDlg ('Conexión realizada correctamente', mtInformation, [mbOK], 0);
      ZConnection1.Disconnect;
      ZConnection1.Connected:= True;
    end;
end;

solo hay que poner en el uses Winsock


He encontrado esta funcion y se supone que lo que hace es un ping y funciona casi perfecto. Cuando la base de datos se desconecta por alguna razon me sale el error, presiono ok y cuando vuelve la conexion entra en query de una vez.

Me gustaria saber como funciona esta funcion para poder implementarla en mi programa, ya que la prueba la he realizado en un solo form, pero al ponerla en una aplicacion con data module y varios querys, me da algunos errores.

Espero sus respuestas.