createthread и передача параметра процедуре

[fucil]

Вопрос^ можно ли передать процедуре в потоке параметр, если я использую для создания потока вот такой код:

createthread(nil,0,@MyProcedure,0,0,trid);

именно через параметр а не через глобал переменную.

[GunSmoker]

F1:

lpParameter [in, optional]
A pointer to a variable to be passed to the thread.

[GunSmoker]

И, кстати.

[fucil]

Да прочитал сделал так:

//Сама процедура для потока
procedure MyProcedure(str: pointer);
var
  ptrString : PString;
begin
ptrString := Addr(str);
showmessage(ptrString^); //Знаю что тут бред написал так как не сталкивался с pointer.
end;

//Создание потока
procedure TForm1.Button5Click(Sender: TObject);
var
str: string;
begin
str:='привет';
createthread(nil,0,@MyProcedure,Addr(str),0,trid);
end;

как передать понял, а как получить параметр не понял !

[Пепел Феникса]

параметр str в процедуре потока.

[fucil]

как показано на примере-выше, я так и делал, только что-то оно не работает !

[Пепел Феникса]

1)нельзя передавать указатель на чисто локальный объект.
2)

//Сама процедура для потока
procedure MyProcedure(param: pointer);
var
  str : String;
begin
str:=PChar(param);
showmessage(str);
StrDispose(PChar(param));
end;

//Создание потока
procedure TForm1.Button5Click(Sender: TObject);
var
str: string;
begin
str:='привет';
createthread(nil,0,@MyProcedure,StrNew(str),0,trid);//создали строку в куче.
end;

[fucil]

Пепел Феникса спасибо тебе большое за уделенное мне время !
Изучу твой код что и почему спасибо.

Все гуд только когда закрываю форму вываливает ошибку
проблема скрывается тут:

StrDispose(PChar(param));

[rpy3uH]

поточная функция должна быть stdcall

[fucil]

Все гуд работает на ура ))


Тему можно закрыть !