Как правильно передать параметр в thread

← →
Роман_ (2002-12-14 19:47) [0]

Господа!
Никак не получается передать строку в поток, создаваемый с помощью 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;

← →
Rouse_ (2002-12-14 20:05) [1]

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;

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

← →
Роман_ (2002-12-14 20:16) [2]

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

← →
Alex Konshin (2002-12-14 20:27) [3]

Во-первых, используй 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-15 00:46) [4]

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

Как правильно передать параметр в thread Найти похожие ветки