0

複数のリモート TXT ファイルを読み取る手順を実行しています。次のように動作します: TXT ファイルの 3 つ (またはそれ以上) の URL を持つ TStringList があるので、IdHTTP を使用して .txt ファイルを取得し、それらを読み取ります。しかし、最初の TXT がオフラインであるか別の例外である場合、2 番目の 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 を読み取らないのですか?

4

0 に答える 0