xml builder Download - xml builder Source Code Download

xml builder

كود مصدر دلفي

1.1.0

تنزيل

XML Builder

تثبيت

يتم التثبيت باستخدام سطر الأوامر boss install :

boss install viniciussanchez/xml-builder

التثبيت اليدوي لدلفي

إذا اخترت التثبيت يدويًا ، فما عليك سوى إضافة المجلدات التالية إلى مشروعك ، في Project> Options> Resource Mensories> الدلائل والشرطية> قم بتضمين مسار بحث الملف

 ../xml-builder/src

⚡ Quickstart

 uses Xml.Builder;

var
  LDeveloperNode, LProjectsNode: IXmlNode;
begin
  LProjectsNode := TXmlNode.New( ' projects ' )
    .AddElement( ' Horse ' , ' yes ' )
    .AddElement( ' Boss ' , ' yes ' )
    .AddElement( ' RESTRequest4Delphi ' , ' yes ' )
    .AddElement( ' DataSet-Serialize ' , ' yes ' )
    .AddElement( ' BCrypt ' , ' yes ' );

  LDeveloperNode := TXmlNode.New( ' developer ' )
    .AddAttribute( ' mvp ' , ' true ' )
    .AddElement( ' firstName ' , ' Vinicius ' )
    .AddElement( ' lastName ' , ' Sanchez ' )
    .AddElement( ' age ' )
    .AddNode(LProjectsNode);

  TXmlBuilder.New
    .AddNode(LDeveloperNode)
    .Xml;
end ;

// Another way to implement:

begin
  TXmlBuilder.New
    .AddNode(TXmlNode.New( ' developer ' )
      .AddAttribute( ' mvp ' , ' true ' )
      .AddElement( ' firstName ' , ' Vinicius ' )
      .AddElement( ' lastName ' , ' Sanchez ' )
      .AddElement( ' age ' )
      .AddNode(TXmlNode.New( ' projects ' )
        .AddElement( ' Horse ' , ' yes ' )
        .AddElement( ' Boss ' , ' yes ' )
        .AddElement( ' RESTRequest4Delphi ' , ' yes ' )
        .AddElement( ' DataSet-Serialize ' , ' yes ' )
        .AddElement( ' BCrypt ' , ' yes ' )))
    .Xml;
end ;

نتيجة:

<? xml version = " 1.0 " encoding = " UTF-8 " ?>
< developer mvp = " true " >
   < firstName >Vinicius</ firstName >
   < lastName >Sanchez</ lastName >
   < age />
   < projects >
      < Boss >yes</ Boss >
      < DataSet-Serialize >yes</ DataSet-Serialize >
      < RESTRequest4Delphi >yes</ RESTRequest4Delphi >
      < BCrypt >yes</ BCrypt >
      < Horse >yes</ Horse >
   </ projects >
</ developer >

يمكنك أيضًا حفظ الملف على القرص:

TXmlBuilder.New.SaveToFile( ' C:sample.xml ' );

⚡ محول مجموعة البيانات

 uses Xml.Builder;

begin
  mtDeveloper.Append;
  mtDeveloperfirstName.AsString := ' Vinicius ' ;
  mtDeveloperlastName.AsString := ' Sanchez ' ;
  mtDevelopermvp.AsBoolean := True;
  mtDeveloper.Post;
  
  mmXml.Lines.Text := TXmlBuilder.Adapter(mtDeveloper).Xml;
end ;

نتيجة:

<? xml version = " 1.0 " encoding = " UTF-8 " ?>
< mtDeveloper >
   < firstName >Vinicius</ firstName >
   < lastName >Sanchez</ lastName >
   < mvp >True</ mvp >
</ mtDeveloper >