delphi - 如何跨线程边界传递 ADO Recordset(或任何 COM 对象)？

Question

我有一个在后台线程中创建的 ADO Recordset 对象:

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

   //Give the recordset to the UI thread
   //Don't forget to add a reference before we stuff it into a 32-bit variable
   rs._AddRef();
   PostMessage(hwndUIThreadWindow, WM_HeresTheRecordsetYouAskedFor, WPARAM(rs), 0);
end;

然后将 Recordset 交给我的“main”线程:

procedure ExecuteComplete(var msg: TMessage); message WM_HeresTheRecordsetYouAskedFor;
var
   rs: _Recordset;    
begin
   rs := _Recordset(msg.wParam);
   //don't forget to remove the manually added reference
   rs._Release();

   ShowMessage(rs.Fields['TheTimeIs'].Value);
end;

我也可以这样做:

var 
   global_Recordset: _Recordset;

var
   conn: TADOConnection;
begin
   conn := CreateDatabaseConnection();
   global_Recordset := conn.Execute(CommandText, cmdText, []);
   conn.Free;
end;

无论哪种方式，未创建 COM 对象的线程现在正在使用它。从主线程:

global_Recordset .Fields['TheTimeIs'].Value;

COM 禁止从未创建对象的单元(在本例中:线程)访问 COM 对象。

跨单元边界编码进程内 COM 对象接口(interface)的正确方法是什么？

Answer 1

跨公寓传递 COM 对象的正确方法是编码(marshal)接口(interface)指针，这可以通过两种不同的方式之一完成:

1. 让工作线程调用CoMarshalInterThreadInterfaceInStream()函数并将生成的 IStream 指针传递给 UI 线程，然后 UI 线程调用 CoGetInterfaceAndReleaseStream()功能。

2. 使用IGlobalInterfaceTable界面。让工作线程创建接口(interface)并调用其 RegisterInterfaceInGlobal() 方法，并将生成的 cookie 传递给 UI 线程，然后 UI 线程创建接口(interface)并调用其 GetInterfaceFromGlobal() 并RevokeInterfaceFromGlobal() 方法。