Извлечение XML-узлов из свойства `Data` компонента `TreeView` в Delphi XE-5

Delphi , Интернет и Сети , XML

Извлечение XML-узлов из свойства Data компонента TreeView в Delphi XE-5

Вопрос, поставленный разработчиком, заключается в возможности сохранения объекта IXMLNode в свойстве Data элемента TreeView в среде разработки Delphi XE-5. При попытке выполнить это действие возникает ошибка несовместимости типов, поскольку свойство Data ожидает объект типа TObject, в то время как IXMLNode - это интерфейс, который не может быть прямо сохранен в этом свойстве.

Описание проблемы

Разработчик столкнулся с проблемой при попытке сохранить узел XML в свойстве Data компонента TreeView в Delphi XE-5. Пример кода, который вызвал ошибку:

Node := tvwItems.Items.AddObject(nil, RootNode.ChildNodes[I].ChildNodes[0].AttributeNodes[1].Text, RootNode.ChildNodes[I]);

Ошибка, которую он получил, была связана с несовместимостью типов между указателем и интерфейсом IXMLNode:

[dcc32 Error] LtLiveApplication_Main.pas(88): E2010 Incompatible types: 'Pointer' and 'IXMLNode'

Разработчик также рассматривал возможность сохранения целочисленного значения узла, приведенного к типу TObject, но это не решало основную проблему извлечения данных.

Подтвержденное решение

Для решения проблемы необходимо понимать, что IXMLNode является интерфейсом с подсчетом ссылок, и его нужно привести к типу TCustomData, а также увеличить счетчик ссылок при создании узла TreeView и уменьшить его перед уничтожением узла.

Пример кода для сохранения IXMLNode в свойстве Data:

var
  XmlNode: IXMLNode;
  Node: TTreeNode;
begin
  ...
  XmlNode := RootNode.ChildNodes[I];
  Node := tvwItems.Items.AddObject(nil, XmlNode.ChildNodes[0].AttributeNodes[1].Text, TCustomData(XmlNode));
  XmlNode._AddRef;
  ...
end;

Также необходимо обработать событие OnDeletion для уменьшения счетчика ссылок:

procedure TMyForm.tvwItemsDeletion(Sender: TObject; Node: TTreeNode);
var
  XmlNode: IXMLNode;
begin
  XmlNode := IXMLNode(Node.Data);
  XmlNode._Release;
end;

Для упрощения работы с интерфейсами, можно создать новый класс, наследуемый от TTreeNode, с членом IXMLNode, что позволит компилятору автоматически управлять подсчетом ссылок:

type
  TMyTreeNode = class(TTreeNode)
  public
    XmlNode: IXMLNode;
  end;

Инициализация нового узла TreeView с IXMLNode:

procedure TMyForm.tvwItemsCreateNodeClass(Sender: TCustomTreeView; var NodeClass: TTreeNodeClass);
begin
  NodeClass := TMyTreeNode;
end;

var
  XmlNode: IXMLNode;
  Node: TTreeNode;
begin
  ...
  XmlNode := RootNode.ChildNodes[I];
  Node := tvwItems.Items.Add(nil, XmlNode.ChildNodes[0].AttributeNodes[1].Text);
  TMyTreeNode(Node).XmlNode := XmlNode;
  ...
end;

Извлечение IXMLNode при клике на узел TreeView:

procedure TMyForm.tvwItemsClick(Sender: TObject);
var
  Node: TTreeNode;
  XmlNode: IXMLNode;
begin
  Node := tvwItems.Selected;
  if Node <> nil then
  begin
    XmlNode := TMyTreeNode(Node).XmlNode;
    ...
  end;
end;

Альтернативный ответ

В альтернативном ответе разработчик продолжает искать решение, но в предоставленном контексте нет дополнительных предложений или решений, отличных от подтвержденного ответа.

Вывод

Для корректного сохранения и извлечения объектов IXMLNode в свойство Data компонента TreeView в Delphi XE-5, необходимо использовать подход с созданием нового класса, наследуемого от TTreeNode, с членом IXMLNode. Это позволяет автоматизировать процесс управления ссылками и упрощает работу с IXMLNode в контексте TreeView.

Создано по материалам из источника по ссылке.

Проблема связана с необходимостью сохранения объекта `IXMLNode` в свойстве `Data` компонента `TreeView` в Delphi XE-5, что невозможно напрямую из-за несовместимости типов, и требует использования дополнительных методов для управления ссылками.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: XML ::