Потоки

[_PROGRAMM_]

Приветствую всех форумчан. Тут на днях Stilet ответил на мой вопрос и предложил использовать потоки при написании приложений. Я решил поступить по-своему. Лег спать и не смог уснуть, хотя через большой промежуток времени заснул. Все это время мне не давала спать мысль "Как использовать потоки?" Сегодня пришел со школы и полез в Google. Он мне показал интересную статью. http://www.realcoding.net/article/view/101 . Вначале я понимал все, что делаю, но потом споткнулся об

Так а теперь вернемся к нашей возможной ошибки (Пункт1) и ты поймешь зачем мы создавали 2 «лишние» процедуры. Чтобы не возникало подобных ошибок(читай Пункт1) в классе Thread определен метод гарантированно-безопасного выполнения таких методов. Этот метод отвечает за синхронизацию всех потоков. И в качестве параметра получает только название метода. Вот именно для этого нам и понадобилось создавать 2 процедуры. Вот описание метода по синхронизации:

Type TThreadMethod= procedure of object;
Procedure Synchronize(Method : TThreadMethod);

.
Я не могу понять, куда это "впихивать". Естественно в раздел Type. Только не ясно в Форму или "пустой файл", как говорится в статье

TThreadMethod= procedure of object;

- Это множество вроде бы.

 Procedure Synchronize(Method : TThreadMethod);

-Это процедура.
Описанные выше строки для того, чтобы вы поправили меня, если я не так понимаю их значения.
Опишу весь вопрос. Куда вставлять вышеприведенные строки и правильно я ли я понимаю значение строк?
Заранее спасибо.

[b2soft]

Здравствуйте. Насколько я знаю - поток создается отдельным юнитом а не вписывается в форму, но если я вру - пусть более знающие поправят меня. А процедура Synchronize - отвечает за сихронизацию дополнительного потока и основной программы, тоесть например. Счетчик до миллиона - в отдельном потоке, а выводит данные в главное окно, тогда вызывается Synchronize чтобы сосинхронизировать потоки. Почитайте книгу М.Фленова "Библия Delphi", там есть оаздел потоки. Очень ясно и интересно написано как что и куда.

[Stilet]

Насколько я знаю - поток создается отдельным юнитом а не вписывается в форму, но если я вру - пусть более знающие поправят меня.

Поправляю. Поток может быть описан где угодно в любом модуле.
Например в модуле самой формы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  t=class(TThread)
   procedure Execute; override;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var   tt:t;
  Form1: TForm1;

implementation

{$R *.dfm}

{ t }

procedure t.Execute;
begin
  while true do begin form1.Caption:=TimeToStr(time);sleep(100);end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  tt:=t.Create(false);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 tt.Terminate;
end;

end.

Я уж не говорю о Win API реализации

Или в отдельном модуле чтоб не загаживать модуль формы, этим занимается как раз мастер создания проекта в Делфи, предлагая модуль потока.

Это множество вроде бы.

нет. Это процедура, которая должна быть методом объекта.
Если описан тип procedure of object; то переменной (полю) этого типа может быть присвоен только метод класса (объекта).

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TThreadMethod= procedure of object;


  t=class(TThread)
   public
   pp:TThreadMethod;
   procedure Execute; override;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
   procedure ok;
    { Private declarations }
  public
    { Public declarations }
  end;

var   tt:t;
  Form1: TForm1;

implementation

{$R *.dfm}

{ t }

procedure t.Execute;
begin
  while true do begin if assigned(pp) then pp; sleep(100);end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  tt:=t.Create(true);
  tt.pp:=ok;
  tt.Resume;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 tt.Terminate;
end;

procedure TForm1.ok;
begin
   Caption:=TimeToStr(time);
end;

end.

Здесь ok - метод класса. Если бы я описал просто процедуру ок то ее невозможно было бы присвоить полю потока с именем pp, потому что ее тип "процедура обьекта"

Насчет Synchronize - создай мастером Делфи файл модуль потока там в комментах описан (должен быть) пример как ее пользовать

[_PROGRAMM_]

while true do begin if assigned(pp) then pp

Что обозначает эта строка?

Насчет Synchronize - создай мастером Делфи файл модуль потока

Это вот так

Ну а теперь приступим к тому собственно из-за чего мы здесь собрались то есть к созданию потока. Кликай File->New->Thread Object.

В появившемся диалоговом окне названия класса укажем TMyThread. Этот класс будет наследником класса потока TThread. После это возникает файл с пустым описанием этого класса.

?
И там в коментариях посмотреть?

Почитайте книгу М.Фленова "Библия Delphi", там есть раздел потоки.

Я читал (Правда первое издание), там он говорит, что позже с Вами разберем принцип их работы.
Добавил 17,24
Создал юнит и там вот такое

{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 TMyThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end;}

Это оно? Что-то я перевода не пойму
P.S. уже раз 8 редактировал.

[_PROGRAMM_]

Type TThreadMethod= procedure of object;
 Procedure Synchronize(Method : TThreadMethod);

Это вообще вводить нужно? Или код который приведен, объясняет построение класса Thread? Как объявлять и что? Я что-то недопонял.

[Gambler]

А ты проверь. Например рисуй что нибудь на форме из потока. Сначала просто (заработает, но тормознет со временем) и с помощью синхронизации (будет все красиво)

Буду дома - кину примерчик где очень наглядно видно разницу и принципы.

[_PROGRAMM_]

Например рисуй что нибудь на форме из потока

Вот меня это и интересует. Как рисовать или выполнять другие действия из потока? Я оформить код не могу.

[_PROGRAMM_]

Так. Как выполнять действия из потока я понял, а как, создав отдельный Unit, Синхронизировать методом Synchronize непойму.
Создаю Unit и процедуру под именем f

  Tnew = class(TThread)
  procedure f;
  private
...
procedure Tnew.f;
begin
Form1.Caption:='Привет!. Я поток из Unit2';
end;

.
Потом пытаюсь выполнить действия

procedure Tnew.Execute;
begin
  { Place thread code here }
Synchronize(f);
end;

Delphi пишет, что не знает Form1

[Gambler]

так модуль другой. Припиши uses Unit1;

[_PROGRAMM_]

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

так модуль другой. Припиши uses Unit1;

Я прописал в implementation. Спасибо