thread вешает приложение

[amaroktmb]

Заранее извиняюсь, но этот вопрос упоминался в другой моей теме в разделе сетей. Просто там этот вопрос не в тему поэтому решил повтрить его тут.

у меня проблема такого рода: при создании потока он вешает приложение. загрузка цп 100%. в чем может быть проблема. читал много инфы по потокам но ничего не нашел.
вот пример кода

unit Unit3;

interface

uses
  Classes, sysutils;

type
  mythread = class(TThread)
    name:string;
    i:longint;
    procedure showmsg1;//(i:longint);
    procedure showmsg2;//(i:longint);
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

uses unit1;
{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure mythread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ mythread }

procedure mythread.showmsg1;//(i:longint);
begin
form1.Memo1.Lines.Append(inttostr(i));
end;

procedure mythread.showmsg2;//(i:longint);
begin
form1.Memo2.Lines.Append(inttostr(i));
end;

procedure mythread.Execute;
  { Place thread code here }
begin
while not terminated do begin
  inc (i);
  if name='1' then Synchronize(showmsg1);
  if name='2' then Synchronize(showmsg2);
  if i>10000 then terminate;
    end;
end;

end.

а также часть кода из модуля Unit1

t1:=mythread.Create(false);
t1.name:='1';
t2:=mythread.Create(false);
t2.name:='2';
//Application.ProcessMessages;

[betirsolt]

а приоритет какой ставишь потоку?попробуй potok.Priority:=tplower;

[Пепел Феникса]

а собственно когда зависает то?

[amaroktmb]

Сообщение от betirsolt

а приоритет какой ставишь потоку?попробуй potok.Priority:=tplower;

ничего не меняется от приоритетов. вот сами попробуйте создать новый поток с пустым циклом while not terminated и увидите . а чтобы увидеть надо открыть диспетчер задач и посмотреть загруженность ЦП

[Пепел Феникса]

причина в методах синхронизации.

вы просто практически вклиниваетесь в основной поток.

[amaroktmb]

спасибо всем кто пытался оказать помощь решение проблемы я нашел методом проб и какой-то матери необходимо просто добавить sleep(1) в тело процедуры execute. тогда у основного потока будет необходимое ему время.

while not terminated do begin
  sleep(1);
  inc (i);
  if name='1' then Synchronize(showmsg1);
  if name='2' then Synchronize(showmsg2);
  if i>5000 then terminate;
  end;

протестировал основательно. пробовал создавать 101 такой поток и приложение не грузит процессор практически вообще

[mihali4]

А Application.ProcessMessages не захотелось попробовать?
Вместо Sleep().

[amaroktmb]

у меня класс потока описан в другом модуле. поэтому проще слипом

[Gambler]

а почему все-таки висело? Просто быстро отработал и убился.

[maxionans]

Как уже было сказано выше, прорамма подвисала из-за синхронизации потоков. Код, выполняемый через Synchronize, выполняется в главном потоке приложения, временно приостанавливая все остальные потоки. Беспрерывный вызов Synchronize не оставлял главному потоку времени на обработку оконных сообщений, чем и вызывал зависание.