FluentXML

FluentXML에 오신 것을 환영합니다

이 장치는 유창한 디자인 패턴을 사용하는 간단한 방법으로 Object Pascal (Delphi)에서 XML 문서를 생성 할 수있는 방법을 보여 주며이 목적을 위해 커뮤니티 서비스에 제공됩니다.

Uğur Parlayan

http://www.potansif.com

예를 들어;

 procedure TForm1.Button1Click (Sender: TObject);
var
 XML: TFluentXML;
begin
 try
   XML := New
         .Version( 1.0 )
         .Encoding(TEncoding.UTF8)
         .NameSpace( ' ' )
         .Add( ' Kitaplar '
             ,New
             .Add( ' Kitap ' , [ ' ID="1000" ' , ' Indirimli="Hayir" ' ]
                 ,New
                 .Add( ' Adi '   , ' Mastering Delphi ' )
                 .Add( ' Fiyat ' , 50 )
                 .Add( ' Stok '  , 40 )
                 .Add( ' Yazarlar '
                     ,New
                     .Add( ' Yazar ' , ' Marco CANTU ' )
                     .Add( ' Yazar ' , ' <![CDATA[TEST]]> ' )
                     )
                 )
             .Add( ' Kitap ' , [ ' ID="1001" ' , ' Indirimli="Evet" ' ]
                 ,New
                 .Add( ' Adi '   , ' PHP, MySQL ve Apache ' )
                 .Add( ' Fiyat ' , 65 )
                 .Add( ' Stok '  , 30 )
                 .Add( ' Yazarlar '
                     ,New
                     .Add( ' Yazar ' , ' Julie C. MELONI ' )
                     )
                 )
             .Add( ' Kitap ' , [ ' ID="1002" ' , ' Indirimli="Evet" ' ]
                 ,New
                 .Add( ' Adi '   , ' Delphi Cookbook ' )
                 .Add( ' Fiyat ' , 35 )
                 .Add( ' Stok '  , 300 )
                 .Add( ' Yazarlar '
                     ,New
                     .Add( ' Yazar ' , ' Daniele TETİ ' )
                     )
                 )
             )
         ;
   Memo1.Text := XML.SaveToFile(‘C:TempDemo.xml’).AsString;
 finally
   FreeAndNil(XML);
 end ;
end ;

그리고 생성 된 출력은 다음과 같습니다.

<? xml version = " 1.0 " encoding = " UTF-8 " ?>
< Kitaplar >
	< Kitap ID = " 1000 " Indirimli = " Hayir " >
		< Adi >Mastering Delphi</ Adi >
		< Fiyat >50</ Fiyat >
		< Stok >40</ Stok >
		< Yazarlar >
			< Yazar >Marco CANTU</ Yazar >
			< Yazar > <![CDATA[ TEST ]]> </ Yazar >
		</ Yazarlar >
	</ Kitap >
	< Kitap ID = " 1001 " Indirimli = " Evet " >
		< Adi >PHP, MySQL ve Apache</ Adi >
		< Fiyat >65</ Fiyat >
		< Stok >30</ Stok >
		< Yazarlar >
			< Yazar >Julie C. MELONI</ Yazar >
		</ Yazarlar >
	</ Kitap >
	< Kitap ID = " 1002 " Indirimli = " Evet " >
		< Adi >Delphi Cookbook</ Adi >
		< Fiyat >35</ Fiyat >
		< Stok >300</ Stok >
		< Yazarlar >
			< Yazar >Daniele TETİ</ Yazar >
		</ Yazarlar >
	</ Kitap >
</ Kitaplar >