Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];

Вниз

Помогите разобраться с потоком   Найти похожие ветки 

 
Man   (2003-04-08 17:42) [0]

Привет всем!Такая вот проблемка:в программе использую поток, опис.в классе,произв. от TThread.В проге 3 пимпочки - запуск,пауза,остановка потока. Процедура остановки потока такова:

With MyThread Do Begin
If Suspended Then Resume;
Terminate;
WaitFor;
FreeAndNil(MyThread);
End;

Всё ли здесь написано корректно:
отрабатывает иногда корректно,иногда в цикле WaitFor зависает(внутри Execute делается проверка на Terminated в цикле).
Зараннее всем большое спасибо.


 
panov   (2003-04-08 18:27) [1]

А кода самого потока нет?

constructor Thread.Create;
begin
inherited Create(True);
FreeOnterminate := True;
...
Resume;
end;

...

with MyThread do begin
if Suspended then Resume;
Terminate;
End;

MyThread.WaitFor;
MyThread := nil;


 
panov   (2003-04-08 18:28) [2]

WaitFor можно и в блок with внести...


 
Man   (2003-04-08 19:52) [3]

Если ставить FreeOnterminate := True,Тогда при обращении к WaitFor объект м.б. уже разрушен - возникнет ошибка.
>panov © (08.04.03 18:28)-не понял?


 
panov   (2003-04-08 20:44) [4]

Тут непонятно, зачем тебе WaitFor?
Тебе код возврата нужен?

Для потока определи OnTerminate в основном потоке и там делай все, что хочешь...



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

Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
1-67340
nejest
2003-04-08 12:35
2003.04.21
Окно выбора каталога с возможностью создания каталогов


1-67316
anbezr
2003-04-08 10:26
2003.04.21
что делать с дин. массивом про закрытии приложения


14-67550
Юрий Федоров
2003-03-31 14:00
2003.04.21
Вакансия в Москве


1-67381
OlegM
2003-04-10 09:57
2003.04.21
Как любой файл просмотреть в hex


3-67122
Z_man7777
2003-04-02 11:53
2003.04.21
Есть поблемка связаная с выборкой данных из БД.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский