Вот утрированный код

Код

procedure TForm1.Button1Click(Sender: TObject); var  i: integer; begin  for i := 0 to Memo1.Lines.Count - 1 do begin    TMyThread.Create(false, Memo1.Strings[i]);  end; end;

Код

type  TMyThread = class(TThread)  private    FUrl: string;  public    constructor Create(CreateSuspended: Boolean; AUrl: string);  protected    procedure Execute; override;    procedure UpdateCaption;  end; implementation { TMyThread } constructor TMyThread.Create(CreateSuspended: Boolean; AUrl: string); begin  inherited Create(CreateSuspended);  FUrl := AUrl;  FreeOnTerminate := true; end; procedure TMyThread.Execute; var  http: TIdHTTP; begin  http := TIdHTTP.Create(nil);  http.Get(FUrl);  http.Free;  Synchronize(UpdateCaption); end; procedure TMyThread.UpdateCaption; begin  Form1.Memo2.Lines.Add(FUrl); end;

В Memo1 содержится список урлов.
При нажатии на кнопку запускается несколько потоков, каждый из которых скачивает определенную страничку. По завершении скачивания в Memo2 пишется урл скаченной странички.
IdHTTP - это из Indy Clients

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

Причем если, например, закоментировать строчку

Код

http.Get(FUrl);

то потоки прекрасно завершаются

Что тут можно сделать? Заранее ОГРОМНОЕ Спасибо!!!

А в мемо у тебя результат от всех потоков приходит ?

p0s0l
Ага. Т.е. если в Memo1 написано например:

Код

http://qwe.ru/ http://asd.ru/ http://zxc.ru/

то в Memo2 выводится примерно следующее (порядок может быть разным, в зависимости от скорости скачивания страницы):

Код

http://asd.ru/ http://zxc.ru/ http://qwe.ru/

Т.е. до Synchronize дело доходит. Но поток не завершается.

Список дай... OC какая?

А если принудительно завершить поток после вывода в Memo ?
Т.е. будет так:
Synchronize(UpdateCaption);
ExitThread(0);

Хотя конечно лучше бы выяснить, почему поток не завершается...

ЗЫ: как ты определяешь кол-во потоков в процессе ?

Girder

Цитата

Список дай

Не понял Какой список?

Цитата

OC какая?

WinXP

p0s0l
Попробовал ExitThread(0) - тоже самое :-/

Цитата

ЗЫ: как ты определяешь кол-во потоков в процессе ?

Прогой AnVir Task Manager (http://anvir.com/)

Вот на всякий случай моя прога (хотя она вся в первом посте ) - _http://picts4.nm.ru/ThreadProblem.rar
Там только в коде потока надо убрать параметры проксика.. Кстати, может из-за соединения через проксик такое?

Вот у тебя осталось 2 потока, если еще раз прогонишь закачку - сколько в итоге останется: 2 или 3 ?
Если 2, то возможно IdHTTP создаёт вспомогательный поток (для чего-нибудь)... Прогу позднее гляну...

После повторного запуска остается 2 потока.
Вероятно и правда дополнительный.
А как его можно завершить? Или можно не беспокоится - пусть будет?

Наплюй на эти потоки - они создаются системой, значит нужны.
Даже такой код у меня создаёт 2 дополнительных потока:

Код

var  wsad : WSAData;  s : TSocket; begin  WSAStartup(2, wsad);  s := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);  CloseSocket(s);  WSACleanup; end;

А TIdHTTP.Get в итоге сводится как раз к вызову
socket(AF_INET, SOCK_STREAM, IPPROTO_IP);

p0s0l
Ок, забью

СПАСИБО ОГРОМНОЕ!!!!
Добавлено @ 23:09
Млин, репутацию не могу повысить наберу сотню - займусь ;)