[Mrak]

Приветствую.

Впервые использую потоки. Возникла необходимость показывать движущийся прогресс бар при долгих действиях (н\п призагрузке файла).

Бар в отдельной форме. Почему-то не работает(

Код:

............
  TMyThread = class(TThread)
  private

  protected
    procedure Execute; override;
    procedure Update;
  end;

var
  Form1: TForm1;
  MyThread: TMyThread;

implementation
.........

Код:

procedure TMyThread.Update;
begin
  Form3.ProgressBar1.StepIt;
end;

Код:

procedure tMyThread.Execute;
begin
  while not Terminated do
  begin
    Synchronize(Update);
    sleep(1000);
  end;
end;

Код:

  ........
  if (not Assigned(form3)) then form3:=tform3.Create(form3);
  form3.Show;
  MyThread:=TMyThread.Create(true);

  // долгие операции

  MyThread.Terminate;
  form3.close;
  .........

[NumLock]

потому что когда в основном потоке выполняется строка

Код:

// долгие операции

метод Synchronize в потоке будет ждать ее завершения

[Mrak]

и как быть тогда?

мне нужно простейшее анимирование при каких-либо действиях

проще говоря, полный аналог

Код:

screen.cursor:=crHourGlass;
...
screen.cursor:=crdefault;

но только с прогресс баром

[NumLock]

строку

Код:

// долгие операции

перенести в поток

[Mrak]

но тогда это не будет являться универсальной процедурой, которую можно воткнуть в любое место программы

может есть другие способы визуализировать долгие процессы? (кроме screen.cursor)

[NumLock]

Код:

Application.ProcessMessages;

без потоков

[Mrak]

это бессмысленно, например, в

Код:

ADOQuery_Slut.Insert;
  TBLOBField(ADOQuery_Slut.FieldByName('file')).LoadFromFile(path);
ADOQuery_Slut.Post;

прога как бы виснет и все...

[Alegun]

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

...прога как бы виснет и все...

А что мешает через отдельный таймер, он тоже на потоках, в смысле, не зависнет

[Aristarh Dark]

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

А что мешает через отдельный таймер, он тоже на потоках, в смысле, не зависнет

Окно-то не отрисуется.

[poli-smen]

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

это бессмысленно, например, в

Код:

ADOQuery_Slut.Insert;
  TBLOBField(ADOQuery_Slut.FieldByName('file')).LoadFromFile(path);
ADOQuery_Slut.Post;

прога как бы виснет и все...

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

[NumLock]

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

но тогда это не будет являться универсальной процедурой, которую можно воткнуть в любое место программы

а это и не надо

[Mrak]

спасибо, специфику потоков понял