[Hamsi]

Есть мемо и едит.В мемо есть сайты которие нужно получить через Get(просто отправить запрос),а в едите количество потоков!Как это можно зделать?С потоками никогда не работал

[v1s2222]

Ну просто поучись работать с потоками... просто в цикле создавай потоки и все...

Код:

1 2 3 4 5

var MyThread: Array of TThread; ... SetLength(MyThread, Memo1.Lines.Count-1); for i:=0 to Memo1.lines.Count-1 do // кол-во создаваемых потоков   MyThread[i]:=TThread.Create(true/false);

Как-то так...

[Hamsi]

А как запросы через них каждому присваивать?Какое событие за это отвечает?И как их запустить?

[v1s2222]

http://www.google.com.ua/search?sour...BB%D1%84%D0%B8

Сложно было заглянуть?
А запуск происходит вызовом процедуры Execute.

Код:

1 2	...   x.Execute; // где х - поток

[Hamsi]

И всетаки подскажи как каждому потоку присвоить гет один,плиз

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85

unit Unit1;   interface   uses   IdHTTP,   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TGetThread = class(TThread)   private     FURL: String;     FRes: String;     procedure Updt;   protected     procedure Execute; override;   public     constructor Create(AURL: String);   end;     TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     Memo2: TMemo;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   c: Integer;   implementation   {$R *.dfm}   { TGetThread }   constructor TGetThread.Create(AURL: String); begin   inherited Create(True);   FURL:=AURL;   Resume; end;   procedure TGetThread.Execute; var   http: TIdHTTP; begin   try     http:=TIdHTTP.Create(nil);     try       FRes:=http.Get(FURL);       Synchronize(Updt);     finally       http.Free;     end;   except   end; end;   procedure TGetThread.Updt; begin   Form1.Memo2.Lines.Add(FRes);   Form1.Memo2.Lines.Add('--------------------------------------------------');   Dec(c);   if c=0 then ShowMessage('ok'); end;   { TForm1 }   procedure TForm1.Button1Click(Sender: TObject); var   i: Integer; begin   c:=Memo1.Lines.Count;   for i:=0 to c-1 do     TGetThread.Create(Memo1.Lines[i]); end;   end.

http://data.cod.ru/79019

[Hamsi]

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

Код:

http://data.cod.ru/79019

А если прокси 200?То нет сдохнет

[NumLock]

ну так TIdHTTP работает с прокси:

IdHTTP1.ProxyParams.ProxyServer
IdHTTP1.ProxyParams.ProxyPort
IdHTTP1.ProxyParams.ProxyUsername
IdHTTP1.ProxyParams.ProxyPassword