Использование прокси из Memo1,в потоке.

[TEED!]

И так 3 день ищу,код как же в потоке использовать прокси из мемо.
Есть код:

potok = class(TThread) //MyThread - заданное нами имя потока.
   private
     { Private declarations }
   protected
     procedure Execute; override;
   end;

var
  Form1: TForm1;
  TMyThread: potok;
implementation

{$R *.dfm}

procedure potok.Execute;
var
Strings: TStrings;
i: integer;
Code:string;
pro: integer;
proxy: string;
tmp: string;
data: tstringlist;
begin
for pro:=0 to Form1.Memo1.lines.count-1 do
begin
tmp := pos(':', Form1.Memo1.Lines.Strings[pro]);
if tmp <> 0 then
 begin
  tmps := copy(Form1.Memo1.Lines.Strings[pro], 1, tmp-1);
  tmps2 := copy(Form1.Memo1.Lines.Strings[pro], tmp+1, length(Form1.Memo1.Lines.Strings[pro]));
 end;
if tmp = 0 then
 begin
  tmps := Form1.Memo1.Lines.Strings[pro];
  tmps2 := '8080';
 end;
ProCount := Form1.Memo1.Lines.Count;
//ProNow := Form1.Memo1.Lines.Count[Pro];
ProNow:=ProNow+1;
//Form1.Label9.Caption:='Working... ['+IntToStr(ProNow)+'/'+IntToStr(ProCount)+']';
Form1.IdHTTP1.ProxyParams.ProxyServer:=tmps;
Form1.IdHTTP1.ProxyParams.ProxyPort:=StrToInt(tmps2);
Form1.Label4.Caption:=Form1.Memo1.Lines.Strings[pro];
data.add('id=4329');
idhttp1.post('http://gmcs.su/up/', data);
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
potok.Create(false);
end;

end.

Объясняю что делает potok.excute.
Берет из мемо1 прокси,и отправляет через них пост запрос.

Но компилятор ругается на :tmp := pos(':', Form1.Memo1.Lines.Strings[pro]);

Тема ошибки:[DCC Error] Unit1.pas(59): E2010 Incompatible types: 'string' and 'Integer'

Подскажите что не так?
А воопще кто может помочь мне в аське\скайпе я буду очень признателен.

[evg_m]

tmp := pos(':', Form1.Memo1.Lines.Strings[pro]);
if tmp <> 0 then

function pos(... ): integer;
Тема ошибки:[DCC Error] Unit1.pas(59): E2010 Incompatible types: 'string'(tmp) and 'Integer'(pos: integer)

[TEED!]

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

Тема ошибки:[DCC Error] Unit1.pas(59): E2010 Incompatible types: 'string'(tmp) and 'Integer'(0)

а что исправить то надо?я что то не догоняю.

[BDA]

tmp: integer;

[TEED!]

Усе исправил.
Код:

potok = class(TThread) //MyThread - заданное нами имя потока.
   private
     { Private declarations }
   protected
     procedure Execute; override;
   end;

var
  Form1: TForm1;
  TMyThread: potok;
implementation

{$R *.dfm}

procedure potok.Execute;
var
Strings: TStrings;
i: integer;
Code:string;
pro: integer;
proxy: string;
tmps, tmps2 : String;
idhttp1: string;
tmp, ProNow, ProCount, NumPro, BadProxy, GoodProxy, SourceProxy : Integer;
flag : boolean;
data: tstringlist;

begin
for pro:=0 to Form1.Memo1.lines.count-1 do
begin
tmp := pos(':', Form1.Memo1.Lines.Strings[pro]);
if tmp <> 0 then
 begin
  tmps := copy(Form1.Memo1.Lines.Strings[pro], 1, tmp-1);
  tmps2 := copy(Form1.Memo1.Lines.Strings[pro], tmp+1, length(Form1.Memo1.Lines.Strings[pro]));
 end;
if tmp = 0 then
 begin
  tmps := Form1.Memo1.Lines.Strings[pro];
  tmps2 := '8080';
 end;
ProCount := Form1.Memo1.Lines.Count;
//ProNow := Form1.Memo1.Lines.Count[Pro];
ProNow:=ProNow+1;
//Form1.Label9.Caption:='Working... ['+IntToStr(ProNow)+'/'+IntToStr(ProCount)+']';
Form1.IdHTTP1.ProxyParams.ProxyServer:=tmps;
Form1.IdHTTP1.ProxyParams.ProxyPort:=StrToInt(tmps2);
Form1.Label4.Caption:=Form1.Memo1.Lines.Strings[pro];
data.add('id=4329');
form1.idhttp1.post('http://gmcs.su/up/', data);
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
potok.Create(false);
end;

end.

Запускаю проект,вставляю в мемо прокси,включаю снифер жму на кнопку старт(и в проекте и в сниффере) и нечего не происходит...
сниффер молчит.
Запрос на сайте так и не дошел
Что не так?!

[BDA]

Честно говоря, мне не нравится, что вы в потоке обращаетесь к элементам формы и используете idhttp с формы.
Имхо, лучше передавать потоку стринглист с прокси и создавать свой idhttp.
Во-вторых, я не вижу, чтобы вы создали data.
Удивительно, что он вообще запустился (или я чего-то не знаю про Дельфи ).

[TEED!]

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

Честно говоря, мне не нравится, что вы в потоке обращаетесь к элементам формы и используете idhttp с формы.
Имхо, лучше передавать потоку стринглист с прокси и создавать свой idhttp.
Во-вторых, я не вижу, чтобы вы создали data.
Удивительно, что он вообще запустился (или я чего-то не знаю про Дельфи ).

data.add('id=4329');

Может поможете исправить?

[BDA]

data.add('id=4329');

Это не создание, а заполнение данными.

Код нужно форматировать, а то читать очень сложно.

...
data: tstringlist;

begin
  data := tstringlist.create;
  for pro := 0 to Form1.Memo1.lines.count - 1 do
  begin
    tmp := pos(':', Form1.Memo1.Lines.Strings[pro]);
    if tmp <> 0 then
    begin
      tmps := copy(Form1.Memo1.Lines.Strings[pro], 1, tmp - 1);
      tmps2 := copy(Form1.Memo1.Lines.Strings[pro], tmp + 1, length(Form1.Memo1.Lines.Strings[pro]));
    end;
    if tmp = 0 then
    begin
      tmps := Form1.Memo1.Lines.Strings[pro];
      tmps2 := '8080';
    end;
    ProCount := Form1.Memo1.Lines.Count;
    //ProNow := Form1.Memo1.Lines.Count[Pro];
    ProNow := ProNow + 1;
    //Form1.Label9.Caption:='Working... ['+IntToStr(ProNow)+'/'+IntToStr(ProCount)+']';
    Form1.IdHTTP1.ProxyParams.ProxyServer := tmps;
    Form1.IdHTTP1.ProxyParams.ProxyPort := StrToInt(tmps2);
    Form1.Label4.Caption := Form1.Memo1.Lines.Strings[pro];
    data.clear;
    data.add('id=4329');
    form1.idhttp1.post('http://gmcs.su/up/', data);
  end;
  data.free;
end;

[TEED!]

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

Это не создание, а заполнение данными.

Код нужно форматировать, а то читать очень сложно.

...
data: tstringlist;

begin
  data := tstringlist.create;
  for pro := 0 to Form1.Memo1.lines.count - 1 do
  begin
    tmp := pos(':', Form1.Memo1.Lines.Strings[pro]);
    if tmp <> 0 then
    begin
      tmps := copy(Form1.Memo1.Lines.Strings[pro], 1, tmp - 1);
      tmps2 := copy(Form1.Memo1.Lines.Strings[pro], tmp + 1, length(Form1.Memo1.Lines.Strings[pro]));
    end;
    if tmp = 0 then
    begin
      tmps := Form1.Memo1.Lines.Strings[pro];
      tmps2 := '8080';
    end;
    ProCount := Form1.Memo1.Lines.Count;
    //ProNow := Form1.Memo1.Lines.Count[Pro];
    ProNow := ProNow + 1;
    //Form1.Label9.Caption:='Working... ['+IntToStr(ProNow)+'/'+IntToStr(ProCount)+']';
    Form1.IdHTTP1.ProxyParams.ProxyServer := tmps;
    Form1.IdHTTP1.ProxyParams.ProxyPort := StrToInt(tmps2);
    Form1.Label4.Caption := Form1.Memo1.Lines.Strings[pro];
    data.clear;
    data.add('id=4329');
    form1.idhttp1.post('http://gmcs.su/up/', data);
  end;
  data.free;
end;

спасибо помогло
Работает как часы !

[TEED!]

Появилась другая проблема.
При переборе прокси,если есть плохая прокси то он встает на ней и дальше не переберает(т.е пытается все на нее отправить).
Пробывал form1.idhttp1.ReadTimeout:=100;
не помагает,не реагирует...
Что делать?!