ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TVoteThread.Execute;
var text:string;
begin
  {--//--}
  FState := shReady;
  Synchronize(Start);
  FResult := 2;
  {Создаём компоненты}
  {}
  FH := TidHTTP.Create;
  FS := TIdIOHandlerStack.Create;
  {--//--}
  HTTPParms:=TStringList.Create;
  StreamParms := TStringStream.Create;
  {--//--}
  FH.IOHandler := FS;
  if FProxyTag=0 then FH.IOHandler := FS.MakeDefaultIOHandler(FH);
  if (FProxyTag=1) or (FProxyTag=2)  then
     begin
      SI := TIdSocksInfo.Create;
      SSL := TidSSLioHandlerSocketOpenSSL.create;
      SSL.SSLOptions.Method := sslvtlsv1;
      SSL.Port := 443;
      FH.IOHandler := SSL;
  end;
  FH.HandleRedirects := true;
  FH.HTTPOptions := [];
  FH.ReadTimeout := FTimeOut * 1000;
  FH.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.1.7) Gecko/20091221 Firefox/3.5.7';
  FH.Request.Accept := 'text/html, */*';
  FH.Request.Connection := 'Keep-Alive';
  FH.Request.AcceptEncoding := 'identity';

if FProxyTag=0 then
  begin
    FH.ProxyParams.ProxyServer := FProxyHost;
    if not (FProxyPort='') then FH.ProxyParams.ProxyPort := strtoint(FProxyPort);
    if not (FProxyUserName='') then FH.ProxyParams.ProxyUsername := FProxyUserName;
    if not (FProxyPassword='') then FH.ProxyParams.ProxyPassword := FProxyPassword;
end;

if (FProxyTag=1) or (FProxyTag=2)  then
  begin
    SI.Authentication := sanoAuthentication;
    SI.Host := FProxyHost;
    if not (FProxyPort='') then SI.Port := strtoint(FProxyPort);
    SI.Username := FProxyUserName;
    SI.Password := FProxyPassword;
      if FProxyTag=1 then SI.Version := svSocks4;
      if FProxyTag=2 then SI.Version := svSocks5;
    if not (FProxyUserName='') then SI.Authentication := saUsernamePassword;
    SSL.Transparentproxy := SI;
end;

{Основное выполнение потока}
  try

try
text:=FH.GET('http://');
except
FResult := 2;
end;

  FState := shComplete;
  Synchronize(Complete);
  finally
    ReleaseThread(Self);
  end;
end;