[ProperDoze]

Для своей программы хочу использовать потоки. Т.к. работаю с визуальными компонентами, то приходиться использовать метод Synchronize. Программа работает нормально, НО Delphi, почемуто подчеркивает Synchronize красным и пишет

Undeclared identifier 'Synchronize' at line 39

Вопросы:
1. С чем это может быть связано?
2. Как это исправить?
3. Почему заведомо описанный метод отмечается как не описанный?

[ProperDoze]

Как запустить поток повторно?

[lmikle]

Если он закончился, то только повторно его создав.

[ProperDoze]

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

Если он закончился, то только повторно его создав.

С этим давно разобрался, спасибо!

А как быть с Synchronize?

Мне кажется, что мой поток не работает, как нужно. Потому, что без Application.ProcessMessages Форму не прорисовывает. Что делать?

[lmikle]

Как я могу тебе сказать, что ты делаешь не так, если я не вижу что и как ты делаешь? Код приведи, бум смотреть.

[ProperDoze]

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

Как я могу тебе сказать, что ты делаешь не так, если я не вижу что и как ты делаешь? Код приведи, бум смотреть.

Ок.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

unit Thread_Chart_repaint;   interface   uses   Classes;   type   Repaint_Charts = class(TThread)   private     { Private declarations }   protected     procedure Execute; override;   public     Processing: boolean;   end;   implementation   uses converter; { 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 Repaint_Charts.UpdateCaption;     begin       Form1.Caption := 'Updated in a thread';     end; }   { Repaint_Charts }   procedure Repaint_Charts.Execute; begin   //while not Terminated do   //while Processing do   <font color="Red">Synchronize</font>(Charts_panel.Paint_charts); end;   end.

Synchronize подчеркнуто красным, но код исполняется.

[lmikle]

Скорее всего, она предупреждает тебя, что потенциально возможны проблемы, т.к. Synchronize в принципе предназначена для выполнения методов потока. А вот уже из метода потока, можно спокойно "дергать" что угодно.

[ProperDoze]

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

Скорее всего, она предупреждает тебя, что потенциально возможны проблемы, т.к. Synchronize в принципе предназначена для выполнения методов потока. А вот уже из метода потока, можно спокойно "дергать" что угодно.

Тогда, почему она пишет "Undeclared identifier" а не какой нибудь варнинг??!

А также, поток работает, на мой взгляд, не так, как надо. Это выражается в том, что без потока, все работает аналогично!!!! Т.е. без применения Application.ProcessMessages события формы не "ловятся" и стало быть форма "сама" не прорисовывается.

З.Ы. Например, в даунлоад-мастере когда окно с загрузкой двигаешь по экрану, загрузка не приостанавливается, а это, на мой взгляд, говорит о том, что там используются как минимум потоки и никакого Application.ProcessMessages, т.к. он такого эффекта не дает.

[ProperDoze]

Кто нибудь может привести в пример код простой программы, где потоки нормально работают?!

[Drozh]

Вычисление числа ПИ

Главная форма

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

<b>unit</b> uMain;   <b>interface</b>   <b>uses</b>   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls,   uPiThread;   <b>type</b>   TfmMain = <b>class</b>(TForm)     cbCalculate: TCheckBox;     Label1: TLabel;     Label2: TLabel;     laBuiltIn: TLabel;     laValue: TLabel;     laIterNum: TLabel;     <b>procedure</b> FormCreate(Sender: TObject);     <b>procedure</b> cbCalculateClick(Sender: TObject);   <b>private</b>     { Private declarations }   <b>public</b>     { Public declarations }    PiThread : TPiThread;    <b>procedure</b> UpdatePi;   <b>end</b>;   <b>var</b>   fmMain: TfmMain;   <b>implementation</b>   {$R *.dfm}   <b>procedure</b> TfmMain.UpdatePi; <b>begin</b>    <b>if</b> IsIconic( Application.Handle ) <b>then</b>     Exit;   LaValue.Caption := FloatToStrF( GlobalPi, ffFixed, 18, 18 );   laIterNum.Caption := IntToStr( GlobalCounter ) + ' iterations'; <b>end</b>;   <b>procedure</b> TfmMain.FormCreate(Sender: TObject); <b>begin</b>  laBuiltIn.Caption := FloatToStrF( Pi, ffFixed, 18, 18 ); <b>end</b>;   <b>procedure</b> TfmMain.cbCalculateClick(Sender: TObject); <b>begin</b>   <b>if</b> cbCalculate.Checked <b>then</b>   <b>begin</b>    PiThread := TPiThread.Create( True );    PiThread.FreeOnTerminate := True;    PiThread.Priority := tpLower;    PiThread.Resume;   <b>end</b>  <b>else</b>   <b>begin</b>    <b>if</b> Assigned( PiThread ) <b>then</b> PiThread.Terminate;   <b>end</b>;   <b>end</b>;   <b>end</b>.

Поток

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

<b>unit</b> uPiThread;   <b>interface</b>   <b>uses</b>   Classes;   <b>type</b>   TPiThread = class(TThread)   <b>private</b>     { Private declarations }   <b>protected</b>     procedure Execute; override;   <b>end</b>;    <b>var</b>  GlobalPi : Extended;  GlobalCounter : Int64;   <b>implementation</b>   <b>uses</b> uMain;   <b>const</b>  UpdatePeriod = 999999;   <b>procedure</b> TPiThread.Execute; <b>var</b> sign : Integer;   PiValue, PrevValue : Extended;   i : Int64; <b>begin</b>  PiValue := 4;  sign := -1;  i := 0;  <b>repeat</b>   Inc(i);   PrevValue := PiValue;   PiValue := PiValue + sign * 4 / (2*i+1);   sign := -sign;   <b>if</b> i mod UpdatePeriod = 0 <b>then</b>    <b>begin</b>     GlobalPi := PiValue;     GlobalCounter := i;     Synchronize( fmMain.UpdatePi );    <b>end</b>;  <b>until</b> Terminated <b>or</b>  (Abs(PiValue - PrevValue)<1E-19) ; <b>end</b>;   <b>end</b>.