Асинхронный OnFetchComplete TADOQuery не синхронизирован с основным потоком

при использовании TADOQuery С [eoAsyncFetchNonBlocking] и присоединения к OnFetchComplete событие я нашел, что OnFetchComplete не выполняется в основном потоке (проверено в XE4 и XE8). Я предполагаю, что это ошибка*, так как большинство из нас будет работать в пользовательском интерфейсе на этом типе события. Я считаю, что это источник некоторых проблем в более крупном проекте, и мне нужно обходное решение.

[редактирование] *После прочтения документации ADO я знаю, что это может быть не ошибка, но проблема многопоточности остатки.

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

вот упрощенный образец, который показывает, что проблема. Мой проект сложнее с фабрикой, создающей и заполняющей эти наборы данных, но это было бы аналогично здесь присоединению набора данных к сетке внутри ADOQuery1FetchComplete.

unit Unit4;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls;

type
  TForm4 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ADOQuery1FetchComplete(DataSet: TCustomADODataSet;
      const Error: Error; var EventStatus: TEventStatus);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FMainThreadID : DWORD;
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.ADOQuery1FetchComplete(DataSet: TCustomADODataSet;
  const Error: Error; var EventStatus: TEventStatus);
begin
  Assert(FMainThreadID = GetCurrentThreadId); //this assertion fails!
  // I need UI code here to run  FMainThreadID
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
   ADOQuery1.Open;
end;


procedure TForm4.FormCreate(Sender: TObject);
begin
    FMainThreadID := GetCurrentThreadId;
end;

end.

и dfm просто имеет набор запросов с ExecuteOptions = [eoAsyncFetchNonBlocking] и OnFetchComplete обрабатывается.

object Form4: TForm4
  Left = 0
  Top = 0
  Caption = 'Form4'
  ClientHeight = 186
  ClientWidth = 258
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 24
    Top = 88
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    ExecuteOptions = [eoAsyncFetchNonBlocking]
    OnFetchComplete = ADOQuery1FetchComplete
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TABLENAME')
    Left = 144
    Top = 16
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=DBNAME;Data Source=.INSTANCENAME'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 16
  end
end

[редактирование] Было предложено использовать TThread.Sychronize, но это не поток Delphi.

если GetCurrentThreadId недостаточно доказательств того, что обработчик вызывается из другого потока, здесь находятся callstacks основного и проблемного потока (я добавил Сон в основном потоке навсегда мера)

основной поток спать

:77d0c7bc ntdll.ZwDelayExecution + 0xc
:7745104f KERNELBASE.Sleep + 0xf
Unit6.TForm6.btnQueryClick(BC00)
Vcl.Controls.TControl.Click
Vcl.StdCtrls.TCustomButton.Click
Vcl.StdCtrls.TCustomButton.CNCommand(???)
Vcl.Controls.TControl.WndProc((48401, 1344, 7275840, 0, 1344, 0, (), 1344, 111, (), 0, 0, ()))
Vcl.Controls.TWinControl.WndProc((48401, 1344, 7275840, 0, 1344, 0, (), 1344, 111, (), 0, 0, ()))
Vcl.StdCtrls.TButtonControl.WndProc((48401, 1344, 7275840, 0, 1344, 0, (), 1344, 111, (), 0, 0, ()))
Vcl.Controls.TControl.Perform(???,???,7275840)
Vcl.Controls.DoControlMsg(???,(no value))
Vcl.Controls.TWinControl.WMCommand((273, (), 1344, 0, (), 7275840, 0))
Vcl.Forms.TCustomForm.WMCommand((273, (), 1344, 0, (), 7275840, 0))
Vcl.Controls.TControl.WndProc((273, 1344, 7275840, 0, 1344, 0, (), 1344, 111, (), 0, 0, ()))
Vcl.Controls.TWinControl.WndProc((273, 1344, 7275840, 0, 1344, 0, (), 1344, 111, (), 0, 0, ()))
Vcl.Forms.TCustomForm.WndProc((273, 1344, 7275840, 0, 1344, 0, (), 1344, 111, (), 0, 0, ()))
Vcl.Controls.TWinControl.MainWndProc(???)
System.Classes.StdWndProc(2829362,273,1344,7275840)
:759b8e71 user32.CallNextHookEx + 0xb1
:759b90d1 ; C:windowsSysWOW64user32.dll
:759b932c ; C:windowsSysWOW64user32.dll
:759b9529 ; C:windowsSysWOW64user32.dll
:77d107d6 ntdll.KiUserCallbackDispatcher + 0x36
:759be4a9 ; C:windowsSysWOW64user32.dll
:711f19e4 ; C:windowsWinSxSx86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.9600.17810_none_a9edf09f013934e0comctl32.dll
:711f1a7b ; C:windowsWinSxSx86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.9600.17810_none_a9edf09f013934e0comctl32.dll
:759b8e71 user32.CallNextHookEx + 0xb1
:759b90d1 ; C:windowsSysWOW64user32.dll
:759bddd5 user32.CallWindowProcW + 0x95
Vcl.Controls.TWinControl.DefaultHandler(???)
:00532947 TWinControl.DefaultHandler + $EB
:00532836 TWinControl.WndProc + CA
:00544cdd TButtonControl.WndProc + 
:004c9162 StdWndProc + 
:759b8e71 user32.CallNextHookEx + 0xb1
:759b90d1 ; C:windowsSysWOW64user32.dll
:759ba66f ; C:windowsSysWOW64user32.dll
:759ba6e0 user32.DispatchMessageW + 0x10
:005bb158 TApplication.ProcessMessage + $F8
:00040000

другой поток, вызывающий обработчик

Unit6.TForm6.QueryFetchComplete(8B3E0,nil,esOK)
Data.Win.ADODB.TCustomADODataSet.FetchComplete(nil,89849068,Pointer(99D8) as _Recordset)
:6b7ab81d ; C:Program Files (x86)Common FilesSystemadomsado15.dll
:6b7ab4b6 ; C:Program Files (x86)Common FilesSystemadomsado15.dll
:6b7a17c8 ; C:Program Files (x86)Common FilesSystemadomsado15.dll
:6b7b616f ; C:Program Files (x86)Common FilesSystemadomsado15.dll
:69038991 ; C:Program Files (x86)Common FilesSystemmsadcmsadce.dll
:69038bd6 ; C:Program Files (x86)Common FilesSystemmsadcmsadce.dll
:69038d54 ; C:Program Files (x86)Common FilesSystemmsadcmsadce.dll
:69037a02 ; C:Program Files (x86)Common FilesSystemmsadcmsadce.dll
:69021205 ; C:Program Files (x86)Common FilesSystemmsadcmsadce.dll
:69038034 ; C:Program Files (x86)Common FilesSystemmsadcmsadce.dll
:77a07c04 KERNEL32.BaseThreadInitThunk + 0x24
:77d2ad1f ntdll.RtlInitializeExceptionChain + 0x8f
:77d2acea ntdll.RtlInitializeExceptionChain + 0x5a

1 ответов


по моему опыту, проще использовать либо:

синхронизация или TThread.Очередь

это не ошибка или, по крайней мере, не ошибка VCL. Это поведение обрабатывается поставщиком, и мы не можем сказать, что он не следует спецификация потому что нет спецификации о том, как управлять асинхронными тех событий. Все спецификации есть следующий:

adAsyncFetchNonBlocking

указывает, что основной поток никогда не блокирует при получении. Если запрошенная строка не была получена, текущая строка автоматически перемещается в конец файла.

это пример кода, предупреждающего основной поток о завершении выполнения:

procedure TForm1.ADOQuery1FetchComplete(DataSet: TCustomADODataSet;
  const Error: Error; var EventStatus: TEventStatus);
begin
  TThread.Synchronize(nil,
    procedure
    begin
      ShowMessage('FetchData Completed');
    end
    );
end;

обновление:

Я подтвердил это. Он будет работать для версий 6, 7, XE4 и XE7 (у меня здесь нет другой версии). Нет ничего плохого в использовании Synchronize чтобы ввести код для выполнения в контекст основного потока. Кроме того, я хочу обратить ваше внимание на то, что DataSet является просто указателем (фактически ссылкой) на ваш объект ADOQuery, поэтому вам не обязательно ссылаться на него в своем анонимном методе, это важный факт для более старых версий, таких как 6 или 7, потому что анонимные методы не существуют.

бонус ЧТЕНИЕ: СОБЫТИЯ