Muy buen día.
Esperando se encuentren bien, les informo que tuve muchos problemas con mi aplicación, porque en ocasiones, cuando realizaban algún ajuste o cambio a la base de datos SQL Server, mostraba estos dos errores, y se mostraban como cada 20 segundos siendo esto muy molesto:
Código:
First chance exception at $759F845D. Exception class EOleException with message '[DBNETLIB][ConnectionWrite (send()).]Error general de red. Consulte la documentación de la red'. Process SGPA.exe (9688)
First chance exception at $759F845D. Exception class EOleException with message 'Error en la conexión'. Process SGPA.exe (9688)
y lo solucioné agregando un componente ApplicationEvents y en el evento OnException puse este código:
Nota: hay que agregar en el uses ComObj;
Código Delphi
[-]
procedure Tform_tablas.ApplicationEvents1Exception(Sender: TObject;
E: Exception);
var
EO:EOLEException;
begin
if E is EOLEException then
begin
EO:=EOLEException(E);
begin
Form_error_conexion.Close;
Form_error_conexion.ShowModal;
end;
end;
end;
Espero que les haya servido.
Saludos y Dios les bendiga.