Delphi调试模式下如何静默接收TFDConection的PostgresSQL连接错误

调整组件基础配置，关闭自带弹窗 #

• 找到配置定时探活用的TFDConnection组件，把LoginPrompt属性设为False——这个默认开启的属性是连接失败时弹出登录框的主要来源，很多人改了半天静默最后漏了这个设置
• 把同组件下的ResourceOptions.SilentMode属性设为True。这是FireDAC专门做的静默开关，开了之后连接层遇到非致命的连接错误，不会主动弹出系统级模态错误框，只会把异常对象正常抛到代码的捕获逻辑里，不会抢调试器的焦点

  注：SilentMode不会直接吞掉异常，只是关掉组件自带的弹窗行为，异常还是会按照正常代码流程抛出，需要配合后面的捕获逻辑才能实现真正的静默

探活逻辑本地捕获异常，避免冒泡打断调试 #

每一轮定时执行的探活任务，必须独立包一层try...except块，不能让连接错误的异常直接冒到应用全局的异常处理层：

procedure TDataMain.PingTimerTimer(Sender: TObject);
begin
  PingTimer.Enabled := False;
  try
    // Postgres轻量探活用SELECT 1就行，别跑重SQL增加数据库压力
    if not FDConnection1.Connected then
      FDConnection1.Open;
    FDConnection1.ExecSQL('SELECT 1');
    // 探活成功就更新界面上的连接状态提示
    UpdateConnStatus(True);
  except
    on E: EDatabaseError do
    begin
      // 这里只记日志、更新状态，绝对不要弹ShowMessage、也不要主动调用Application.ShowException
      WriteLog(DateTimeToStr(Now) + ' 探活失败: ' + E.Message);
      FDConnection1.Close;
      UpdateConnStatus(False);
    end;
  end;
  PingTimer.Enabled := True;
end;

• 捕获异常的时候尽量限定到数据库连接类的异常类型（比如EDatabaseError、EFDException），不要直接写except;吞掉所有异常，不然业务代码里的真bug也会被静默掉，最后排查问题找半天

调整调试器规则，消除调试时的中断干扰 #

哪怕你代码层把异常都捕获了，默认的Delphi调试器还是会在异常抛出的第一时间断下来，打断你的调试流程，必须要改对应的配置：

• 打开IDE菜单的Tools > Options > Debugger Options > Exception Breakpoints配置页
• 把数据库相关的异常类型（比如EFDException、EDatabaseError）加到调试器的忽略列表，设置为遇到这类异常时不中断
• 配完之后，只要异常在你自己写的try...except块里被正常接住，调试器就不会停在抛异常的位置，完全不打断正常的调试节奏
• 临时调试场景下如果暂时不需要探活逻辑，可以直接加个全局开关，调试启动时直接把探活定时器设为禁用，省得服务器宕机的时候一堆异常跳出来干扰

内容的提问来源于stack exchange，提问作者AnselmoMS