Question

我正在尝试读取多个远程TXT文件。将这样工作：我有一个带有3个（或更多）TXT文件URL的TStringList，所以我使用IdHTTP来获取.txt文件并读取它们。但是如果第一个TXT处于脱机状态或另一个例外，我想转到第二个等等......我正在使用这个代码：

  ValidTXT:= false;
  HTTP:= TIDHttp.Create(Nil);
  HTTP.ConnectTimeout:= 10000;
  Body:= TStringList.Create;
  HTTP.Request.UserAgent:= 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1';
  while ValidTXT = false do
    begin
      for i:= 0 to TXTs.Count - 1 do
        begin
          Body.Text:= HTTP.Get(TXTs.Strings[i]);
          Line:= Body.Strings[0];
          if pos('AmValid!', Line) > 0 then
            begin
              ValidTXT:= true;

所以，如果我得到'AmValid！'在TXT文件的第一行，它是有效的，我停止了。但如果我没有得到'AmValid！'或者获得异常，为什么我不读取StringList上的下一个TXT？

IdHTTP在异常时停止

0 个答案: