FluentXML

Selamat datang di fluentxml

Unit ini menunjukkan bagaimana kami dapat menghasilkan dokumen XML di Object Pascal (Delphi) dengan cara sederhana menggunakan pola desain yang lancar dan ditawarkan kepada layanan masyarakat untuk tujuan ini.

Uğur Parlayan

http://www.potansif.com

Misalnya;

 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 ;

Dan kemudian output yang dihasilkan adalah sebagai berikut;

<? 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 >