Народ помогите разобраться с потоком CreateThread!

← →
dimonf (2002-12-14 19:46) [0]

Я создаю поток Thread и передаю в него форму:
...
var
IDThrd : Cardinal;
begin
CreateThread(nil, 0, @Onsmtp, nil, 0, IDThrd);
end;
...
function Onsmtp(IdThread: integer): integer;
begin
frMyForm.Show;
Application.ProcessMessages;
IF frSmtpVizard.OnVizard = true then
begin
TerminateThread(IdThread,0);
frSmtpVizard.Close;
Result := 0;
end;
end;

1.Как мне коректно выйти из формы при завершении функции
OnVizard?
2.Как мне из формы приостановить поток, возобновить или выйти из
потока если юзер щелкнул на кнопку "выход из формы"?

Народ, подскажите кодом, а то я не врубаюсь как это сделать :(((
Бьюсь уже второй день ПОМОГИТЕ!!!

← →
Rouse_ (2002-12-14 20:35) [1]

Текс, давай немножко сначала разьясни.

function Onsmtp
Вначале как я понял ты показываеш главную форму
frSmtpVizard.OnVizard - это какой-то переключатель функция?
Если он включен ты закрываешь форму frSmtpVizard (это же форма?)

Вопрос где ты делаешь frSmtpVizard.Show?
Второе, из какой формы корректно выйти при завершении функции?
Третье, из какой формы необходщимо приостановить поток и главное в каком месте (единственно при варианте долгой отработке функции OnVizard)?

Как я думаю, функция OnVizard выполняется долго, если нет то поток, просто завершится оставив открытыми главную и вспомогательную формы (покрайней мере судя по приведенному коду)

Жедаю успехов

← →
dimonf (2002-12-14 20:49) [2]

frSmtpVizard.Show - я делаю в главной форме, при нажатии на кнопку.
Форма frSmtpVizard - это визард для илюстрации отправки почты (типа как в The Bat).
При frSmtpVizard.OnVizard я начинаю отправку почты на SMTP сервер.
На форме frSmtpVizard у меня есть клавиша "Отмена".
Фиша в чем, мне нужно как-то завершать процес отправки и закрывать форму frSmtpVizard.
Как мне это коректно сделать?

← →
Alex Konshin (2002-12-14 23:57) [3]

Еще раз:
Не используйте CreateThreate, используйте BeginThread/EndThread.

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