FluentXML

ยินดีต้อนรับสู่ fluentxml

หน่วยนี้แสดงให้เห็นว่าเราสามารถผลิตเอกสาร XML ใน Object Pascal (Delphi) ได้อย่างไรด้วยวิธีง่ายๆในการใช้รูปแบบการออกแบบที่คล่องแคล่วและนำเสนอให้บริการชุมชนเพื่อจุดประสงค์นี้

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 >