Прокси валидатор

@NastyaC12 · Регистрация: 05.02.2020

Author24 — интернет-сервис помощи студентам

Написала прокси валидатор
но он работает примерно 1 прокси за 25 сек это очень долго как мне ускорить все это раз в 10 подскажите

вот код

Delphi

procedure TForm4.Button1Click(Sender: TObject);
var
i: integer;
proxy: string;
data: tstringlist;
 
begin
idHTTP1.HandleRedirects := True;
data:=TStringList.Create;
for i := 0 to memo1.lines.count  do
  begin
  proxy:=memo1.lines.strings[i];
   IdHTTP1.ProxyParams.ProxyServer:=Copy(proxy,1 ,Pos(':',proxy)-1);
   IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(proxy ,Pos(':',proxy)+1,Length(proxy)));
try
   IdHTTP1.POST('https://turbo.site/page392341', data);
except
Memo2.Text:=Memo2.Text+'Прокси '+inttostr(i)+'не валидный'+#13#10 ;
//showmessage('Proxy not valid. goto 10;');
end;
  //Memo1.lines.delete(i);
end;
end;
 
end.

@Nanotentacle · 13.02.2020, 11:40

Сообщение от NastyaC12

но он работает примерно 1 прокси за 25 сек это очень долго как мне ускорить все это раз в 10 подскажите

Поставить ReadTimeout = 500?

@NastyaC12 · 13.02.2020, 12:37 **[ТС]**

Просто оргазм

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	13.02.2020, 11:40	2
	Сообщение от NastyaC12 но он работает примерно 1 прокси за 25 сек это очень долго как мне ускорить все это раз в 10 подскажите Поставить ReadTimeout = 500? 0

@NastyaC12 0 / 0 / 0 Регистрация: 05.02.2020 Сообщений: 46
	13.02.2020, 12:37 [ТС]	3
	Просто оргазм 0