Многопоточность

[alex0097]

Народ как сделать многопточность приложения?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  data, list: TStringList;
  i, k: Integer;
begin
  IdHTTP1.ReadTimeout :=9000;
  //IdHTTP1.ProtocolVersion := pv1_1;
  k := 0;
  Data := TStringList.Create;
  List := TStringList.create;
  List.LoadFromFile('1.txt');
  List.NameValueSeparator := Char(':');
  for i := 0 to List.Count - 1 do
  begin
    IdHTTP1.ProxyParams.ProxyServer := List.Names[i];
    IdHTTP1.ProxyParams.ProxyPort := StrToInt(List.ValueFromIndex[i]);
    Data.Add('votec=3');
    Data.Add('x=49');
    Data.Add('y=8');
    Inc(k);
    Application.ProcessMessages;
    try
      IdHTTP1.Post('http://idsocium.ru/goloskpu1/vote.php', Data);
    except
      on E: exception do
      label1.Caption := E.Message;
    end;
      label2.Caption := IntToStr(k);
  end;
  IdHTTP1.Disconnect;
  List.Free();
  Data.Free();
end;

end.

[Pein95]

ну сначало можно воспользоватса гуглом и прочитать вопше что такое поток и как им пользоватса...

[mss]

Переделать приложение. Практически с нуля.

[Pein95]

 potok = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

вот напишы такое в юните вв процедуре execute делай все что должно віыполнятса в потоке.
как вызвать поток:
создать переменню типа поток;

	
	
var
p:potok;
beign
p:=potok.create(false);
p.resume;
p.Priority:=tpnormal;


end;