Главная страница
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.017 c
1-48160
А. Тимофеев
2002-08-02 09:44
2002.08.15
Рисующий Thread


14-48291
MIg
2002-07-19 17:23
2002.08.15
отладчик на некоторые строчки не попадает........


1-48080
evgeg
2002-08-04 11:05
2002.08.15
Проблема с Notification


1-48103
Link
2002-08-05 13:20
2002.08.15
Указатель в виде песочных часов


1-48141
BAY
2002-08-01 13:46
2002.08.15
блокировка events