ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / проблемы с TXMLDocument
6 сообщений из 6, страница 1 из 1
проблемы с TXMLDocument
    #39959269
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
Простейший тестовый XML
Код: xml
1.
2.
3.
4.
5.
6.
7.
8.
9.
<test>
    <node1 attr="str">TestNode</node1>
    <node2>1234567890</node2>
    <array>
        <item>TestItem1</item>
        <item>TestItem2</item>
        <item>TestItem3</item>
    </array>
</test>




форма, одна кнопка.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
uses Xml.XMLDoc,Xml.XMLIntf, Xml.Xmldom
...

procedure TForm1.SpeedButton1Click(Sender: TObject);
var Dll_FormConfig, TabNode : IXMLNode;
    XMLDoc : TXMLDocument;
    s : String;
begin
  XMLDoc := TXMLDocument.Create(nil);
  XMLDoc.LoadFromFile('DllConfig.xml');
  Dll_FormConfig := XMLDoc.DocumentElement;
  TabNode := Dll_FormConfig.ChildNodes['node1'];
  s := TabNode.Text;
  s := TabNode.Attributes['attr'];
end;


Delphi Rio 10.3.

В отдельном приложении в виде как_бы_рабочей демки - все нормально.
А вот если включить EurekaLog - моментально вылетает DeadObjectVirtualMethodCall. В реальном многопоточном приложении 3 раза из 4 вылетает PointerError.

Копнул внутрь - в процессе обращения к XMLDoc.DocumentElement вызывается TXMLNode.GetChildNodes, после которого дважды освобождается интерфейс, один из которых приводит к TXMLDocument.Destroy;

Естественно, что после этого обращения к пропам освобожденного объекта работает только если никто другой туда ничего не успеет записать.

Гугл гуглил, везде примитивные демки типа моей, мол смотрите как все просто.

Пробовал в Vendor ставить OXML вместо стандартного MSXML, все так же (что логично).

Я чего-то не понимаю, или это отличный баг TXMLDocument ?
...
Рейтинг: 0 / 0
19.05.2020, 09:54
| Ответить | Цитировать | Написать  
проблемы с TXMLDocument
    #39959284
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
var XMLDoc : IXMLDocument;
...
Рейтинг: 0 / 0
19.05.2020, 10:24
| Ответить | Цитировать | Написать  
проблемы с TXMLDocument
    #39959300
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
спасибо.

а в
http://docwiki.embarcadero.com/CodeExamples/Rio/en/TXMLDocumentDOMVendor_(Delphi) используют TXMLDocument.

Ладно, неважно. Работает и работает.
...
Рейтинг: 0 / 0
19.05.2020, 10:55
| Ответить | Цитировать | Написать  
проблемы с TXMLDocument
    #39959354
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Vizit0r
Ладно, неважно.
Важно. Вы смешиваете работу с объектными указателями
Vizit0r
Код: pascal
1.
XMLDoc : TXMLDocument;

и интерфейсными
Vizit0r
Код: pascal
1.
Dll_FormConfig, TabNode : IXMLNode

Так, без специальных танцев, в виде ручного вызова _AddRef, _Release, работать не будет никогда
...
Рейтинг: 0 / 0
19.05.2020, 11:57
| Ответить | Цитировать | Написать  
проблемы с TXMLDocument
    #39959365
s62
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
s62
Участник
Vizit0r

...
Копнул внутрь - в процессе обращения к XMLDoc.DocumentElement вызывается TXMLNode.GetChildNodes, после которого дважды освобождается интерфейс, один из которых приводит к TXMLDocument.Destroy;

Естественно, что после этого обращения к пропам освобожденного объекта работает только если никто другой туда ничего не успеет записать.

...

Я чего-то не понимаю, или это отличный баг TXMLDocument ?


http://docwiki.embarcadero.com/Libraries/Rio/en/Xml.XMLDoc.TXMLDocument
авторWhen TXMLDocument is created without an Owner, it behaves like an interfaced object. That is, when all references to its interface are released, the TXMLDocument instance is automatically freed. When TXMLDocument is created with an Owner, however, it behaves like any other component, and is freed by its Owner. When you add a TXMLDocument component from the component palette to a form or data module, it is automatically created with an Owner. When the TXMLDocument component is created using the global LoadXMLDocument function (or by a function that the XML Data Binding wizard generates to return the root node of the document), the function creates a TXMLDocument instance without an Owner.
...
Рейтинг: 0 / 0
19.05.2020, 12:10
| Ответить | Цитировать | Написать  
проблемы с TXMLDocument
    #39959496
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vizit0r
Участник
ага, я уже в исходниках копнул.
...
Рейтинг: 0 / 0
19.05.2020, 14:42
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / проблемы с TXMLDocument
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39959284&tid=2038310]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 186ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 206ms
total:  444ms
созд. / загр.: 444ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]