Подскажите, пожалуйста: можно ли из одной процедуры, например при нажатии кнопки, прервать выполнение другой процедуры (к примеру копирование файлов в цикле).
Если можно, дайте хоть какой-нибудь намек, как...Please.

А простой вариант, чтобы процедура, которая должна прерваться проверяла какую-нить bool переменную и, если что, то exit не прокатит? В обработчике нажатия, например меняешь эту самую переменную...
Только, наверное в обрабатываемой будет нелишним писать Application.ProcessMessage;
Как всегда, желаю удачи с проектом

Используй потоки: копирование файлов осуществляет один поток, а обработку нажатия клавиши-другой. Поток можно приостановить, изменить приоритет или уничтожить. Чтобы не изобретать велосипед,IMHO для нескольких параллельно выполняемых операций потоки - самое оптимальное решение.

по установке глобального флага.

Burich-Caeser , я поискал в форуме по потокам и нашел твои ссылочки, они мне пригодились, спасибо !
Также спасибо Perchilla и Song ; Сечас набрал кучу доков, ушел разбираться. Удачи!

Slawanix
Всегда пожалуйста.

Можешь отправлять сообщения. SendMessage, PostMessage.

Цитата

Можешь отправлять сообщения. SendMessage, PostMessage.

Pegas, Спасибо, попробую воспользоваться твоим советом, но пока я уже начал делать с потоками, и тут у меня возникла проблемка(см.ниже<>если интересно).
С уважением, Slawanix.

Добавлено @ 00:42
Поммжите, пожалуйста разобраться с потоком. Сейчас объясню, в чем дело.
Вот модуль с потоком:

Код

unit Threads; interface uses  Classes; type  TScanThread = class(TThread)  private    { Private declarations }  protected    procedure Scanning;    procedure Execute; override;  end; implementation uses Search, Sync; { TScanThread } procedure TScanThread.Scanning; begin  ScannerBoss; end; procedure TScanThread.Execute; begin  Synchronize(Scanning); end; end.

Вот так я вызываю поток в главном модуле:

Код

unit Sync; interface uses ..., Threads, ...; ... type  TForm1 = class(TForm) ... public  ThrScan:TScanThread; ... при нажатии кнопки ThrScan:=TScanThread.Create(false);

Проблема такая: хочу сделать

Код

ThrScan.Suspend

или

Код

ThrScan.Terminate;

поток продолжает работать без изменений и ошибок.
если делаю:

Код

ThrScan.Destroy;

или

Код

ThrScan.Free;

прога виснет (и в диспетчере задач в NT - не отвечает).
А нужно либо приостановить поток, либо вообще грохнуть.
Примечание: функция ScannerBoss ,без ипользования потока работает номано, и я думаю, она здесь ни при чем.
Заранее очень благодарен.

Это сообщение отредактировал(а) Slawanix - 21.8.2004, 16:31

1. Не понял, зачем ты использовал Synchronized
2. Написал небольшую прогу (даже самому понравилось). Четыре кнопки
(Execute, Suspend, Resume, Terminate) и ProgressBar

Код

type TScanThread = class(TThread) private  { Private declarations } protected  procedure Execute; override; end; var  ThrScan:TScanThread; procedure TScanThread.Execute; begin while(TRUE) do begin  if Form1.ProgressBar1.Position <> Form1.ProgressBar1.Max then    Form1.ProgressBar1.StepIt  else    Form1.ProgressBar1.Position := Form1.ProgressBar1.Min;  sleep(100);  if Terminated then    break; end; end; procedure TForm1.ExecuteClick(Sender: TObject); begin  ThrScan:=TScanThread.Create(false); end; procedure TForm1.SuspendClick(Sender: TObject); begin  ThrScan.Suspend(); end; procedure TForm1.ResumeClick(Sender: TObject); begin  ThrScan.Resume; end; procedure TForm1.TerminateClick(Sender: TObject); begin  ThrScan.Terminate; // данный метод устанавливает свойство Terminated:=TRUE и // подраумевает, что метод Execute проверяет это свойство и как только // это свойство TRUE, поток должен завершить выполнение (нет // никакого принудительного завершения) end;

Цитата

Не понял, зачем ты использовал Synchronized

Может для управления вимзуальными компонентами...

Как я понял, что гораздо лучше и культурней общаться с формой и компонентами через синхронизацию. (анти-примером в этом случае может служить код youri, тока без обид )
Добавлено @ 21:34
И ещё: для простейшего способа гарантированно освободить объект потока - установить в начале Execute свойства FreeOnTerminate равным True.

Цитата

Не понял, зачем ты использовал Synchronized

Да, как и сказал Pakshin A. S. , в процедуре ScannerBoss действительно доступ к объектам VCL идет.

Цитата

установить в начале Execute свойства FreeOnTerminate равным True.

Это я пробовал - результат такой же, только вот в ScannerBoss у меня вызывается еще пара процедур, может быть дело в этом и нужно в поток помещать чистую процедуру без вложенных... надо попробовать, если получиться расскажу.
Спасибо. Но пока еще тема не закрыта.

FreeOnTerminate - это так, для культуры. Можно и без этого обходиться, как в примере youri .

Цитата

Написал небольшую прогу (даже самому понравилось)

Мне тоже понравилось, простенько и достаточно наглядно работает. Только я одного не понял, у меня так пока и не получилось, таким же образом заправить свою процедуру, в которой идет вызов других, описанных в других модулях, напрашивается предположение, что придется все описывать в методе Execute; муторно, но наверное так и сделаю.

С уважением, Slawanix

Нашел вариант как создать поток без TThread - при помощи API функций
(BeginThread;SuspendThread;ResumeThread;TerminateThread), но я не знаю, можно ли
как-то синхронизировать АПИшные потоки (это необходимо для доступа к компонентам VCL), типа как
это делается в Дэлфе(Synchronize)?
Помогите,если кто может, пожалуйста.
С уважением, Slawanix.