xml.rar_XML BCB_xml builder

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TfrmMainForm *frmMainForm; //--------------------------------------------------------------------------- __fastcall TfrmMainForm::TfrmMainForm(TComponent* Owner) : TForm(Owner) { XmlFile = NewXMLDocument(); XmlFile->SetEncoding(WideString("ConfigXML")); XmlFile->SetOptions(TXMLDocOptions() << doNodeAutoCreate << doNodeAutoIndent << doAutoPrefix << doNamespaceDecl ); XmlFile->Active = true; XmlFile->AddChild(WideString("InterfaceConfig")); } //--------------------------------------------------------------------------- void __fastcall TfrmMainForm::btnCreatxmlFileClick(TObject *Sender) { if(edtDllName->Text.Trim() != "") { XmlRoot = XmlFile->DocumentElement; XmlRoot->SetAttribute("ID",WideString("1")); //这一行必须加，不然不能在IE中显示 _di_IXMLNode XmlNode; XmlNode = XmlRoot->AddChild(WideString(edtDllName->Text)); XmlNode->SetAttribute("classname1",edtClassName1->Text); XmlNode->SetAttribute("classname2",edtClassName2->Text); edtDllName->Text = ""; } else { ShowMessage("请输入DLL名字！"); return; } } //--------------------------------------------------------------------------- void __fastcall TfrmMainForm::btnAddAttributeClick(TObject *Sender) { int iCount = frmMainForm->ComponentCount; int itmp = 0; _di_IXMLNode XmlChild; XmlChild = XmlRoot->GetChildNodes()->First(); while(XmlChild) { for(itmp = 0; itmp<iCount; itmp++) { TButton *btntmp = dynamic_cast<TButton *>(frmMainForm->Components[itmp]); TPanel * pantmp = dynamic_cast<TPanel *>(frmMainForm->Components[itmp]); AnsiString NodeName = AnsiString(XmlChild->GetNodeName()); if(btntmp != NULL) { if(NodeName.AnsiCompare(AnsiString(btntmp->Name)) == 0) { XmlChild->SetAttribute("DLLName",btntmp->Name); XmlChild->SetAttribute("Caption",btntmp->Caption); XmlChild->SetAttribute("ParentWindowName",btntmp->HelpKeyword); // XmlChild->SetAttribute("Hint","button存放组件的名字"); XmlChild->SetAttribute("Height",btntmp->Height); // XmlChild->SetAttribute("Font",btntmp->Font); XmlChild->SetAttribute("Width",btntmp->Width); XmlChild->SetAttribute("ShowHint",btntmp->ShowHint); XmlChild->SetAttribute("Left",btntmp->Left); XmlChild->SetAttribute("Top",btntmp->Top); XmlChild->SetAttribute("Style",btntmp->Style); XmlChild->SetAttribute("TabOrder",btntmp->TabOrder); } } if(pantmp != NULL) { if(NodeName.AnsiCompare(AnsiString(pantmp->HelpKeyword)) == 0) { XmlChild->SetAttribute("DLLName",pantmp->HelpKeyword); XmlChild->SetAttribute("BorderStyle",pantmp->BorderStyle); XmlChild->SetAttribute("BorderWidth",pantmp->BorderWidth); // XmlChild->SetAttribute("Color",pantmp->Color); // XmlChild->SetAttribute("Font",pantmp->Font); XmlChild->SetAttribute("Height",pantmp->Height); XmlChild->SetAttribute("Width",pantmp->Width); XmlChild->SetAttribute("Hint",pantmp->Hint); XmlChild->SetAttribute("Left",pantmp->Left); XmlChild->SetAttribute("Top",pantmp->Top); XmlChild->SetAttribute("TabOrder",pantmp->TabOrder); } } } XmlChild = XmlChild->NextSibling(); } XmlFile->XML->SaveToFile(ExtractFilePath(ParamStr(0)) + "Xml.xml") ; } //---------------------------------------------------------------------------