Текущий архив: 2007.07.08;
Скачать: CL | DM;

Вниз

Обмен значениями между потоками   Найти похожие ветки 

← →
nali   (2007-05-08 12:27) [0]

В главном модуле обьявлена глобальная переменная url, в которую устанавливаю значение перед созданием потока, потом создаю поток и в методе Execute проверяю переменную url , а она почему-то пустая. Короче вот приблизительный код:

Главный модуль:


Unit Unit1;
interface
.
.
.
var
url:string;
ThreadDownload_Done:Boolean=true;

implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
  ThreadDownload_Done:=false; // поток запущен      
  url:="http://www.server.com/file.htm";
  ThreadDownload:=TThreadDownload.Create(false);
  while true do
   begin
    Application.ProcessMessages;  
     if ThreadDownload_Done  then // если поток закончен - выходим
       begin        
        break;
       end;
    sleep(100);
  end;
...
end;

end.



Модуль потока:


unit Unit_Download;
interface

type
 TThreadDownload = class(TThread)
 private
   { Private declarations }
 protected
   procedure Execute; override;
   function DownLoadFile:Boolean;    
   procedure ThreadDone(Sender: TObject);
   ...
 end;

var
ThreadDownload: TThreadDownload;

implementation

uses Unit1;

procedure TThreadDownload.Execute;
begin
 OnTerminate:=ThreadDone;
 DownLoadFile;
end;

function TThreadDownload.DownLoadFile;
// закачка файла с сервера
begin
// здесь url="" , хотя в основном потоке устанавливал значение
FreeOnTerminate := True;
result:=false;
// далее идет закачка файла
...
end;

procedure TThreadDownload.ThreadDone(Sender: TObject);
begin
 ThreadDownload_Done:=true;
end;

end.


Вопрос: Почему переменная url пустая и как обмениватся значениями между потоками ?

---

← →
Kolan ©   (2007-05-08 12:31) [1]

> while true do
>   begin
>    Application.ProcessMessages;  
>     if ThreadDownload_Done  then // если поток закончен
> — выходим
>       begin        
>        break;
>       end;
>    sleep(100);
>  end;


Даа, а зачем тебе поток тогда?

События знаешь что такое? Вот с помошью них все проблемы решаться&#133

---

← →
Ega23 ©   (2007-05-08 12:47) [2]

Капец.
Про потоко-защищённые данные что-нибудь слышал?

---

← →
Reindeer Moss Eater ©   (2007-05-08 12:52) [3]

ThreadDownload:=TThreadDownload.Create(false);

1. Вызывать конструктор надо с параметром false.
2. После создания присваивать паблик полю потока значение урл.
3. Делать потоку resume.

Либо вообще нарисовать свой конструктор с параметром url

---

← →
DVM ©   (2007-05-08 12:54) [4]

> и как обмениватся значениями между потоками?

В поток можно передать значение с конструктором, или в объекте потока сделать защищенные критическими секциями свойства. Обращаться к полям только через эти свойства как снаружи так и внитри потока.

Из потока можно передать значение с пом сообщения или Synchronize

---

← →
nali   (2007-05-08 13:06) [5]

Спасибо, попробую до запуска потока передавать значения в поток через его поля, а обратно через Synchronize.

---

← →
Reindeer Moss Eater ©   (2007-05-08 13:10) [6]

1. Вызывать конструктор надо с параметром false.

то есть наоборот с true. Иначе он сразу начнет выполняться

---

Страницы: 1 вся ветка

Текущий архив: 2007.07.08;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.014 c