Dmitry ArefievИгорь_UUS, покажи что и как делал, что:
1) "... если формат не верный то сообщение игнорируется компонентой"
2) "дело оказалось в том что нужно правильно поддерживать "Query Notification Messages" в MSSQL."
Добрый день Дмитрий.
Если в очередь закинуть сообщение, например "bla-bla-bla and bla-bla-bla", то начиная с XE7 просто будет проигнорировано компонентой, безо всяких уведомлений (наверное это больше всех ставило в ступор!). Если сообщение будет отправлено согласно "
https://technet.microsoft.com/en-us/library/ms189308(v=sql.105).aspx", то всё ок.
Как нашёл?! Пришлось "ковырять" исходники, в юните FireDAC.Phys.MSSQL, функция "function TFDPhysMSSQLEventAlerter.ProcessNotifications: Boolean;"
проблема в этом куске:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
for i := 0 to FMessageTab.Rows.Count - 1 do begin
sMsg := FMessageTab.Rows[i].AsString['message_body'];
sType := GetAttr('type');
sSrc := GetAttr('source');
Result := CompareText(sType, 'subscribe') <> 0;
if (CompareText(sType, 'change') = 0) and (CompareText(sSrc, 'timeout') <> 0) or
not Result then begin
sInfo := GetAttr('info');
sVal := GetValue('qn:Message');
FMsgThread.EnqueueMsg(TFDPhysMSSQLEventMessage.Create(sVal, sType, sSrc, sInfo));
end;
end;
А именно, где происходит потеря сообщения, которое не удовлетворяет нотифакции майкрасофт:
1.
2.
if (CompareText(sType, 'change') = 0) and (CompareText(sSrc, 'timeout') <> 0) or
not Result then begin
