Hola, utilizo Delphi 2006, Firebird 2.5 y componentes FIBPlus.
Una aplicación cliente-servidor, el cliente se conecta de forma remota, es decir utilizando internet para acceder a la BD.
El codigo que utilizo es asi.
Código Delphi
[-]
try
connect.DataModule1.db1.Open;
if connect.DataModule1.db1.Connected then
begin
Form := Ts.Create(self);
form7.hide;
form.Showmodal;
end;
except
showmessage('No se pudo conectar al servidor.);
end;
Puede ocurrir que el cliente en ese momento no tenga conección a internet.
El problema es que se queda demasiado tiempo pegado en el TRY, hasta que finalmente me arroja el mensaje de problema.
El componente tiene una propiedad timeout, la modifico, pero sigue sin dar una rapida respuesta.
Como puedo mejorar esto?