VPF::Взятие значения из потока - Форум программистов

<Spawn>

Дата 27.2.2005, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

a.S.d Например, так:

Код


TStrChange = procedure (Sender: TObject; const str: string) of object;

TMyThread = class(TThread)
private
  FStrChange: TStrChange;
  FStr: string;

  procedure DoChangeStr;
  procedure SynStrChange;
...
public
  property OnStrChange: TStrChange read FStrChange write FStrChange;
...
end;

implementation

procedure TMyThread.SynStrChange;
begin
  FStrChange(Self, FStr);
end;

procedure TMyThread.DoChangeStr;
begin
  if Assigned(FStrChange) then
    Synchronize(SynStrChange);
end;

procedure TMyThread.Execute();
begin
  while ({Какое то условие})
  begin
    {Тут где то изменяешь str}
    DoChangeStr;
  end;
end;

А в главном потоке:

Код


TForm1 = class(TForm)
...
private
  procedure StrChange(Sender: TObject; const str: string);
...
end;

implementation

procedure TForm1.StrChange(Sender: TObject; const str: string);
begin
  {Вот тут можешь делать с полученым значением что хочешь}
end;

...

{Где то в программе создаешь поток}
begin
  MyThread := TMyThread.Create(True);
  MyThread.OnStrChange := StrChange;
  MyThread.Resume;
  ...
end;

Писал без Дельфи, так что могут быть оЧеПятки smile

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Dr.No_xXx

Дата 27.2.2005, 19:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет

Этот пример взят из справки!

Код


TSparkyThread = class(TThread)

    public
      procedure Execute; override;
  end;
var

  SparkyThread: TSparkyThread;

procedure TSparkyThread.Execute;

begin
  while not Terminated do
  begin
    Beep;
    Sleep(500);
  end;
end;

procedure TService1.Service1Start(Sender: TService; var Started: Boolean);

begin
  SparkyThread := TSparkyThread.Create(False);
  Started := True;
end;
procedure TService1.Service1Continue(Sender: TService; var Continued: Boolean);

begin
  SparkyThread.Resume;
  Continued := True;
end;

procedure TService1.Service1Pause(Sender: TService; var Paused: Boolean);

begin
  SparkyThread.Suspend;
  Paused := True;
end;

procedure TService1.Service1Stop(Sender: TService; var Stopped: Boolean);

begin
  SparkyThread.Terminate;
  Stopped := True;
end;

обрати внимание что после

Код


sleep(500)

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

a.S.d

Дата 27.2.2005, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 20.2.2005

Репутация: нет
Всего: 2

Если не лень, доведите кто-нибудь мой пример до рабочего состояния, а то всё выше описанное у меня не получается реализовать.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »