Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: CL | DM;

Вниз

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

 
Are you want a tea?   (2002-08-04 16:06) [0]

Моя программа при нажатии кнопки копирует файл с помощью CopyFile. Но при этом программа замораживается, пока не будет закончено копирование. Это не есть хорошо. И я создаю поток:
TCopyThread=class(TThread)
private
fOldFile,fNewFile:String;
public
constructor Create(OldFile,NewFile:String);
procedure Execute; override;
end;

constructor TCopyThread.Create(OldFile, NewFile: String);
begin
fOldFile:=OldFile;
fNewFile:=NewFile;
inherited Create(true);
end;

procedure TCopyThread.Execute;
begin
CopyFile(PChar(fOldFile),PChar(fNewFile),false);
end;

procedure TForm1.btnCopyClick(Sender: TObject);
begin
with TCopyThread.Create(edtOldFile.Text,edtNewFile.Text) do
Execute
end;

При этом программа всё равно замораживается. Но если inherited Create(true) заменить на inherited Create(false) а в btnCopyClick написать TCopyThread.Create(edtOldFile.Text,edtNewFile.Text), то всё работает как надо. Почему так происходит?


 
DiamondShark ©   (2002-08-04 16:18) [1]

Execute не надо вызывать


 
TTCustomDelphiMaster ©   (2002-08-04 16:45) [2]

Are you want a tea? (04.08.02 16:06)
with TCopyThread.Create(edtOldFile.Text,edtNewFile.Text) do
Execute // Заменить на Resume

Ошибка в том что вы вызываете метод Execute не через новый поток, а в главном потоке (как обычный метод).


 
Are you want a tea?   (2002-08-04 20:45) [3]


> TTCustomDelphiMaster © (04.08.02 16:45)

Спасибо, понял.



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

Текущий архив: 2002.08.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-48080
evgeg
2002-08-04 11:05
2002.08.15
Проблема с Notification


1-48076
Дмитрий Иванов
2002-08-05 02:04
2002.08.15
проблема с созданием компонет в run-time е


8-48212
mari_ra
2002-04-11 13:22
2002.08.15
Как повернуть мета-файл без использования SetWorldTransform?


1-48023
SPeller
2002-08-03 08:29
2002.08.15
Вопрос о константах


1-48113
malamba
2002-08-05 09:43
2002.08.15
Как уведомить клиентов об изменении базы