Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-04-2008
Avatar de CarlosHernandez
CarlosHernandez CarlosHernandez is offline
Miembro
 
Registrado: oct 2003
Posts: 139
Poder: 21
CarlosHernandez Va por buen camino
reconectar Firebird cuando se pierde la conexion de red!!!

buenas a todos los foristas.

uso firebird 2.0 delphi 6 con los componentes de interbase, el problemas es que tengo mi base de datos en el servidor y desde otra maquina tengo abierta mi aplicacion, aveces la señal de la red se cae pero se reestablece la conexion de la red inalambrica en cuestion de segundos, pero cuando voy a usar mi aplicacion me da un mensaje de error que dice que no se hay conexion on el host remoto y no se conecta.

como hago para detectar esta falla de conexion y cuando la consiga hacer un codigo para que se conecte automaticamente y evitar este error ya que no se como hacerlo.

estuve buscando en todos los hilos y no vi algo que me ayudra, solo vi al go de reconectar aldo pero no me ayudo mucho. gracias.
__________________
begin
Elverdugo79@hotmail.com
end;
Responder Con Cita
  #2  
Antiguo 01-04-2008
Rockin Rockin is offline
Miembro
 
Registrado: may 2003
Ubicación: Málaga
Posts: 264
Poder: 21
Rockin Va por buen camino
Aqui te paso el codigo que tengo yo implementado.

Se hace un ping a la IP de tu Servidor Firebird,si no hay ping, es que no podemos conectar con la BD, si resuelve el ping, ponemos a false la propiedad Connected de la Bd y luego a True y listo.
A mi me funciona tanto en la red local como con la VPN de nuestra otra oficina.

Espero que te valga



Código Delphi [-]
procedure TfrmPrincipal.ConexinconBD1Click(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(la ip de tu servidor Firebird), nil, 0, nil, @Buffer, SizeOf(Buffer),1000)) then
 begin
  MessageDlg ('Imposible realizar la conexión con la BD', mtError, [mbOK], 0);
  CloseHandle(Handle);
  datDatos.FIBDataBaseICCS.Connected:= False;
 end
 else
 begin
  MessageDlg ('Conexión realizada correctamente', mtInformation, [mbOK], 0);
  datDatos.FIBDataBaseICCS.Connected:= False;
  datDatos.FIBDataBaseICCS.Connected:= True;
 end;

 end;
Responder Con Cita
  #3  
Antiguo 15-05-2008
Avatar de CarlosHernandez
CarlosHernandez CarlosHernandez is offline
Miembro
 
Registrado: oct 2003
Posts: 139
Poder: 21
CarlosHernandez Va por buen camino
disculpen el retraso en responder

disculpen en que tarde demasiado en responder, mas de un mes, espero que no me cierren el hilo y sigan respondiendo.

por lo que me dijo el amogo rockin, ya probe el codigo y me da error al compilarlo, que no reconoce
Código Delphi [-]
 Handle := IcmpCreateFile;

me falta declarar algo????
__________________
begin
Elverdugo79@hotmail.com
end;
Responder Con Cita
  #4  
Antiguo 15-05-2008
celades1 celades1 is offline
Miembro
 
Registrado: ago 2005
Posts: 116
Poder: 19
celades1 Va por buen camino
Hola

creo debes declarar la funcion como externa
antes del implementation, prueba ya que yo nunca lo he probado


Código Delphi [-]
function IcmpCreateFile : THandle; stdcall; external 'icmp.dll';







Saludos
Responder Con Cita
  #5  
Antiguo 16-05-2008
Avatar de CarlosHernandez
CarlosHernandez CarlosHernandez is offline
Miembro
 
Registrado: oct 2003
Posts: 139
Poder: 21
CarlosHernandez Va por buen camino
gracias celades1, lo probe y nada... lo declare en lo publico, privado y en todos lado y nada, da error, no lo deja compilar.
__________________
begin
Elverdugo79@hotmail.com
end;
Responder Con Cita
  #6  
Antiguo 16-05-2008
celades1 celades1 is offline
Miembro
 
Registrado: ago 2005
Posts: 116
Poder: 19
celades1 Va por buen camino
Hola

He hecho la prueba con un form un boton y una BD de Fibplus (Datos) y me ha funcionado correctamente

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FIBDatabase, pFIBDatabase,Winsock;
type
  TForm1 = class(TForm)
    Button1: TButton;
    datos: TpFIBDatabase;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
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.Button1Click(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('127.195.1.1')), nil, 0, nil, @Buffer, SizeOf(Buffer),1000)) then
 begin
  MessageDlg ('Imposible realizar la conexión con la BD', mtError, [mbOK], 0);
  CloseHandle(Handle);
  Datos.Connected:= False;
 end
 else
 begin
  MessageDlg ('Conexión realizada correctamente', mtInformation, [mbOK], 0);
  Datos.Connected:= False;
  Datos.Connected:= True;
 end;
end;



Saludos
Responder Con Cita
  #7  
Antiguo 16-05-2008
Avatar de CarlosHernandez
CarlosHernandez CarlosHernandez is offline
Miembro
 
Registrado: oct 2003
Posts: 139
Poder: 21
CarlosHernandez Va por buen camino
thank...

gracias celades1, el codigo funciona a la perfecion..... ya me quite uno de mis dolores de cabeza jeje....


altamente agradecido
__________________
begin
Elverdugo79@hotmail.com
end;
Responder Con Cita
  #8  
Antiguo 26-05-2008
Delfino Delfino is offline
Miembro
 
Registrado: jul 2003
Ubicación: Madrid
Posts: 974
Poder: 21
Delfino Va por buen camino
Código Delphi [-]
Handle := IcmpCreateFile;
Se puede utilizar tb el componente TIdICMP de las Indy..
__________________
¿Microsoft? No, gracias..

Última edición por Delfino fecha: 30-05-2008 a las 22:15:48.
Responder Con Cita
  #9  
Antiguo 13-03-2013
DamianG DamianG is offline
Miembro
 
Registrado: mar 2008
Posts: 95
Poder: 17
DamianG Va por buen camino
Buscando y buscando llegue hasta aquí... lo que no se donde es que se pone ese codigo, debo crear una funcion y fijarme cada vez que hago una consulta?
Gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
saber cuando se pierde la conexion en un IdTCPClient Spynosa Internet 4 25-07-2006 15:56:31
pierde conexion Luis Castillo Conexión con bases de datos 5 10-02-2006 23:00:08
Lentitud de Mysql cuando se pierde la conexion con internet Carlos Arevalo MySQL 0 05-07-2005 01:50:22
Poner color background del form cuando pierde el foco Cabanyaler Gráficos 4 25-11-2004 09:32:03


La franja horaria es GMT +2. Ahora son las 00:43:21.


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
Copyright 1996-2007 Club Delphi