Процедуры в потоках и синхронизация с VCL (Lazarus)

[kta87]

Доброго всем! Что то запутался я... Вообщем выполняю некоторые действия с файлом, на форму в Caption вывожу текущий процент завершенности работы с файлом. Проблема показалась следующим образом: При малых файлах (30-50 кб) процесс происходит моментально... действия в файле выполняются правильно, но в Form.caption сразу 100%. При больших файлах (1,5 Гб и более) процесс видимо не работает... Form.caption висит 0%, структура файла не меняется.

type
  THandleWorks = (hWorksOne, hWorksTwoo);
{ TWorkThread }  
  TWorkThread = class(TThread)
  private
    Percent: Double;
    procedure SetPercent;
  public
    constructor Create(CreateSuspended: Boolean);
    destructor Destroy; override;
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;
  FilePath: string;
  HandleWorks: THandleWorks;

{ TForm1 } 
procedure HandleWorksBegin(_FilePath: string; _HandleWorks: THandleWorks; var _Percent: Double);
begin
{тут происходит работа с файлом через THandle, и тут вычисляется процент завершенности - переменная "_Percent"}
end;

procedure TWorkThread.SetPercent;
begin
  Form1.Caption := 'Working: ' + FloatToStrF(Percent, ffFixed, 3, 2) + '%';
end;

procedure TWorkThread.Execute;
begin
  HandleWorksBegin(FilePath, HandleWorks, Percent);
  Synchronize(SetPercent);
  // Synchronize(@SetPercent);
end;

Понимаю, наверное вопрос должен переехать в раздел "Студентов", но все же... подскажите / покажите как правильно...

[Аватар]

Ну видимо HandleWorksBegin не завершен - то ли очень долго работает, то ли вообще зациклился. И не понятен такой способ выдачи прогресса, его обычно в цикле выдают

[min@y™]

сделай HandleWorksBegin методом треда, высчитывай внутри прогресс и вызывай Synchronize оттуда изнутри цикла при условии, что он изменился на определённую разницу.

[kta87]

min@y™, прыгал, танцевал вокруг да около, а в итоге так и написал... а параметр HandleWorks передаю в Execute потока.

[min@y™]

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

min@y™, прыгал, танцевал вокруг да около, а в итоге так и написал... а параметр HandleWorks передаю в Execute потока.

помогло ?

[kta87]

min@y™, ну это как сказать Вопрос, поставленный в теме решен, кстати я отблагодарил вас. Но после того как переписал по этому алгоритму, решил вообще HandleWorksBegin записать внутри TWorkThread.Execute, а затем и вообще перенес весь код чисто в TWorkThread.Execute, вынося пару переменных в глобальные (т.к. они задаются единожды при работе потока.) По ощущениям работать стало все много медленнее... Сейчас вот пишу 2 версии и счетчики вешаю, для проверки скорости работы.