XML.com

XML.com
  Home | Resources | FAQs |
    
Home :: XML010

XML010: สร้าง Node ใหม่พร้อมเพิ่ม Attribute ให้กับ Node (Delphi)

ตัวย่างต่อไปนี้ จะเป็นตัวอย่างง่ายๆสำหรับการอ่านไฟล์ XML แล้วจัดการด้วย Delphi โดยใช้ DOM

Down Load Source Code (248Kb) พร้อม EXE file

ตัวอย่างของข้อมูลในรูปของ XML

สมมุตให้เป็นข้อมูล XML ที่มีส่วน Header และ DATA อยู่ใน <TESTXML>
 

<?xml version="1.0" encoding="windows-874"?>
<TESTXML>
<HEADER>
<VERSION>1.0</VERSION>
</HEADER>
<DATA>ทดสอบ</DATA>
</TESTXML>

บันทึกข้อมูลข้างต้นลงในไฟล์ชื่อ sample.xml ตัวอย่าง Dephi source code ที่ทำหน้าที่ load ข้อมูล แล้วก็สร้าง Node ใหม่ และ เพิ่ม Attribute คือ

procedure TForm1.Button2Click(Sender: TObject); // กรณีกดปุ่ม SAVE XML
var WorkingElement:IXMLNODE; // ประกาศตัวแปร
begin
WorkingElement:=XMLDOCument1.DocumentElement.AddChild(Edit1.Text); // เพิ่ม Child Node ให้ชื่อตาม Edit Box
WorkingElement.NodeValue := Edit2.Text; // ใส่ค่าเข้าไป
WorkingElement.Attributes[Edit3.Text]:=Edit4.Text; // สร้าง Attribute พร้อมทั้ง ให้ค่า

XMLDOCument1.SaveToFile('out.xml'); // บันทึก XML doc ทั้งหมด ลงไฟล์ชื่อ out.xml
end;


 

คล้ายๆ กับตัวอย่าง S009 แต่เป็นการจัดการกับ ATTRIBUTE ด้วย

 

Contact Us | Our Mission | Privacy Policy | Advertise With Us | Site Help
Copyright © 2002 Copy เค้ามาจาก www.xml.com จะได้ดูเหมือนๆกัน