[EL190]

Прошу помощи!
программа принимает файлы от нескольких клиентов.
Хочу сделать в listview для каждого принимаемого файла progressbar.
Подскажите как, ведь из потока нельзя вызывать функцию с параметрами а как мне тогда к Progressbar обращаться????

[Bargest]

ведь из потока нельзя вызывать функцию с параметрами

Можно. Другое дело, что с точки зрения синхронизации не следует вызывать методы формы "прям так". Для этого есть метод Synchronize у класса TThread.

[EL190]

я его так и Synchronize( Form1.Createprogress); Createprogress-процедура создания.
но я не могу передать этой процедуре параметр max

[Bargest]

Можно сделать метод потока, который будет вызываться без параметров через Synchronize, а затем уже внутри будет вызываться нужная функция.

[EL190]

Отлично!!!Получилось!!! СПАСИБО!!!

Извиняюсь но еще вопрос

Код создания progressbara

Код:

i:= Listview1.Items.Count;

   Listview1.Items.Add.Caption:=a;

   r:=Listview1.Items[i].DisplayRect(drBounds);

   pb:=TProgressBar.Create(Self);
   pb.Parent:=Listview1;

   pb.Position:=S;
   pb.Smooth:=true;

   Listview1.Items[i].Data:=pb;

lmikle: пользуемся тегами!!!

ну создаю я его а как мне теперь из потока передавать позицию

[Bargest]

Так же. В Synchronize вызывать метод потока, который будет ставить его позицию в нужную.

[EL190]

я это понимаю,но как мне в потоке узнать к какому progressbar обращаться ведь у меня для каждого потока создается свой progressbar и даже если поток будет знать то как мне через Listview1.Items[i].Data обратиться к progressbar.position

[Bargest]

Так. По каким событиям должно меняться положение ProgressBar?

[EL190]

процедура создания вызывается до этого кода когда поток определяет размер файла

while(nTotal < FileInfo.FileLength) do
begin

nToRead := (FileInfo.FileLength - nTotal);

if (nToRead > SizeOf(RcvBuf)) then
nToRead := SizeOf(RcvBuf);

nRead := SockStream.Read( RcvBuf, nToRead );
if (nRead = 0) then Exit;
nTotal := nTotal + nRead;
FileServer.ProgressBar1.Position:=nTotal;-здесь я меняю позицию прогрессбара
Application.ProcessMessages;
FileStream.Write( RcvBuf, nRead );
end;

но этот прогрессбар у меня создан на форме и он один для всех потоков.

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

думаю что в процедуре создания прогрессбара нужно сделать передачу в поток вызвавший эту процедуру переменной I(Listview1.Items[i] ) но не знаю как сделать

[EL190]

С обращением к прогрессбару разобрался вроде

pb:=TProgressBar(Listview1.Items[0].Data);
pb.Position:=pb.Position+20;

Думаю правильно.
но с передачей параметра I в поток не разобрался

[Bargest]

Процедура создания ProgressBar вызывается в методе потока. Следовательно, можно сделать эту процедуру функцией, возвращаемым значением которой будет например его номер. Затем в потоке можно сохранить это значение (к примеру в переменной, являющимся полем собственного наследника класса TThread) и использовать далее.
Желательно обращение к ProgressBar сделать тоже через Synchronize, как и создание.

[EL190]

СПАСИБО!!!! сам чето не додумался! с потоками первый раз дело имею.
тока не пойму почему когда Listview прокручиваю progressbarы на месте стоят

[EL190]

еще вопросец как из потока вызвать функцию формы и не дожидаться ее завершения
А то как то нехорошо получается -поток файл принимает и должен ждать завершения заполнения прогрессбара

[Bargest]

Только что нашел метод Queue, который является асинхронным Synchronize.
Правда думаю, задержки по перерисовке ProgressBar - ничто по сравнению с задержками сети. Не факт, что вообще стоит это делать. Ведь всякие асинхронности тоже грузят процессор. Пока добавится в очередь, пока вытащится,...

[EL190]

если я правильно понял то при создании потока все функции потока записываются в него (типа нового utita) или нет??????