Форма тормозит... :(

← →
Борис К. (2003-06-23 14:51) [0]

Мастера, не подскажете как сделать чтобы при выполнении длительной процедуры копирования файла через интернет (и при считывании этих байтиков) форма не замерзала?
У меня сделано так:
Function Copy (...);
begin
...
Repeat
...
Application.ProcessMessages;
until (...)
end;
Как здесь можно побороть временное замерзание?

← →
Семен Сорокин © (2003-06-23 14:54) [1]

Application.ProcessMessages достаточно, но если какая-то из процедур долго выполняется уже в цикле, то это не поможет, здесь можно предложить тока использовать TThread

← →
Борис К. (2003-06-23 15:25) [2]

Приведи плиз. пример TThread если есть.

type
tMyThread = class(tThread)
protected
procedure _Refresh;
procedure Execute; override;
end;

{ ------------------------------ tMyThread ------------------------------- }

procedure tMyThread._Refresh;
begin
// VCL - изменения
end;

procedure tMyThread.Execute;
begin
FreeOnTerminate := true;
// Твои длительные действия
Synchronize(_Refresh)
end;

А вообще TThread + F1 и в Demos"ах пример есть

Форма тормозит... :( Найти похожие ветки