마음의 안정을 찾기 위하여 - TXMLDocument를 이용하여 XML File 생성하고 값 일어오기
1808097
502
360
관리자새글쓰기
태그위치로그방명록
별일없다의 생각
dawnsea's me2day/2010
색상(RGB)코드 추출기(Color...
Connection Generator/2010
최승호PD, '4대강 거짓말 검...
Green Monkey**/2010
Syng의 생각
syng's me2DAY/2010
천재 작곡가 윤일상이 기획,...
엘븐킹's Digital Factory/2010
TXMLDocument를 이용하여 XML File 생성하고 값 일어오기
Delphi | 2007/06/01 10:22

TXMLDocument를 이용하여 XML파일을 생성하고 읽어오는 예제이며, 에러처리등의 부분은
빠져있을 수 있음.

uses XMLDoc, XMLIntf...

- XML File Create

Var
  XMLDoc : TXMLDocument;

  RootNode  : IXMLNode;
  ChildNode : IXMLNode;
begin
  XMLDoc := TXMLDocument.Create(Application);
  XMLDoc.Active := True;

  RootNode := XMLDoc.AddChild('CreateXML Test');
  RootNode.Attributes['app'] := ParamStr(0);

  XMLDoc.Encoding:= 'euc-kr';

  ChildNode := RootNode.AddChild('item');
  ChildNode.Attributes['text'] := 'text';
  ChildNode.Attributes['kind'] := 'kind';
  ChildNode.Attributes['url']  := 'url';

  XMLDoc.SaveToFile('C:\Test.Xml');
  XMLDoc.Free;




 - XML File Read

Var
  XMLDoc    : TXMLDocument;
  ChildNode : IXMLNode;

  I, J      : Integer;
begin
  XMLDoc := TXMLDocument.Create(Application);
  XMLDoc.LoadFromFile('C:\Test.Xml');
  XMLDoc.Active := True;

  if XMLDoc.ChildNodes.First = nil then Begin
    Exit;
  End;

  For I := 0 To XMLDoc.DocumentElement.ChildNodes.count - 1 Do Begin
    ChildNode := XMLDoc.DocumentElement.ChildNodes[i];
    For J := 0 To ChildNode.AttributeNodes.Count - 1 Do Begin
      ShowMessage(
      ChildNode.AttributeNodes.Get(J).NodeName + #13 +
      ChildNode.AttributeNodes.Get(J).NodeValue );
      // ChildNode.AttributeNodes.Get(J).NodeType + #13 +
   End;
  End;
  XMLDoc.Free;
End;

2007/06/01 10:22 2007/06/01 10:22
Article tag list Go to top
View Comment 0
Trackback URL :: 이 글에는 트랙백을 보낼 수 없습니다
 
 
 
 
: [1] ... [733][734][735][736][737][738][739][740][741] ... [849] :
«   2020/12   »
    1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31    
전체 (849)
출판 준비 (0)
My-Pro... (41)
사는 ... (492)
블로그... (22)
My Lib... (32)
게임 ... (23)
개발관... (3)
Smart ... (1)
Delphi (76)
C Builder (0)
Object... (0)
VC, MF... (9)
Window... (1)
Open API (3)
Visual... (0)
Java, JSP (2)
ASP.NET (0)
PHP (4)
Database (12)
리눅스 (28)
Windows (21)
Device... (1)
Embedded (1)
게임 ... (0)
Web Se... (2)
Web, S... (19)
잡다한... (5)
프로젝트 (0)
Personal (0)
대통령... (9)
Link (2)