xml builder

XML 빌더

설치

boss install 명령 줄을 사용하여 설치가 수행됩니다.

boss install viniciussanchez/xml-builder

델파이 수동 설치

수동으로 설치하기로 선택한 경우 프로젝트> 옵션> 리소스 컴파일러> 디렉토리 및 조건부 에서 다음 폴더를 프로젝트에 추가하기 만하면됩니다.

 ../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 >

켈 특허

XML Builder 는 무료 및 오픈 소스 소프트웨어가 MIT 라이센스에 따라 라이센스가 부여됩니다.