Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Не работает простейшая прога с потоками...


Автор: iPlay 8.10.2010, 21:26
Собственно не работает простейшая прога, не пойму почему???
Код

unit unit1;

interface

uses
windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls;

type
  tform1 = class(tform)
  memo1: tmemo;
  button1: tbutton;
procedure button1click(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;

  tnew = class(tthread)
  private
    s: string;
    procedure addstr;
    protected
    procedure execute; override;
  end;

var
  form1: tform1;
  new1, new2: tnew;

implementation

{$r *.dfm}

procedure tform1.button1click(sender: tobject);
begin
  new1 := tnew.create(true);
  new1.freeonterminate := true;
  new1.s := '1 thread';
  new1.priority := tplowest;
  new2 := tnew.create(true);
  new2.freeonterminate := true;
  new2.s := '2 thread';
  new2.priority := tptimecritical;
  new1.resume;
  new2.resume;
end;

{ tnew }
procedure tnew.addstr;
begin
  form1.memo1.lines.add(s);
  sleep(2);
  form1.memo1.lines.add(s);
  sleep(2);
  form1.memo1.lines.add(s);
  sleep(2);
  form1.memo1.lines.add(s);
  sleep(2);
  form1.memo1.lines.add(s);
end;

procedure tnew.execute;
begin
  synchronize(addstr); // Вызов метода с синхронизацией
  //addstr; // Вызов метода без синхронизации
end;

end.

Автор: iPlay 8.10.2010, 22:35
Народ, реально уже голову разбил  smile  В чем трабл может быть? smile 

Автор: ~FoX~ 9.10.2010, 08:05
iPlay, А что не работает то? 

Автор: Dom 9.10.2010, 14:32
И как предполагается он должен работать? Поскольку смысла код по большому счету не имеет.

Автор: xkor 9.10.2010, 23:23
iPlay, и юзать Sleep в основном потоке оконного приложения не хорошо)
смею предположить что вы хотите чтоб ваш код был таким:
Код

unit unit1;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls;
type
  tform1 = class(tform)
  memo1: tmemo;
  button1: tbutton;
procedure button1click(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;
  tnew = class(tthread)
  private
    s: string;
    procedure addstr;
    protected
    procedure execute; override;
  end;
var
  form1: tform1;
  new1, new2: tnew;
implementation
{$r *.dfm}
procedure tform1.button1click(sender: tobject);
begin
  new1 := tnew.create(true);
  new1.freeonterminate := true;
  new1.s := '1 thread';
  new1.priority := tplowest;
  new2 := tnew.create(true);
  new2.freeonterminate := true;
  new2.s := '2 thread';
  new2.priority := tptimecritical;
  new1.resume;
  new2.resume;
end;
{ tnew }
procedure tnew.addstr;
begin
  form1.memo1.lines.add(s);
end;
procedure tnew.execute;
begin
  synchronize(addstr); // Вызов метода с синхронизацией
  sleep(2);
  synchronize(addstr); // Вызов метода с синхронизацией
  sleep(2);
  synchronize(addstr); // Вызов метода с синхронизацией
  sleep(2);
  synchronize(addstr); // Вызов метода с синхронизацией
  sleep(2);
  synchronize(addstr); // Вызов метода с синхронизацией
  //addstr; // Вызов метода без синхронизации
end;
end.

и что вы слабо представляете что такое и для чего надо использовать synchronize...

Автор: iPlay 10.10.2010, 22:05
Проблема была в том что потоки, просто не выполнялись!!!! Код взял в инете smile)) Кстати да слабо представляю что такое и для чего надо использовать synchronize... как с WinAPI работать отлично представляю, а тут как-то интересно smile))

Еще вопрос можно, потоки заработали, интересно как синхронизировать с помощью критических секций? 
Есть код первый поток должен сгенить число, а второй возьмет ну например синус от него.
Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  tnew = class(tthread)
 // procedure my;
  private
    tmp:real;
    name:string;
    protected
    procedure execute; override;
  end;

var
  Form1: TForm1;
  cs,cs2: tcriticalsection;
  new1, new2: tnew;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  new1 := tnew.create(true);
  new1.freeonterminate := true;
  new1.priority := tptimecritical;
  new1.name:='1st thread';


  new2 := tnew.create(true);
  new2.freeonterminate := true;
  new2.priority:=tplowest;
  new2.name:='2st thread';

  new1.resume;
  new2.resume;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Ñîçäàåì ÊÑ
  cs := tcriticalsection.create;
  cs2:= tcriticalsection.create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 // Óäàëÿåì
  cs.free;
  cs2.Free;
end;
   
procedure tnew.execute;
begin

     randomize;
  Form1.Memo1.Lines.Add(name);
   cs.enter;
      tmp:=random(20);
      Form1.Edit1.Text:=FloatToStr(tmp);
   cs.leave;
   sleep(2000);
   cs2.enter;
      tmp:=sin(tmp);
      Form1.Edit2.Text:=FloatToStr(tmp);
   cs2.leave;
end;
end.

Автор: Dom 11.10.2010, 01:21
Пару подсказок:
1. Нельзя обращаться к VCL компонентам из кода потока.
2. Если очень хочется, то можно, но только через процедуру Synchronize, которая выполняется в контексте главного потока.

А для ознакомления с потоками тут есть отличная статья - http://forum.vingrad.ru/forum/topic-60076.html

Автор: iPlay 11.10.2010, 08:58
То есть насколько я понял, прошлый код с критическими секциями
Код

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,syncobjs, Math;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  tnew = class(tthread)
 // procedure my;
  private
    tmp:real;
    name:string;
    protected
    procedure execute; override;
  end;
var
  Form1: TForm1;
  cs,cs2: tcriticalsection;
  new1, new2: tnew;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  new1 := tnew.create(true);
  new1.freeonterminate := true;
  new1.priority := tptimecritical;
  new1.name:='1st thread';
  new2 := tnew.create(true);
  new2.freeonterminate := true;
  new2.priority:=tplowest;
  new2.name:='2st thread';
  new1.resume;
  new2.resume;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  cs := tcriticalsection.create;
  cs2:= tcriticalsection.create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
  cs.free;
  cs2.Free;
end;
   
procedure tnew.execute;
begin
     randomize;
  Form1.Memo1.Lines.Add(name);
   cs.enter;
      tmp:=random(20);
      Form1.Edit1.Text:=FloatToStr(tmp);
   cs.leave;
   sleep(2000);
   cs2.enter;
      tmp:=sin(tmp);
      Form1.Edit2.Text:=FloatToStr(tmp);
   cs2.leave;
end;
end.

 неважно, какой поток захватит выполнение, поскольку я ограничил критическими секциями ресурс то они полюбому параллельно не выполнятся. Тогда вопрос, можно дополнять критические секции функцией synchronize();????

Автор: cat512 11.10.2010, 09:16
Цитата(Dom @ 11.10.2010,  01:21)
Пару подсказок:
1. Нельзя обращаться к VCL компонентам из кода потока.
2. Если очень хочется, то можно, но только через процедуру Synchronize, которая выполняется в контексте главного потока.

А для ознакомления с потоками тут есть отличная статья - http://forum.vingrad.ru/forum/topic-60076.html

Не вводите людей в заблуждение!
А кто запрещает???
Код

// выполняется в контексте первого потока
proc1
begin
  Lock;
  try
    Memo1.Lines. add(('somtfing');
  finally
    unlock;
  end;
end;
// выполняется в контексте второго потока
proc2
begin
  Lock;
  try
    Memo1.Lines. add(('somtfing');
  finally
    unlock;
  end;

end;

Vcl-компонент? - ДА
Обращение из кода потоков? - ДА
Очень хочется? - да smile, но не использую synchronize
Цитата

Тогда вопрос, можно дополнять критические секции функцией synchronize();????

Не надо ничего дополнять, используй либо секции либо synchronize. 

Автор: iPlay 11.10.2010, 09:50
То есть правильная реализация прошлой программы такова???
Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  tnew = class(tthread)
  procedure first;
  procedure second;
  private
    tmp:real;
    name:string;
    protected
    procedure execute; override;
  end;

var
  Form1: TForm1;
  cs,cs2: tcriticalsection;
  new1, new2: tnew;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
new1 := tnew.create(true);
  new1.freeonterminate := true;
  new1.priority := tptimecritical;
  new1.name:='1st thread';

  new2 := tnew.create(true);
  new2.freeonterminate := true;
  new2.priority:=tplowest;
  new2.name:='2st thread';

  new1.resume;
  new2.resume;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  cs := tcriticalsection.create;
  cs2:= tcriticalsection.create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  cs.free;
  cs2.free;
end;

procedure tnew.first;
begin
   randomize;
   form1.memo1.lines.add(name);
   cs.enter;
      tmp:=random(20);
      form1.edit1.text:=floattostr(tmp);
   cs.leave;
end;

procedure tnew.second;
begin
  cs2.enter;
     tmp:=sin(tmp);
     form1.edit2.text:=floattostr(tmp);
  cs2.leave;
end;

procedure tnew.execute;
begin
  first;
  sleep(2000);
  second;
end;
end.

Просто я когда вот так сделал,  все равно захватывает 2й поток иногда первее??? Чето я не пойму smile  Можете подсказать конкретно на этом примере?

Автор: iPlay 11.10.2010, 10:42
Собственно просто, когда я работал с WinAPI там все четко, создавался поток в него передавался адрес функции которая обрабатывает данный поток, а реализацию писал в этой функции.

Тут как-то интересно, функция tthread_name.execute выполняется и первым и вторым потоком, не могу понять что если мне нужно чтобы один поток выполнял одно а другой другое...??? Я просто скорее всего чего то недопонимаю.... А пример с критическими секциями, как раз таков что нужно чтобы один поток делал одно а другой другое.

Автор: RomanEEP 11.10.2010, 11:01
Цитата(cat512 @  11.10.2010,  09:16 Найти цитируемый пост)
Не вводите людей в заблуждение!А кто запрещает???

Запрещает архитектура VCL, которая однопоточна. Например во время добавления строки в мемо может пересоздаться Handle memo из-за изменения системных настроек или действий в основном потоке. Про другие компоненты я вообще молчу. Результат работы такой предсказуем... правда не для конечного пользователя.

Автор: cat512 11.10.2010, 11:11
Цитата

Можете подсказать конкретно на этом примере?

Я же показал пример выше! В методах Lock, Unlock - надо просто вызывать Enter Leave - соответственно. В чём проблема?
Зачем 2 критические секции????????????????????????????????????????????????????????????????????
Толку от них как от козла молока! 
Цитата

Собственно просто, когда я работал с WinAPI там все четко, создавался поток в него передавался адрес функции которая обрабатывает данный поток, а реализацию писал в этой функции

С классом TThread тоже самое. Функцию. которую ты передавал в winapi, в классе TThread наз. Execute
Цитата

Тут как-то интересно, функция tthread_name.execute выполняется и первым и вторым потоком, не могу понять что если мне нужно чтобы один поток выполнял одно а другой другое...??? Я просто скорее всего чего то недопонимаю.... А пример с критическими секциями, как раз таков что нужно чтобы один поток делал одно а другой другое.

Создай либо два разных класса, либо 2 разных функции, и в зависимости от параметра вызывай их в Execute

Добавлено @ 11:24
2RomanEEP
Цитата

Например во время добавления строки в мемо может пересоздаться Handle memo из-за изменения системных настроек или действий в основном потоке

Хай себе меняется! Каким образом мне это навредит, если я использую механизмы синхронизации???
Если "нож" острый, это совсем не значит, что его нельзя использовать осторожно.

Автор: iPlay 11.10.2010, 11:25
Я написал, две отдельных функции, а в зависимости от какого параметра их запускать?

Автор: cat512 11.10.2010, 11:40
Цитата(iPlay @ 11.10.2010,  11:25)
Я написал, две отдельных функции, а в зависимости от какого параметра их запускать?

Который собственно, ты будешь определять, в зависимости от того что надо. (Либо в конструкторе либо через переменную)

Автор: iPlay 11.10.2010, 11:52
Только вот интересно, почему  даже когда второму потоку сделал приоритет выше, все равно первый вызывается первым?
Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  tnew1 = class(tthread)
  private
    name:string;
    protected
    procedure execute; override;
  end;

  tnew2 = class(tthread)
  private
    name:string;
    protected
    procedure execute; override;
  end;

var
  Form1: TForm1;
  cs: tcriticalsection;
  new1: tnew1;
  new2: tnew2;
  result:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  new1 := tnew1.create(true);
  new1.freeonterminate := true;
  new1.priority := tptimecritical;
  //new1.priority:=tplowest;
  new1.name:='1st thread';

  new2 := tnew2.create(true);
  new2.freeonterminate := true;
  new2.priority:=tplowest;
  //new2.priority := tptimecritical;
  new2.name:='2nd thread';

  new1.resume;
  new2.resume;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  cs := tcriticalsection.create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  cs.free;
end;

procedure tnew1.execute;
begin
  form1.memo1.lines.add(name);
  randomize;
  cs.enter;
    result:=random(20);
    form1.edit1.text:=floattostr(result);
  cs.leave;
end;

procedure tnew2.execute;
begin
  sleep(2000);
  form1.memo1.lines.add(name);
  cs.enter;
    result:=sin(result);
    form1.edit2.text:=floattostr(result);
  cs.leave;
end;
end.


Добавлено @ 11:54
Кстати спасибо, cat512, стало намного понятнее... Сейчас только вот с приоритетами разобраться.

Автор: iPlay 11.10.2010, 13:25
Просто я ограничил доступ критическими секциями к общей переменной result и установил приоритеты, этого недостаточно я так понял для надежной синхронизации? 

Сейчас перечитал еще раз теорию, вроде все сделал правильно, но что-то все равно не так, от критических секций толку никакого...

Автор: iPlay 11.10.2010, 15:11
Я проплужил smile)) работало все нормально, а вот вывод в memo smile))
Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  tnew1 = class(tthread)
  private
    name:string;
    protected
    procedure execute; override;
  end;

  tnew2 = class(tthread)
  private
    name:string;
    protected
    procedure execute; override;
  end;

var
  Form1: TForm1;
  cs,cs2: tcriticalsection;
  new1: tnew1;
  new2: tnew2;
  result:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  new1 := tnew1.create(true);
  new1.freeonterminate := true;
  //new1.priority := tptimecritical;
  new1.priority:=tplowest;
  new1.name:='1st thread';

  new2 := tnew2.create(true);
  new2.freeonterminate := true;
  //new2.priority:=tplowest;
  new2.priority := tptimecritical;
  new2.name:='2nd thread';

  new1.resume;
  new2.resume;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  cs := tcriticalsection.create;
  cs2 := tcriticalsection.create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  cs.free;
end;

procedure tnew1.execute;
begin
  cs.enter;
    randomize;
    form1.memo1.lines.add(name);
    result:=random(20);
    form1.edit1.text:=floattostr(result);
  cs.leave;
end;

procedure tnew2.execute;
begin
  //sleep(2000);
  cs.enter;
    form1.memo1.lines.add(name);
    result:=sin(result);
    form1.edit2.text:=floattostr(result);
  cs.leave;
end;
end.


Большое спасибо, сat512!!!!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)