Скачать: CL | DM;

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

← →
Борис К.   (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 если есть.

---

← →
Семен Сорокин ©   (2003-06-23 15:40) [3]

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"ах пример есть

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c