Delphi Support

ты подключил формы в uses?

 

До этого нет, щас подключили и все норм)

 

Где здесь ошибка? Constructor TNewTread.Create(CreateSuSpended: boolean);

 

Constructor TNewThread.Create(CreateSuSpended: boolean);

 

Тут нету ошибки, думаю тебе надо почитать для чего нужен конструктор :) Его в код не вставляют. Если своими словами, конструктор показывает, как можно использовать ту или иную процедуру. В данном случае конструктор потока, можно сделать как potok1.create и поток запустится сразу же, ну или создать, но не запускать potok1.create(true); и тогда можно передать потоку параметры, например: приоритет, самоуничтожение. Что бы поток начал работу сразу potok1.create(false); В скобках можно и не указывать, это визуально лучше будет восприниматься, если код большой, найти проще будет.

 

Ребята, снова нужна ваша помощь. У меня в проге поток ни как не хочет запускаться ( я точно знаю, что он не запускается ). Ошибок нет, нажимаю на кнопку "старт", у себя в проге, и всё, тишина. Что это может быть ? И какой кусок кода, от проги кинуть, чтоб вы могли сказать, что за ошибка ?

 

код кнопки старт

 

Вот кнопка старт:

procedure TForm1.Button2Click(Sender: TObject);
var
MAIL:TMAIL;
begin
case ComboBox1.ItemIndex of
0: begin
if BASE.Count >0 then
begin
MAIL := TMAIL.Create(true);
MAIL.FreeOnTerminate:=true;
MAIL.Priority:=tpLower;
end;
end;
1: begin

end;
2: begin

end;
end;
end;

У меня там комбо бокс, чтоб домен почты выбирать. Пока, только 1 замутил но и она не работает. Кста. может это из-за комбо бокс-а ?

 

У тебя выполняющий поток, приоритет должен быть не ниже нормального. Низкий ставят на VLC.
А на счёт темы, поток ты остановил, параметры передал, но не запустил MAIL.resum; ставь

 

Норм тема!есть ряд вопросов!

 

задавай

 

Если ты походишь по его профилю, то убедишься что это просто был набитый пост. Так же как и я.

 

Подарок, как сделать чтобы при нажатии на кнопку "Стоп" весь процесс останавливался?