Доброго времени суток!
Использую библиотеку Synapse для работы с сетью, в цикле проверяю прокси на работоспособность, можно ли как-то сделать переход к следующему прокси в списке, если какое-то определенное время нет ответа от сервера или запрос не выполняется?
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
HTTP: THTTPSend;
PList: TStringList;
i, j: Integer;
begin
PList:= TSTringList.Create;
PList.LoadFromFile('D:\Proxy.txt');
HTTP:= THTTPSend.Create;
j:= 1;
for i:= 0 to PList.Count - 1 do
begin
HTTP.ProxyHost:= Copy(PList.Strings[i], 0, Pos(':', PList.Strings[i]) - 1);
HTTP.ProxyPort:= Copy(PList.Strings[i], Pos(':', PList.Strings[i]) + 1, Length(PList.Strings[i]));
if HTTP.HTTPMethod('GET', 'http://2ip.ru') = True then
begin
// вот тут надо вставить что-то типа if HTTP.TimeOut > такого-то числа then continue, пробовал - ничего не выходит
Memo1.Lines.Add(IntToStr(j) +') ' + PList.Strings[i]);
inc(j);
end;
end;
HTTP.Free;
PList.Free;
end;
|
Такие вещи надо делать в отдельном потоке, это просто набросок, выкинул много мусора из кода  Спасибо за ответы.
-----------
Вставил HTTP.Timeout:= 900; - вроде отбрасывает длительные запросы, вопрос открыт, можно ли сделать проверку работоспособности проксей как-то по-другому? Уж слишком криво у меня. |
