Question

有一个多线程的应用程序，每周7天，每天24小时运行。正确处理资源以及适当的异常处理（包括EAccessViolation）是关键因素。

我有点不了解如何在线程函数中正确嵌套异常处理块。

TMyThread.Execute中有两个辅助函数：

function LoadHtml(const AUrl: sting): string - TIdHTTP.Get()

的简单包装器

function ParsePage(const Id: string): TOffers - 解析器/数据库更新程序功能

Execute开始查询数据库以获取ID的初始记录集。然后它启动while not rs.Eof do循环，其中调用ParsePage，这是一个主处理器。

ParsePage加载HTML（照顾LoadHtml），然后执行一些字符串解析操作，最后更新数据库。

这是一个代码结构:(为简洁起见省略细节）

{Wrapper-function to load HTML page}
function TMyThread.LoadHtml(const AUrl: string): string;
var
  Response: TStringStream;
  HTTP: TIdHTTP;
begin
  Result := '';
  Response := TStringStream.Create('');
  try
    try
      HTTP := TIdHTTP.Create(nil);
      HTTP.ReadTimeout := 10000;
      HTTP.Response.KeepAlive := false;
      try
        HTTP.Get(AUrl, Response);
        if HTTP.ResponseCode = 200 then Result := Response.DataString;
      finally
        HTTP.Free;
      end;
    finally
      Response.Free;
    end;
  except
    //This code will run only on exception and *after* freeing all resources?
    on E: EIdHTTPProtocolException do
      if E.ErrorCode = 404 then
        raise EMyOwnHTTPNotFoundError.Create('Page not found');
    else
      HandleErrorAndLogItToDB(E.Class);
  end;
end;

{Loads HTML, processes it and updates DB}
function TMyThread.ParsePage(const Id: string): TOffers;
var
  RawHTML: string;
  Offer: TOffer; //a simple record to store key offer details;
begin
  Result := TOffers.Create;
  try {top-level try..except block}
    try {Critical request. If it fails I want to move}
      RawHTML := LoadHtml('http://onlinetrade.com/offer.html?id=' + Id);
    except
      on E: EMyOwnHTTPNotFoundError do {Defined in function LoadHtml()}
        //Update DB: product does not exist.
      else
        HandleErrorAndLogItToDB(E.Class);
      end;
    end;
    try
      //Preform some basing string operations on RawHTML
    except
      on E: Exception do HandleErrorAndLogItToDB(E.Class);
    end;
    try {Iterate through some blocks of data and put them in the Offers: TList}
      for i := 0 to N do
      begin
        //Set up TOffer record
        Result.Add(Offer);
      end
    finally
      FreeAndNil(Offer);
    end;
  except
    on E: Exception do
    begin
      HandleErrorAndLogItToDB(E.Class);
      FreeAndNil(Result);
      raise; {does this return control to Execute?}
    end;
  end;
end;

现在Execute：

procedure TMyThread.Execute;
var
  j: Integer;
  s: string;
  Offers: TOffers; {Is a simple TList to store a collection of TOffer (record)}
begin
  inherited;
  CoInitialize(nil); {ADO is in da house}
  try {top-level try..except block}
    try {nested try..finally to call CoUninitialize}
      try {A critical operation which sources all further operations}
        rs := AdoQuery('GetSomeRecords ' + IntToStr(SomeId));
      except
        on E: Exception do
        begin
          HandleErrorAndLogItToDB(E.Class);
          Exit; {DB-query error means no reason to continue}
        end;
      end;
      while not rs.EOF do
      begin
        try //a loop top-level try..except handler
          Offers := ParsePage(rs.Fields['Id'].Value);
          try //nested resource freeer
            begin
              try //nested try..except to handle DB queries
                for j := 0 to N do with Offers.Items[j] do
                  AdoUpdateDB; //Update DB
                Synchronize(UpdateProgressBar);
              except
                on E: Exception do
                begin
                  HandleErrorAndLogItToDB(E.Class);
                  Continue; //as suggested
                  raise; //as suggested
                end;
              end;
              rs.MoveNext;
            end;
          finally
            FreeAndNil(Offers);
          end;
        except
          on E: Exception do HandleErrorAndLogItToDB(E.Class);
        end;
      end; //end while..do loop
      Synchronize(ResetProgressBar);
    finally
      CoUnitialize;
    end;
  except
    on E: Exception do
    begin
      //Make everything possible to keep the thread running. No matter of:
      //- HTTP/404 - Not Found exceptions (which I handle)
      //- UpdateDatabase fails
      //- String operation exceptions
      //If anything critical occurs, Execute() shall just go to the next offer
      //even if the current one is not properly processed.
    end;
end;

我认为，看看这段代码，我尝试处理太多我可能不需要处理的异常，只是将它们传递给try..except中最外层的Execute处理程序。我真正需要处理几个例外：初始数据库查询和EMyOwnHTTPNotFoundError（设置商品不存在的标志）。我在某处读到了一个建议，除非你真的需要它，否则不要明确地追逐异常处理......

然而，无论在任何代码块内/外抛出哪些异常，线程都会继续运行是非常重要的。我们的想法是完全忽略异常，永远不要破坏while..do循环或停止线程。同时，正确处理资源也是必须的。

如果您对如何改进此代码有任何建议/意见，我将不胜感激。

Answer 1

没有好办法“处理”访问冲突，或者实际上任何异常并不表示您的代码已经计划过的特定条件。（例如，如果您只是告诉用户要求另一个文件，则可以很好地处理File Not Found异常。）

如果由于错误而引发异常，则表示您的代码中发生了一些您没有计划的事情。您的代码依赖于一系列关于事情正确，事情按计划运行的假设，以及当引发意外异常时，这意味着这些假设不再必然存在。此时要做的最好的事情是生成错误报告以发回给您，然后尽快关闭。

为什么呢？因为您可能不再持有的一个假设是“关键数据处于有效的，未损坏的状态”。如果程序继续运行，盲目地遵循其所有数据都是好的假设然后对其采取行动，它可以非常非常快地将一个小问题变成一个更大的问题。

我完全理解让程序继续运行的愿望，不幸的是它从根本上与现实冲突。当你得到一个未处理的异常时，唯一明智的做法 - 特别是像只的访问冲突是某些变种的错误代码的结果 - 是产生错误报告并关闭

如果停机时间非常糟糕，您可以采取措施确保尽快重新启动。这将使您继续运行，但它将重置您的不变量（基本假设）并清除损坏的数据。但是对于所有二元的爱，关闭程序，并立即执行。

然后获取错误报告并修复您的错误。

处理TThread.Execute中的异常以使其不可中断

1 个答案: