Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.24;
Скачать: CL | DM;

Вниз

Параметр для потока   Найти похожие ветки 

 
Sam Stone ©   (2006-09-02 16:38) [0]

имеем такой код:
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) проходит, но корректно ли это?


 
Loginov Dmitry ©   (2006-09-02 16:44) [1]

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


Не факт.

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


 
Sam Stone ©   (2006-09-02 16:56) [2]

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


 
isasa ©   (2006-09-02 19:18) [3]

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


 
DiamondShark ©   (2006-09-02 20:32) [4]


> ,@T

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


 
DiamondShark ©   (2006-09-02 20:33) [5]


> function Q(var p:pointer):

и var тоже


 
Sam Stone ©   (2006-09-02 23:02) [6]


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

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

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



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

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

Наверх




Память: 0.47 MB
Время: 0.03 c
1-1155652862
sdf13
2006-08-15 18:41
2006.09.24
немецкий текст.


15-1157311852
ramzes2
2006-09-03 23:30
2006.09.24
пропадает форма


15-1157537474
Alarm
2006-09-06 14:11
2006.09.24
CopyRight на CD


15-1157270119
Dbn
2006-09-03 11:55
2006.09.24
E 1,7e что это за числа?


1-1152698492
.ruslan
2006-07-12 14:01
2006.09.24
TCoolBar с сохранением параметров