передача потоку 2 и более параметра через createthread

[fucil]

Эта тема уже поднималась, но в ней было передача 1 параметр а больше как? Чет я не пойму как ((

procedure MyProcedure(param: pointer);  stdcall;
var
  str : String;
begin
str:=PChar(param);
showmessage(str);
StrDispose(PChar(param));
end;

procedure TForm6.Button1Click(Sender: TObject);
var
str: string;
begin
str:='привет';
createthread(nil,0,@MyProcedure,StrNew(PChar(str)),0,trid);

Это старый код, что суда дописать ? что бы передать больше параметров подскажите или покажите.
у меня проблема именно вот тут

createthread(nil,0,@MyProcedure,StrNew(PChar(str)),0,trid);

как туда присобачить больше параметров не пойму.

[Человек_Борща]

Прочитать MSDN по CreateThread....
Посмотреть реализацию класса TThread...

[fucil]

Та я смотрел, только не помню где, может и на mdsn, но придумать как передать 2 параметра не могу!
Там все в примерах на 1 параметре, ты невнимательно прочел пост, я же написал что проблема в передаче, как это написать в синтаксисе ?
при этом половина мозга отказывается думать и это горькая правда.

[Silver_S]

Передавайте 1 параметр - указатель на запись, содержащую все остальные параметры

[fucil]

а пример можно? По незнанию не могу реализовать !
У меня нет опыта с указателями ((
И промежуточный вопрос @MyProcedure
@ - собака в начале это что ? для чего используют (есть подозрение что это и есть указатель на область памяти где находиться что то)

[fucil]

Сообщение от fucil

а пример можно? По незнанию не могу реализовать !
У меня нет опыта с указателями ((
И промежуточный вопрос @MyProcedure
@ - собака в начале это что ? для чего используют (есть подозрение что это и есть указатель на область памяти где находиться что то)

Только что ознакомился с указателями )) очень интересно... После понял суть которую хотел донести мне Silver_S, но как это будит выглядить программно, пока не придумал.

[GunSmoker]

По рукам за CreateThread, неверный прототип и отсутствие обработки ошибок.

type
  TThreadParam = record
    I1: Integer;
    P2: Pointer;
    S3: String;
    // пиши что угодно
  end;
  PThreadParams = ^TThreadParams;

...

function ThreadProc(Parameter: Pointer): Integer;
var
  Params: TThreadParams;
begin
  try
    Params := PThreadParams (Parameter)^;
    FreeMem(Parameter);

    ... твой код, использующий параметры из Params

    Result := 0;
  except
    Result := ERROR_GEN_FAILURE;
  end;
end;

...

var
  Params: PThreadParams;
  TH: THandle;
  TID: Cardinal;
begin
  Params := AllocMem(SizeOf(TThreadParams));
  Params.I1 := 42;
  Params.S3 := 'Show me the money';

  TH := BeginThread(nil, 0, ThreadProc, Params, 0, TID);
  Win32Check(TH <> 0);
  // ... тут можно разместить код, если надо
  CloseHandle(TH);
end;

[phomm]

Разрешите малость уточнить.

Аккуратен ли подход при аллоке памяти в клиентском коде и освобождении во внешнем ? Ведь тем более что производится обработка ошибок - значит подразумеваем возможность невыполнения внешней процедуры.
Ну и плюсом - AllocMem вроде непарная функция FreeMem (для FreeMem парна GetMem, хотя полагаю тут может быть зависимость от менеджера памяти), так ведь ? Обычно же рекомендуется использовать парные подпрограммы выделения-освобождения памяти, можно разъяснить сей момент, погуглил - не особо нащупал.

Для ТС замечу, чтобы не было путаницы - объявлена переменная указательного типа, но при использовании не разыменовывается, это в порядке вещей, дельфи это позволяет при подобном использовании типизированного указателя на записи.

Кстати )))
http://www.transl-gunsmoker.ru/2009/09/blog-post.html

Сообщение от GunSmoker

Для записей, синтаксис языка позволяет вам опускать оператор ^, если код не теряет при этом своего смысла. Но лично я всегда явно указываю оператор для улучшения читабельности.

Сообщение от GunSmoker

  Params := AllocMem(SizeOf(TThreadParams));
  Params.I1 := 42;
  Params.S3 := 'Show me the money';

[GunSmoker]

Аккуратен ли подход при аллоке памяти в клиентском коде и освобождении во внешнем ?

Да, по хорошему туда надо добавить if TH = 0 then FreeMem(Params); перед Win32Check.

Ну и плюсом - AllocMem вроде непарная функция FreeMem

Парная. AllocMem - это GetMem + ZeroMemory.

Кстати )))

Почему-то подумалось, что для примера начинающему будет лучше с неявным разыменованием.

[GunSmoker]

Гм... откуда у меня там вообще AllocMem?

Код вчера писал на коленке и уже засыпая. Там вообще должно стоять New и Dispose.

Итого, должно быть как-то так:

type
  TThreadParam = record
    I1: Integer;
    P2: Pointer;
    S3: String;
    // пиши что угодно
  end;
  PThreadParams = ^TThreadParams;

...

function ThreadProc(Parameter: Pointer): Integer;
var
  Params: TThreadParams;
begin
  try
    Params := PThreadParams (Parameter)^;
    Dispose(PThreadParams(Parameter));

    ... твой код, использующий параметры из Params

    Result := 0;
  except
    Result := ERROR_GEN_FAILURE;
  end;
end;

...

var
  Params: PThreadParams;
  TH: THandle;
  TID: Cardinal;
begin
  TH := 0;
  New(Params);
  try
    Params.I1 := 42;
    Params.P2 := nil; // <- добавлено, т.к. New не чистит память, поэтому надо явно инициализировать
    Params.S3 := 'Show me the money';

    TH := BeginThread(nil, 0, ThreadProc, Params, 0, TID);
    Win32Check(TH <> 0);
  finally
    if TH = 0 then
      Dispose(Params);
  end;

  // ... тут можно разместить код, если надо

  CloseHandle(TH);
end;

Ну а если с AllocMem, то так:

type
  TThreadParam = record
    I1: Integer;
    P2: Pointer;
    S3: String;
    // пиши что угодно
  end;
  PThreadParams = ^TThreadParams;

...

function ThreadProc(Parameter: Pointer): Integer;
var
  Params: TThreadParams;
begin
  try
    Params := PThreadParams (Parameter)^;
    Finalize(PThreadParams(Parameter)^);
    FreeMem(Parameter);

    ... твой код, использующий параметры из Params

    Result := 0;
  except
    Result := ERROR_GEN_FAILURE;
  end;
end;

...

var
  Params: PThreadParams;
  TH: THandle;
  TID: Cardinal;
begin
  TH := 0;
  Params := AllocMem(SizeOf(TThreadParams));
  try
    Params.I1 := 42;
    Params.S3 := 'Show me the money';

    TH := BeginThread(nil, 0, ThreadProc, Params, 0, TID);
    Win32Check(TH <> 0);
  finally
    if TH = 0 then
    begin
      Finalize(Params^);
      FreeMem(Params);
    end;
  end;

  // ... тут можно разместить код, если надо

  CloseHandle(TH);
end;

Удаление блока вынесено за Win32Check в finally, чтобы FreeMem/Dispose не попортили бы GetLastError от BeginThread. Вместо этого можно было делать так:

    TH := BeginThread(nil, 0, ThreadProc, Params, 0, TID);
    SavedError := GetLastError;
    Dispose(Params);
    SetLastError(SavedError);
    Win32Check(TH <> 0);

но это потребует лишней переменной.

P.S. Код снова писал на коленке, могут быть опечатки.