В моём приложении создаётся поток класса TThread. Во время работы потока результат заносится в переменную. Как в основ ной программе можно взять значение из этой переменной?

я ламер и возможно не прав, но попробуй создать новую переменную и перепресвоить
значение:

Код

...... var a:тип(integer,string); begin a:="переменная в которую вносится значение из потока"; ...... end; или если значений несколько попробуй: ...... var b:"тип"; begin for "твоя переменная":=1 to "число в зависимости от кол-ва результатов" do begin а потом: b:="твоя переменная"["число из массива"];

надеюсь я прав
удачи!

Это сообщение отредактировал(а) Alex - 26.2.2005, 21:48

Ты не прав. Всё, что связано с потоком, описывается в другом модуле, по этому программа "не видит" этого значения.

объясни!!

Сам смотри:

Код

program Project1; {$APPTYPE CONSOLE} uses  SysUtils, unit1; var s:string; begin //............. thread:=TMyThread.Create(False); //............. //Здесь надо занести в s значение str из потока. end.

Код

unit Unit1; interface uses  Classes,windows,messages; type  TMyThread = class(TThread)  private      public    procedure Execute; override;  end; var    str:string;    thread:TMyThread; implementation procedure TMyThread.Execute; begin //......... str:={....}; //.......... end; end.

Это сообщение отредактировал(а) a.S.d - 26.2.2005, 21:05

А на каком этапе работы потока тебе это нужно сделать? Если после его отработки, то просто берешь это значение и все:

Код

ShowMessage(Unit1.str);

Это сообщение отредактировал(а) <Spawn> - 26.2.2005, 21:59

<Spawn>
Во время взятия переменной поток должен ещё работать.
Unit1.str возвращает пустую строку.

попробуй в public описать переменные

Код

public a:string;

теперь должно сработать
да еще
ты сказал что поток должен продолжать работать
так тебе нужно определенное значение или нет??

Это сообщение отредактировал(а) Dr.No_xXx - 26.2.2005, 22:32

Dr.No_xXx
Если описать в public, то в модуле потока ошибка undeclareted identifier.

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

Код

unit Unit1; interface uses  Classes,windows,messages; type  TMyThread = class(TThread)  private      public    procedure Execute; override;  end; var    str:string;    thread:TMyThread; implementation procedure TMyThread.Execute; begin //......... str:={....}; //str любое значение или определенное? //.......... end; end.

Цитата

str любое значение или определенное?

Какая разница? Какое-то значение заносится в Str, а главный поток(сама программа) должна взять из str значение.

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

1) послать сообщение(WM_USER + n) главному потоку о завершении формирования значения str, причем тут нужно либо организовать синхронизацию, либо быть увереным, что str больше не изменится:)

2)Инициировать потоком вызов синхронного события(предварительно описав его на подобии этого: TStrChange = procedure (Sender: TObject; const str: string);)

и т.д.

Это сообщение отредактировал(а) <Spawn> - 27.2.2005, 02:46

<Spawn>
У меня в потоке бесконечный цикл и str всё время меняется, так что сообщение я послать не могу, а в какой момент брать str определяет главный поток. Как можно по-другому это сделать?

1)попробуй создать массив в который будут вкладуваться все значения str но учти буфер не резиновый
2)если нужно определенное значение то пиши так:

Код

..... var s:string begin if str="что-то" then s:=str do begin .....

3)если любое то

Код

.......... randomize; .... s:=random(str);

в любом случае тебе прейдется перепресваивать значени в другую переменную что бы не потерять его

Dr.No_xXx
Похоже ты не правильно понял вопрос. Вот упрощёный код моей программы:

Код

program Project1; {$APPTYPE CONSOLE} uses  SysUtils, unit1; var s:integer; begin thread:=TMyThread.Create(False); sleep(1000); //Здесь надо занести в s значение str из потока, но всегда почему-то //заносится пустая строка end.

Код

unit Unit1; interface uses  Classes,windows,messages; type  TMyThread = class(TThread)  private      public    procedure Execute; override;  end; var    str:integer;    thread:TMyThread; implementation procedure TMyThread.Execute; begin while true do str:=str+1; end; end.

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;

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

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

Код

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)

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

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