Работа с COM-объектами в многопоточных приложениях на Delphi: механизмы маршалинга интерфейсов

Delphi , Базы данных , ADO

Вопрос, поднятый в данном контексте, касается работы с COM-объектами в многопоточных приложениях, написанных на Delphi. При использовании объектов ADO Recordset или других COM-объектов, созданных в фоновом потоке, возникает проблема доступа к этим объектам из основного потока (UI-потоока). COM-спецификация запрещает доступ к объектам из потоков, которые не создавали эти объекты, что приводит к необходимости использования механизмов маршалинга.

Оригинальный код и проблема

В коде, предоставленном в контексте, создается объект Recordset в фоновом потоке и затем передается в основной поток через сообщение PostMessage. Проблема заключается в том, что основной поток, который не создавал COM-объект, пытается его использовать, что является нарушением правил COM.

Подтвержденный ответ

Для корректной передачи COM-объектов между потоками в одном процессе, необходимо использовать механизмы маршалинга. Существуют два основных метода:

1. Использование функции CoMarshalInterThreadInterfaceInStream, которая создает потоковый объект IStream, содержащий маршалированный интерфейс. Основной поток использует функцию CoGetInterfaceAndReleaseStream, чтобы получить интерфейс и освободить потоковый объект.

2. Использование интерфейса IGlobalInterfaceTable, который позволяет зарегистрировать интерфейс в глобальной таблице с помощью метода RegisterInterfaceInGlobal и получить его обратно с помощью метода GetInterfaceFromGlobal, а затем освободить с помощью RevokeInterfaceFromGlobal.

Альтернативный ответ и комментарии

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

Пример кода

Для иллюстрации использования первого метода маршалинга приведем пример кода на Object Pascal (Delphi):

uses
  ActiveX;

var
  conn: TADOConnection;
  rs: _Recordset;
  pStream: Pointer;
begin
  conn := CreateDatabaseConnection();
  rs := conn.Execute(CommandText, cmdText, []);
  conn.Free;

  // Маршалинг интерфейса в поток
  CoMarshalInterThreadInterfaceInStream(rs, TIDLIB_TRecordset, pStream);

  // Передача потока в основной поток
  PostMessage(hwndUIThreadWindow, WM_HeresTheRecordsetYouAskedFor, WPARAM(pStream), 0);
end;

procedure ExecuteComplete(var msg: TMessage);
var
  pStream: Pointer;
  rs: _Recordset;
begin
  pStream := msg.wParam;
  // Получение интерфейса из потока
  CoGetInterfaceAndReleaseStream(pStream, TIDLIB_TRecordset, rs);

  // Использование объекта rs
  ShowMessage(rs.Fields['TheTimeIs'].Value);

  // Освобождение объекта
  rs._Release();
end;

Этот код демонстрирует, как можно безопасно передать COM-объект из фонового потока в основной поток, используя маршалинг.

Заключение

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

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

Контекст касается работы с COM-объектами в многопоточных приложениях на Delphi, с акцентом на использование механизмов маршалинга интерфейсов для их безопасной передачи между потоками.

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

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

:: Главная :: ADO ::