用户友好的异常错误delphi

Question

我有这个方法，我执行一个 sql 语句并在 try except 语句中捕获一个错误

AdoQuery := TAdoQuery.Create(self);
AdoQuery.connection := AdoConnection;
AdoQuery.SQL.Add(sqlStr);

AdoQuery.Prepared := true;

try
   begin
      AdoQuery.ExecSql;
      AdoQuery.Active := false;
   end;
except on e:eAdoError do
   ShowMessage('Error while creating the table: ' + e.Message);
end;

我可以捕捉到这样的错误并将其显示给用户，但它向用户显示了一些无用的信息。我想只显示错误的%msg 部分，看看图片：

我坚持e.MEssage 只允许我得到%msg 部分，但它给了我一个随机用户几乎无法理解的整个事情。在这种情况下我如何只获得有用的信息

表 reftabtest.rPCE 已经存在

谢谢。

Answer 1

你可以使用TADOConnection对象的Errors属性，你想要的是Error对象的Description成员。

在你的情况下：

function ParseOBDCError(ErrorDescription : String) : String;

var
  Ps : Integer;
  Pattern : String;

begin
 Pattern := '%msg:';
 Ps := Pos(Pattern, ErrorDescription);
 if Ps > 0 then
  begin
   Result := Copy(ErrorDescription, Ps+Length(Pattern)+1);
   // if you want, you can clean out other parts like < and >
   Result := StringReplace(Result, '<', , '', [rfReplaceAll]); 
   Result := StringReplace(Result, '>', , '', [rfReplaceAll]); 
   Result := Trim(Result);
  end
 else
  Result := ErrorDescription;
end;

...
 AdoQuery := TAdoQuery.Create(self);
 AdoQuery.connection := AdoConnection;
 AdoQuery.SQL.Add(sqlStr);
 AdoQuery.Prepared := true;

 try
  AdoQuery.ExecSql;
  AdoQuery.Active := false;
 except on e : Exception do
   begin
    if AdoConnection.Errors.Count > 0 then
     ShowMessageFmt('Error while creating the table: %s', 
                    [ParseOBDCError(AdoConnection.Errors[0].Description)])
    else
     ShowMessageFmt('something went wrong here: %s', [e.Message]);
   end;
 end;

Answer 2

您的ShowMessage() 代码未显示该消息对话框。

首先，图标是错误的 - 那不是 ShowMessage 图标。
其次，您在邮件中添加的文本 ('Error while creating the table: ') 丢失了。

这意味着您的异常吞咽器没有捕获异常，因为它不属于 EADOError 类。所以发生的事情是应用程序的默认异常处理程序正在显示异常。

---

在我解释如何解决它之前，我需要指出您的异常吞咽器是错误的（您的异常吞咽器不应该被错误地命名为异常处理程序）。

因为你正在接受异常：如果另一个方法调用你的方法，它会错误地认为你的方法成功了，并且可能会做一些它不应该做的事情。你永远不应该编写假设没有重要的调用堆栈导致你的方法的代码。

吞咽向用户显示消息并没有帮助，因为它隐藏了程序其余部分的错误。尤其是因为，如您所见：在一个地方已经有代码告诉用户错误而对程序的其余部分隐藏。 （你的问题是你想要一个更友好的信息。）

---

修复它：

首先找出实际的异常类是什么，这样你就能够捕捉到正确的错误。

现在你有很多选择，但最简单的如下：

• 首先记录异常，最好使用调用堆栈。您不希望陷入用户收到友好消息但您作为开发人员在需要进行调试时丢失关键信息的情况。
• 要获取调用堆栈，您可以考虑使用 Mad except、Exceptional Magic、JCLDebug 等第三方工具。
• 现在向用户显示消息。
• 最后拨打Abort。这会引发EAbort 异常，按照惯例，它是“静默异常”。它告诉程序的其余部分存在错误（因此假设一切正常，它不会做任何事情）。但按照惯例，任何进一步的异常处理程序都应该不向用户显示另一条消息。这包括您问题中的默认处理程序对话框。
• 如果默认处理程序不正确显示EAbort 消息，那么它应该被修复。