| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Параметр для потока

Sam Stone ©   (2006-09-02 16:38:00) 

имеем такой код:
function Q(var p:pointer):dword;
var T:PSomeStruct;//указатель на запись
begin
 T:=p;
....
//делаем какую-то работу, юзая Т
end;

procedure TForm1.Button1Click(Sender: TObject);
var T:PSomeStruct;
    id:cardinal;
begin
 New(T);
 T.Field1:=SomeValue;
 BeginThread(nil,0,@Q,@T,0,id);
end;
Процедура Button1Click завершается до того как произойдет присваивание T:=pв функции Q и вываливается AV.
Какими методами можно дождаться этого присваивания (объявление глобальной переменной не рассматриваем)? Со Sleep(0) проходит, но корректно ли это?

---

Sam Stone   (2006-09-02 23:02:00) [1]

> isasa ©   (02.09.06 19:18) [3]
</I

> объявление глобальной переменной не рассматриваем

Потому что был интересен момент именно с локальной переменной
А еще лечилось с помощью [5] :)

---

DiamondShark   (2006-09-02 20:33:00) [2]

> function Q(var p:pointer):

и var тоже

---

DiamondShark   (2006-09-02 20:32:00) [3]

> ,@T

Собаку убрать.

---

isasa   (2006-09-02 19:18:00) [4]

А продлить время жизни переменной? Например, сделать ее глобальной, или полем формы приложения(TForm1)? И не делать себе трудностей.

---

Sam Stone   (2006-09-02 16:56:00) [5]

Ясно. Спасибо.

---

Loginov Dmitry   (2006-09-02 16:44:00) [6]

> Со Sleep(0) проходит, но корректно ли это?


Не факт.

Жди, когда поток сам сообщит, что данные приняты.
Используй
SetEvent(),
WaitForSingleObject(), и т.п.

---

Наверх