XMLDocument1 tworzenie dokumentu XML

[Darek_C++]

Osadziłem komponent XMLDocument1 na formularzu odczytać dokument XML mogę, ale nie wiem jak go utworzyć z poziomu programu i tego komponentu znalazłem artykuł o tym http://flylib.com/books/en/3.264.1.113/1/ kod testowy:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
        XMLDocument1->Active = true;
        _di_IXMLNode Chapter = XMLDocument1->DocumentElement;
        Chapter->AddChild("Section"); // Tutaj wyjątek
        _di_IXMLNode NewSection = Chapter->ChildNodes->GetNode(Chapter->ChildNodes->Count-1);
        NewSection->SetAttribute("Title", (AnsiString)"New Section Title");
        NewSection->AddChild("Components");
        NewSection->AddChild("Wizards");
        AnsiString XML;
        XMLDocument1->SaveToXML(XML);
        ShowMessage(XML);
}

Uruchomienie tego kodu zgłasza wyjątek:

"First chance exception at $7C812AFB. Exception class EAccessViolation with message 'Access violation at address 00402A1B in module 'Project1.exe'. Read of address 00000000'. Process Project1.exe (3956)".

Pytanie brzmi jak prawidłowo utworzyć przykładowo taki prosty dokument XML

KOD mysql:   �  UKRYJ  �

KOD mysql:   �  POKAŻ  �

<?xml version="1.0" ?>
<document>
        <title>Tytuł..</title>
        <description>Opis..</description>      
        <description>Opis..</description>
        <keywords>Słowa kluczowe.. Test ąęśćn</keywords>
</document>

I wypełnić go danymi?

[Cyfrowy Baron]

Zapoznaj się z tym wątkiem: Problem z Plikiem XML

[Darek_C++]

Metoda ma taki prototyp:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 void __fastcall SaveToXML(WideString &XML)/* overload */;

czyli ma umieścić dane w zmiennej XML . Wiec jest prawidłowa.
Wyjątek zgłaszany jest znacznie wyżej.
----
W tej chwili do tworzenie pliku XML korzystam właśnie z TinyXML. Ale chciał bym się mimo wszystko dowiedzieć jak to się robi przy użyciu komponenty XMLDocument1

[Cyfrowy Baron]

Zorientowałem się, więc usunąłem swój ostatni post.

Na XMLDocument nie znam się wogóle, więc nie pomogę, ale co do przykąłdowego kodu, to powinno wyglądać tak:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 XMLDocument1->Active = true;
 XMLDocument1->AddChild("Sekcja");

 _di_IXMLNode NewSection =
      XMLDocument1->ChildNodes->GetNode(XMLDocument1->ChildNodes->Count - 1);

 NewSection->SetAttribute("Title", "New Section Title");
 NewSection->AddChild("Components");
 NewSection->AddChild("Wizards");
 XMLDocument1->SaveToFile("c:\\file.xml");
 String XML;
 XMLDocument1->SaveToXML(XML);
 ShowMessage(XML);

[Darek_C++]

Z zapisem do pliku XML poradziłem sobie takim kodem:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button4Click(TObject *Sender)
{

        try
        {
                _di_IXMLNode NewNode;
                _di_IXMLNode operationsStatementNode;
                _di_IXMLNode ValueNode;

                Parser->Active = false;
                Parser->XML->Clear();
                Parser->XML->Add("<?xml version=\"1.0\" encoding=\"UTF-8\"?>");
                Parser->XML->Add("<operationsSt></operationsSt>");
                Parser->Active = true;

                operationsStatementNode = Parser->ChildNodes->FindNode("operationsSt");

                NewNode = operationsStatementNode;

                ValueNode = NewNode->AddChild(WideString("format"));
                ValueNode->Text = WideString("2.2");

                ValueNode = NewNode->AddChild(WideString("Name"));
                ValueNode->Text = WideString("Test..");

                ValueNode = NewNode->AddChild(WideString("ID"));
                ValueNode->Text = WideString("Test 2..");

                ValueNode = NewNode->AddChild(WideString("TytulWpisu"));
                ValueNode->Text = WideString(Memo1->Text);

                Parser->SaveToFile("test.xml");
        }
        catch(Exception &e)
        {
                ShowMessage(e.Message);
                return;
        }
}