TThread

← →
marat_ch © (2003-06-18 14:27) [0]

Пример из \Help\Examples\Prgrsbar
constructor TPgThread.CreateIt(PriorityLevel: cardinal; ProgBar : TProgressBar);
begin
inherited Create(true); // Create thread suspended
Priority := TThreadPriority(PriorityLevel); // Set Priority Level
FreeOnTerminate := true; // Thread Free Itself when terminated
PB := ProgBar; // Set reference
Synchronize(InitProgressBar); // Setup the ProgressBar

//////////////// Здесь висим
Suspended := false; // Continue the thread
end;

procedure TPgThread.Execute; // Main execution for thread
var
i : cardinal;
begin
i := 1;
while ((Terminated = false) and (i < 100000)) do
begin
Synchronize(UpdateProgressBar); // Update ProgressBar, uses sychronize because ProgressBar is in another thread
////////// Здесь все нормально
Inc(i);
// if Terminated is true, this loop exits prematurely so the thread will terminate
end;
end;

В D5 работает все нормально.
Вопрос в чем причина ?

← →
Digitman © (2003-06-18 14:36) [1]

почему висим ?
долго объяснять)

найди различия :

constructor TPgThread.CreateIt(PriorityLevel: cardinal; ProgBar : TProgressBar); begin inherited Create(true); Priority := TThreadPriority(PriorityLevel); FreeOnTerminate := true; PB := ProgBar; Resume; end; procedure TPgThread.Execute; var i : cardinal; begin Synchronize(InitProgressBar); i := 1; while not Terminated and (i < 100000) do begin Synchronize(UpdateProgressBar); Inc(i); end; end;

Я обычно в таких случаях обновляю индикатор прогресса при помощи оконных сообщений. То есть в форме (или где там у Вас ProgressBar находится?) пишется обработчик своего оконного сообщения Windows, в параметрах которого передается состояние процесса обработки. В поток же передается handle формы. Для отображения прогресса поток посылает этому окну сообщение с нужными параметрами при помощи PostMessage (это позволяет не ждать завершения обработки сообщения).

TThread Найти похожие ветки