Код:
procedure TDownLoadHttp.Execute;
var
IdHttp: TIdHTTP;
TFS00: TFileStream;
begin
while ThreadCount >= MaxThreadCount do
begin
Application.ProcessMessages;
end;
ThreadCount:=ThreadCount + 1;
for AE:=1 to AttemptsErrors do
begin
Try
IdHttp:=TIdHTTP.Create(nil);
IdHttp.HandleRedirects:=True;
TFS00:=TFileStream.Create(InFile, fmCreate);
IdHttp.Get(Url, TFS00);
Break;
Finally
IdHttp.Free;
TFS00.Free;
end;
Application.ProcessMessages;
end;
ThreadCount:=ThreadCount - 1;
end;
Я сделал так... Может грубовато!... Но все работает и не глючит!... Количество потоков контролируется жестко!... Может и глупо.. Но все же... Спасибо всем...