Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / проблемы с TXMLDocument / 6 сообщений из 6, страница 1 из 1
19.05.2020, 09:54
    #39959269
Vizit0r
Vizit0r
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблемы с TXMLDocument
Простейший тестовый 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, 10:24
    #39959284
X-Cite
X-Cite
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблемы с TXMLDocument
var XMLDoc : IXMLDocument;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2020, 10:55
    #39959300
Vizit0r
Vizit0r
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблемы с TXMLDocument
спасибо.

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

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

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

Так, без специальных танцев, в виде ручного вызова _AddRef, _Release, работать не будет никогда
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2020, 12:10
    #39959365
s62
s62
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблемы с TXMLDocument
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, 14:42
    #39959496
Vizit0r
Vizit0r
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблемы с TXMLDocument
ага, я уже в исходниках копнул.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / проблемы с TXMLDocument / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 331ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2038310]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 22ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 249ms
total:  331ms
x
x
Закрыть


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