EOleException при доступе к телу сообщения

Question

Служба Windows при попытке получить доступ к свойству .Body объекта сообщения MSMQ вызывает исключение EOleException, но только если в документе Xml, содержащемся в этом сообщении, есть пустой узел списка.

Сообщение EOleException жалуется на недостаточную память (код исключения -2147024882). Поскольку исключение происходит только с наименьшим возможным документом Xml, память не может быть реальной проблемой. Следующее, что приходит в голову, это проблема с правами доступа, но затем все «хорошие» сообщения (как описано ниже) обрабатываются без проблем.

Исключение может быть воспроизведено в любом мыслимом состоянии («плохое» сообщение во-первых, много «хороших» сообщений вначале - тогда «плохое» сообщение, запуск в отладчике или просто регистрация исключения); не имеет значения, запущен ли код, показанный ниже, в качестве службы или как простой exccecutable.

Использование одного и того же объекта COM (MSMQ.MSMQQueueInfo) из VBScript на том же компьютере не вызывает ошибок.

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

---

службы Windows код

//... 
qInfo := CreateOleObject('MSMQ.MSMQQueueInfo'); 
qTxDisp := CreateOleObject('MSMQ.MSMQTransactionDispenser'); 
//... 
qTx := qTxDisp.BeginTransaction; 
qMessage := qQueue.Receive(qTx, False, True, 0); 
//... 
sBody := qMessage.Body; //throws EOleException 

qMessage.BodyLength Свойство возвращает значение для "плохих" сообщений, как показано ниже.

"Bad" сообщение

<?xml version="1.0" encoding="Windows-1252"?> 
<response space="" Message="Entry_7"> 
    <query> 
     <entrylist count="0"> 
     </entrylist> 
    </query> 
</response> 

Это сообщение надежно делает сервисный код сгенерирует EOleExecption.

"Хорошо" сообщение

<?xml version="1.0" encoding="Windows-1252"?> 
<response space="" Message="Entry_7"> 
    <query> 
     <entrylist count="2"> 
      <entry> 
       <abc>123</abc> 
       <def>456</def> 
      </entry> 
      <entry> 
       <abc>789</abc> 
       <def>000</def> 
      </entry> 
     </entrylist> 
    </query> 
</response> 

Это сообщение надежно обрабатывается без проблем.

Проблема возникла при переносе службы с машины Win2003 на Win2008 (32-разрядный стандарт).

Answer 1

Если VBScript отлично работает, то я предполагаю, что это что-то в взаимодействии между MSMQ и службой Delphi.

Вы пытались запустить код Delphi в отдельном приложении?

Я еще не работал с MSMQ, но, возможно, вы также можете попытаться использовать не транзакционное чтение из очереди сообщений, чтобы узнать, имеет ли это значение (уменьшите код, чтобы быть таким же маленьким/простым, как и smack).

Потенциальной причиной может быть другая (более новая) библиотека MSXML на машине Win2008.