Проблема с редиректом

[bulldog5293]

Пытаюсь через потоки и listview авторизироваться на нескольких сайтах. Код вызова потока использую такой

var
  Form1: TForm1;
  ind:integer=-1;
  Pay: array [1..2000] of ***;
  HTTP_1: array [1..2000] of TIdHTTP;
  IdCookieManager1_Pay:  array [1..2000] of TIdCookieManager;

procedure TForm1.Button2Click(Sender: TObject);
var
w:integer;
i:integer;
s:integer;
  URL_Pay :string;
  Login :string;
  Pass :string;
  begin
  for i:=0 to Form1.Listview1.Items.count-1 do
  begin
  URL_Pay := 'http://' + Form1.Listview1.Items[i].SubItems[0];
  Login := Form1.Listview1.Items[i].SubItems[1];
  Pass := Form1.Listview1.Items[i].SubItems[2];
  begin
  ind:=-1;
  for w:=1 to Form1.Listview1.Items.count do
  begin
  Pay[w]:=***.Create(True);
  Pay[w].Resume;
  end;
  end;
  end;
  end;

код потока такой

function getnumber:integer;
begin
  if ind<>form1.Listview1.items.Count then
  inc(ind);
  result:=ind;
end;

procedure ***.Execute;
var
cw : integer; 
st:TStringStream;
s:TStringStream;
inf:TStringList;
begin
IdCookieManager1_Pay:= TIdCookieManager.Create(nil);
HTTP_1 := TIdHTTP.Create(nil);
  cw:=getnumber;
HTTP_1.HandleRedirects := true;//возможность перенаправления
HTTP_1.AllowCookies:=true;//разрешаем куки
s:=TStringStream.Create;
st:=TStringStream.Create;
 inf:=tstringlist.create;
  while cw<form1.Listview1.items.Count do
  begin
  ///
  begin
///
end
else
inf.Add('username=' +Login);
inf.Add('password=' + Pass);
HTTP_1.Post('http://' + URL_Pay +'login.php',inf,s);
inf.Free;
end;

Но выводит ошибку указывает на raise EIdSocketError.CreateError(AErr, WSTranslateSocketErrorMsg(AErr));
в файле IdStackBSDBase.pas, подскажиет в чём ошибка?

[Квэнди]

Но выводит ошибку

где выводит ошибку, кто выводит, когда выводит ?

указывает на raise EIdSocketError.CreateError(AErr, WSTranslateSocketErrorMsg(AErr));
в файле IdStackBSDBase.pas,

2. кто указывает ? ни текста ошибки, ни строки, ни результатов хотя бы поверхностного дебага нет....

[bulldog5293]

в indy боюсь дебагом пользоваться, т.к. комп в накаут может уйти, слабенький он, а выводит табличку с названием Debugger Exception Notification и в ней написано Project ***.exe raised exception class EIdSocketError with message 'Socket Error # 11001 Host not found.'.

[Квэнди]

Host not found - вот и ответ на ваш вопрос

[bulldog5293]

Но сайты на которых должна пройти авторизация существуют, у меня это началось после того как я выставил http_1: array [1..2000] of TIdHTTP; так как до этого авторизировался поочерёдно из-за одного потока, а теперь как выставил в динамику TIdHTTP такая бага появилась

[bulldog5293]

Ну подскажите в чём касяк или мне ещё хосты к ним прекручивать? в сети тоже не чего не нашёл

А началось после того как я выставил http_1: array [1..2000] of TIdHTTP; так как до этого авторизировался поочерёдно из-за одного потока, а теперь как выставил в динамику TIdHTTP такая бага появилась

[Voody]

Многое не понятно.
Переменные URL_Pay, Login, Pass описаны в procedure TForm1.Button2Click как локальные переменные, а используются еще и в procedure BUX.Execute;
Где описание IdHTTP1_Pay?

Раз у вас компилируется, значит этих проблем нет, а значит код, который вы привели, не совпадает с вашим кодом. Тогда смысл выкладывать этот код и просить помочь?

[bulldog5293]

VVood, сорри забыл просто IdHTTP1_Pay переписать на http_1

[Voody]

Суть остается: где описывается http_1
И главное, что за URL_Pay, Login, Pass в BUX.Execute? Где они описаны и где идет им присвоение

[bulldog5293]

URL_Pay := 'http://' + Form1.Listview1.Items[i].SubItems[0];//сайт
Login := Form1.Listview1.Items[i].SubItems[1];//логин
Pass := Form1.Listview1.Items[i].SubItems[2];//пароль
http_1 это компанент TIdHTTP, просто переименованный