複数のリモート 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 を読み取らないのですか?