### Ошибки взаимодействия управляемого и не управляемого кода в Delphi при использовании потоков ###

Delphi , Компоненты и Классы , Потоки

Ошибки взаимодействия управляемого и не управляемого кода в Delphi при использовании потоков

При работе с потоками в Delphi разработчики часто сталкиваются с ошибками, связанными с передачей параметров между управляемым и не управляемым кодом. Особенно это касается передачи ссылок на объекты. В данной статье мы рассмотрим, как правильно передать ссылку на объект в функцию обработчика потока CreateThread, чтобы избежать неожиданных результатов работы программы.

Проблема передачи параметров в CreateThread

Рассмотрим пример кода, который демонстрирует типичную проблему при передаче ссылки на объект в функцию ThreadProc:

program test;
{$APPTYPE CONSOLE}
uses
  SysUtils, Windows, Dialogs;

type
  TBlah = class
  public
    fe: Integer;
  end;

function ThreadProc(param: Pointer): DWORD;
begin
  ShowMessage(IntToStr(TBlah(param).fe));
  Result := 0;
end;

var
  tID: DWORD;
  handle: THandle;
  b: TBlah;
begin
  b := TBlah.Create;
  b.fe := 54;
  handle := CreateThread(nil, 0, @ThreadProc, Pointer(b), 0, tID);
  WaitForSingleObject(handle, INFINITE);
end.

При выполнении этого кода вместо ожидаемого значения 54 в сообщении об ошибке отображается число 245729105. Это происходит из-за неправильной интерпретации указателя на объект.

Решение проблемы

Проблема заключается в неверном соглашении вызова функции ThreadProc. Необходимо явно указать соглашение stdcall для функции:

function ThreadProc(param: Pointer): DWORD; stdcall;
begin
  ShowMessage(IntToStr(TBlah(param).fe));
  Result := 0;
end;

Альтернативный подход

Для работы с потоками в Delphi более предпочтительным является использование класса TThread, который автоматически обрабатывает переход между управляемым и не управляемым кодом:

type
  TBlah = class(TThread)
  protected
    procedure Execute; override;
  public
    fe: Integer;
  end;

procedure TBlah.Execute;
begin
  ShowMessage(IntToStr(fe));
end;

var
  b: TBlah;
begin
  b := TBlah.Create(True);
  b.fe := 42;
  b.Start;
  b.WaitFor;
end;

Заключение

При работе с потоками в Delphi важно понимать различия между управляемым и не управляемым кодом. Правильная передача параметров и использование встроенных классов, таких как TThread, помогут избежать ошибок и обеспечат корректную работу многопоточных приложений.

Создано по материалам из источника по ссылке.

При работе с потоками в Delphi важно правильно обращаться с передачей параметров между управляемым и не управляемым кодом, особенно при использовании объектов, чтобы избежать ошибок соглашения вызова.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Потоки ::