Не работает proxy для IdHTTP

[greenisius]

Добрый день.

Есть класс потока:

constructor Thread.Create(CreateSuspended: Boolean);
begin
  inherited;
  Form1.ThreadList.Add(Self);
  IdHTTP := TIdHTTP.Create(nil);
  IdHTTP.CookieManager := TIdCookieManager.Create();
  IdHTTP.Compressor := TIdCompressorZLib.Create();

  IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(); 
  IdHTTP.HandleRedirects := true;
  IdHTTP.AllowCookies := true;
end;

function Thread.GetProxy: Boolean;
var
  proxy: string;
begin
  with Form1 do          
  begin
    try
      CS_PROXY.Enter;

        if ProxyList.Count > 0 then
        begin
          try
            Socks5.Free;
            Socks5 := TIdSocksInfo.Create();                    
            Socks5.Version := svSocks5;
            Socks5.Authentication:= saNoAuthentication;

            IdHTTP.ReadTimeout := 30000;
            IdHTTP.ConnectTimeout := 30000;

            proxy := ProxyList[0];
            ProxyList.Delete(0);
            Socks5.Host := Copy(proxy,1,Pos(':',proxy)-1);
            Socks5.Port:= StrToInt( Copy(proxy,Pos(':',proxy)+1,Length(proxy)) );
            Socks5.Enabled := True;

            IOHandler.TransparentProxy := Socks5;

            Result := true;
          except
            Result := false;
          end;
        end
          else Result := false;
    finally
      CS_PROXY.Leave;
    end;
  end;
end;

procedure Thread.Execute;
var
  CheckStatus, Email: string;
  i, j: integer;
begin
  inherited;
  while WORK do
  begin
    if not GetProxy then
    begin
      Form1.Label21.Caption := 'Закончились proxy';
      exit;
    end;
    for i := 1 to CheckCount do
    begin
      Email := GetEmail;
      if Email <> 'EMPTY' then
      begin
        for j := 1 to 5 do
        begin
          CheckStatus := Check(Email);
          if Pos('ERROR', CheckStatus) = 0 then
          begin
            UpdateStatistics(Email, CheckStatus);
            break;
          end
          else if Pos('BLOCK', CheckStatus) > 0 then
          begin
            Form1.CS_BLOCK.Enter;
              Form1.Label23.Caption := IntToStr(StrToInt(Form1.Label23.Caption) + 1);
              AddEmail(Email);
            Form1.CS_BLOCK.Leave;
            break;
          end;
        end;
      end
      else
        Exit;
    end;
    Sleep(500);
  end;
end;

Код просто не пашет, и я не могу понять, почему.
IdHTTP не видит прокси и работает напрямую.

Ребята, помогите разобраться с IdSocksInfo.

[greenisius]

Да, и если вывалить весь хлам из function Thread.GetProxy в конструктор, работает нормально, а в таком варианте как у меня не работает. Похоже, IdHTTP просто не видит Socks5 или то, что я кладу в сокс куда-то теряется.

[greenisius]

Пишу, если кто-то столкнется с такой проблемой.

В очередной раз проблема заключается в кривизне Indy.

Решить проблему можно путем удаления компонентов IOHandler и IdSocksInfo в функции GetProxy, и создания заново.

constructor Thread.Create(CreateSuspended: Boolean);
begin
  inherited;
  Form1.ThreadList.Add(Self);
  IdHTTP := TIdHTTP.Create();
  IdHTTP.CookieManager := TIdCookieManager.Create();
  IdHTTP.Compressor := TIdCompressorZLib.Create();

  IdHTTP.HandleRedirects := true;
  IdHTTP.AllowCookies := true;
end;

function Thread.GetProxy: Boolean;
var
  proxy: string;
begin
  with Form1 do           
  begin
    try
      CS_PROXY.Enter;


        if ProxyList.Count > 0 then
        begin
          try
            IOHandlerSSL.Free;
            Socks5.Free;

            IOHandlerSSL := TIdSSLIOHandlerSocketOpenSSL.Create();
            IdHTTP.IOHandler := IOHandlerSSL;

            Socks5 := TIdSocksInfo.Create();
            Socks5.Version := svSocks5;
            Socks5.Authentication:= saNoAuthentication;

            IdHTTP.ReadTimeout := 10000;
            IdHTTP.ConnectTimeout := 10000;

            Socks5.Enabled := True;

            proxy := ProxyList[0];
            ProxyList.Delete(0);
            Socks5.Host := Copy(proxy,1,Pos(':',proxy)-1);
            Socks5.Port:= StrToInt( Copy(proxy,Pos(':',proxy)+1,Length(proxy)) );
            Socks5.Enabled := true;

            IOHandlerSSL.TransparentProxy := Socks5;

            Result := true;
          except
            Result := false;
          end;
        end
          else Result := false;
    finally
      CS_PROXY.Leave;
    end;
  end;
end;