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

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

Как правильно передать параметр в thread [D7, Win2k]

Роман_ ©   (2002-12-14 19:47:00) 

Господа!
Никак не получается передать строку в поток, создаваемый с помощью CreateThread. Там строчка оказывается пустой. А хочется в процедуре Thread_ работать с переданным параметром str, который должен быть "1". Подскажите плз как грамотно передать параметр процедуре.

Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var ids: dword;
str1: pstring;
begin
New(str1);
str1^ := IntToStr(1);
CreateThread(nil,0,@Thread_,str1,0,ids);
Dispose(str1);
end;

procedure Thread_(str:pstring);
begin
New(str);
Form1.Memo1.Lines.Add(str^); - выводит пустую строку
Dispose(str);
end;

---

Роман_   (2002-12-15 00:46:00) [1]

Спасибо.
Особенно за объяснение про время существования переменной.

---

Alex Konshin   (2002-12-14 20:27:00) [2]

Во-первых, используй BeginThread/EndThread

Use this routine or a TThread object to spawn separate threads of execution. BeginThread spawns a new thread of execution and sets the global IsMultiThread variable, thereby making the heap thread-safe.

Во-вторых, ты передаешь указатель на область памяти, где была строка, но при выходе из твоего метода та строка освобождается, и память уже используется под что-то другое.
Если уж так нужно передать именно строку, то время жизни этой String переменной должно быть больше, чем время, когда тебе требуется эта строка. Например, переменная может быть глобальной,
или быь полем в объекте, который живет достаточно долго, или это может быть PString, но удалятся он должен не после создания thread, а после ее уничтожения.

---

Роман_   (2002-12-14 20:16:00) [3]

Спасибо большое!
Работает.

---

Rouse_   (2002-12-14 20:05:00) [4]

function Thread_(str:PChar): DWORD; stdcall;
begin
Form1.Memo1.Lines.Add(String(str));
end;

procedure TForm1.Button2Click(Sender: TObject);
var ids: dword;
str1: PChar;
s:String;
begin
s:="1";
str1 := PChar(s);
CreateThread(nil,0,@Thread_,str1,0,ids);
end;

Желаю успехов

---

Наверх