повторное использование компонента - Общие вопросы Delphi

marwell. · 12.04.2015, 22:26

добрый день,
использую в программе объект TXMLDocument для создания xml:

Код:

procedure TForm2.BitBtn3Click(Sender: TObject);
var  xml: TXMLDocument;
    i, j: integer;
    today : TDateTime;
begin
    xml:=XMLDocument1.Create(nil);
    xml.Active:=True;
      // создаем
      with Xml do
        begin
          // создаем корневой узел
          with AddChild ('Body') do
            begin
              // создаем дочерний узел
              with AddChild ('info') do
                begin
                today := Now;
...................................................................
              end;
            end;  // with

        end;  // with: создаем
 
      // записываем
        xml.SaveToFile (name_test+'.xml');

end;

при однократном вызове этой процедуры все работает на ура. Но, если после первого создания файла, попытаться создать еще один, то получаю exception - Project Project1.exe raised exception class EOleException with message 'Only one top level element is allowed in an XML document'. Верно ли я понимаю, что при повторном вызове почему то используется предыдущий объект xml? Пробовал добавить

Код:

xml.Destroy;
xml:=Nil;

в конец процедуры, но тогда получаю ошибку 'Acces violation at address ...'.
Буду очень благодарен совету

Аватар · 12.04.2015, 22:32

XMLDocument1.Create это что? TXMLDocument.Create
И xml.Free в конце обязательно, а то утечки будут

marwell. · 13.04.2015, 08:25

Цитата:

Сообщение от Аватар

XMLDocument1.Create это что? TXMLDocument.Create
И xml.Free в конце обязательно, а то утечки будут

Спасибо большое! повторное создание теперь работает!

А при считывании из готового xml такой же метод не подходит?

Код:

procedure TForm2.FormShow(Sender: TObject);
var xml: TXMLDocument;
    nodelist: IXMLNodeList;
    c: integer;
begin
  xml:=TXMLDocument.Create(nil);
  xml.LoadFromFile(mydir+'\'+loadxml);
  xml.Active:=True;
  nodelist:=xml.DocumentElement.ChildNodes; //здесь получаю ошибку 'Invald pointer operation'
  name_test:=nodelist[0].ChildNodes.Nodes[0].Text;
  c:=nodelist[1].ChildNodes.Count;
..........................................
  xml.Free;
end;

Utkin · 13.04.2015, 09:35

Код:

nodelist:=xml.DocumentElement.ChildNodes;

Есть ли они, ноды? Попробуйте сначала определить количество детей, прежде чем получать их все.
Чему равно loadxml? Путь который Вы собираете корректен?

lexaltd · 13.04.2015, 10:33

Цитата:

Сообщение от marwell.

Спасибо большое! повторное создание теперь работает!

А при считывании из готового xml такой же метод не подходит?

Код:

procedure TForm2.FormShow(Sender: TObject);
var xml: TXMLDocument;
    nodelist: IXMLNodeList;
    c: integer;
begin
  xml:=TXMLDocument.Create(nil);
  xml.LoadFromFile(mydir+'\'+loadxml);
  xml.Active:=True;
  nodelist:=xml.DocumentElement.ChildNodes; //здесь получаю ошибку 'Invald pointer operation'
  name_test:=nodelist[0].ChildNodes.Nodes[0].Text;
  c:=nodelist[1].ChildNodes.Count;
..........................................
  xml.Free;
end;

Ошибка скорей всего возникает тут

Код:

xml.Free;

Если да то тут написано почему, и как
http://www.cyberforum.ru/delphi-begi...ead857173.html

marwell. · 13.04.2015, 12:14

Цитата:

Сообщение от Utkin

Код:

nodelist:=xml.DocumentElement.ChildNodes;

Есть ли они, ноды? Попробуйте сначала определить количество детей, прежде чем получать их все.
Чему равно loadxml? Путь который Вы собираете корректен?

путь к фалу корректен.
вот пример файла:

Код:

<Body>
   <info>
      <Name>rt</Name>
      <Date>13.04.2015</Date>
      <Quest_Count>2</Quest_Count>
   </info>
   <questions>
      <q0>rt</q0>
      <q1>tr</q1>
   </questions>
   <answers>
      <a0>
         <ans0>rt</ans0>
         <ans1>rt</ans1>
         <ans2>rt</ans2>
      </a0>
      <a1>
         <ans0>7</ans0>
         <ans1>77</ans1>
         <ans2>777</ans2>
      </a1>
   </answers>
</Body>

с

Код:

showmessage(IntToStr(xml.ChildNodes.Count));

получаю количество=1(хотя должно быть 3?) и 'No active document' на

Код:

nodelist:=xml.DocumentElement.ChildNodes;

Utkin · 13.04.2015, 13:02

Мне кажется один это само тело body (могу ошибаться). Попробуйте добавить стандартный заголовок, типа

Цитата:

<?xml version="1.0" encoding="WINDOWS-1251"?>

и какой-нибудь комментарий.

12.04.2015, 22:26	#1
marwell. Пользователь Регистрация: 05.12.2012 Сообщений: 63	повторное использование компонента добрый день, использую в программе объект TXMLDocument для создания xml: Код: procedure TForm2.BitBtn3Click(Sender: TObject); var xml: TXMLDocument; i, j: integer; today : TDateTime; begin xml:=XMLDocument1.Create(nil); xml.Active:=True; // создаем with Xml do begin // создаем корневой узел with AddChild ('Body') do begin // создаем дочерний узел with AddChild ('info') do begin today := Now; ................................................................... end; end; // with end; // with: создаем // записываем xml.SaveToFile (name_test+'.xml'); end; при однократном вызове этой процедуры все работает на ура. Но, если после первого создания файла, попытаться создать еще один, то получаю exception - Project Project1.exe raised exception class EOleException with message 'Only one top level element is allowed in an XML document'. Верно ли я понимаю, что при повторном вызове почему то используется предыдущий объект xml? Пробовал добавить Код: `xml.Destroy; xml:=Nil;` в конец процедуры, но тогда получаю ошибку 'Acces violation at address ...'. Буду очень благодарен совету

12.04.2015, 22:32	#2
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	XMLDocument1.Create это что? TXMLDocument.Create И xml.Free в конце обязательно, а то утечки будут Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

13.04.2015, 09:35	#4
Utkin Старожил Регистрация: 04.02.2009 Сообщений: 17,351	Код: `nodelist:=xml.DocumentElement.ChildNodes;` Есть ли они, ноды? Попробуйте сначала определить количество детей, прежде чем получать их все. Чему равно loadxml? Путь который Вы собираете корректен? Маньяк-самоучка Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика Последний раз редактировалось Utkin; 13.04.2015 в 09:38.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Повторное использование формы	kogtishka	Общие вопросы Delphi	1	16.04.2012 19:57
Повторное использование структуры	Karmadon	Общие вопросы C/C++	2	29.02.2012 12:00
Использование компонента idUdpClient без компонента TForm.	Riply	Компоненты Delphi	2	18.02.2011 21:21
Использование компонента TreeView	girz	БД в Delphi	8	01.06.2009 10:28
Использование внешнего компонента	Gray[cLmT]	Общие вопросы Delphi	1	16.04.2008 10:18