|
ตัวย่างต่อไปนี้ จะเป็นตัวอย่างง่ายๆสำหรับการอ่านไฟล์ 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 ด้วย
|
