Форум программистов [Powered by Invision Power Board]

Код


<?xml version="1.0"?>
<config>
<str>MyText</str>
<!--Red Color-->
<font>255</font>
</config>

Код


void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString Txt = "Default";
  TColor FontColor = clBlack;
  // Cretae XML Document
  if (OpenDialog1->Execute()) {
    TXMLDocument *XMLDocument = new TXMLDocument(Application);
    __try
       {
          XMLDocument->LoadFromFile(OpenDialog1->FileName);
          // Get Child Nodes
          _di_IXMLNodeList NodeList = XMLDocument->DocumentElement->GetChildNodes();
          // Find Node With String
          _di_IXMLNode Node = NodeList->FindNode(WideString("str"));
          if (Node->IsTextElement) Txt = Node->GetText();
          // Find Node With Font Color
          Node = NodeList->FindNode(WideString("font"));
          if (Node->IsTextElement) FontColor =
            TColor(StrToInt(Node->GetText()));
       }
    __finally
       {
          delete XMLDocument;
       }
    Image1->Canvas->Font->Color = FontColor;
    Image1->Canvas->TextOutA((Image1->Width  - Image1->Canvas->TextWidth(Txt)) / 2,
    Image1->Height / 2, Txt);
  }
}

Код


...
#include <msxmldom.hpp>
#include <XMLDoc.hpp>
#include <xmldom.hpp>
#include <XMLIntf.hpp>
...