1. 개발/실행 플랫폼

(1) OS :windows8.1

(2) 개발툴 :델파이7

(3) 사용 Database :MSSQL

2. 개발 중인 프로그램

3. 질문 내용

XML 질문드립니다.

결과물 입니다.

<?xml version="1.0" encoding="UTF-8"?>

<MedicalNursesRecords>
<CHNO>1-123</CHNO>
<HIMNAME>테스트</HIMNAME>
<IPDATE> 2019-04-20</IPDATE>
<BIRTH> 12.34.56</BIRTH>
<AGESEX> 99/M</AGESEX>
<HOSIL> 444</HOSIL>
</MedicalNursesRecords>

 

<?xml-stylesheet type="text/xsl" href="Record.xsl"?>   이부분을 넣어야하는데 어떻게 하는줄 모르겠어요 ㅠ

고수님들 좀알려주세요 ㅠㅠㅠㅠ  

아니면 xml파일 Load해서 <AGESEX> 99/M</AGESEX> 결과값만 바꿔서 다시 저장하는법도 있다면 알려주세요.....ㅜㅜㅜㅜㅜ

몇일째 해결이안되네요 ㅠㅠㅠㅠㅠㅠㅠㅠ 누가좀도와주세요 ㅠㅠㅠㅠㅠㅠㅠ 

 

 

procedure TForm2.Button1Click(Sender: TObject);
Var
  xdSoft : TXMLDocument;
  xdSoft2 : TXMLDocument;
  xnRoot  : IXMLNode;
  xnChild : IXMLNode;
  xnGrandchild : IXMLNode;
begin
// XML Document 만들기
  xdSoft := TXMLDocument.Create(Application);
  xdSoft.Active := True;
  xdSoft.Encoding:= 'UTF-8';
  xdSoft.CreateNode('xml-stylesheet', ntProcessingInstr,'type="text/xsl" href="TheStylesheetFile"');

  xnRoot := xdSoft.AddChild('RecordInformation');
  xnGrandchild := xnRoot.AddChild('CHNO');
  xnGrandchild.NodeValue := '1-123';
  xnGrandchild := xnRoot.AddChild('HIMNAME');
  xnGrandchild.NodeValue := '테스트';
  xnGrandchild := xnRoot.AddChild('IPDATE');
  xnGrandchild.NodeValue := '2019-04-20';
  xnGrandchild := xnRoot.AddChild('BIRTH');
  xnGrandchild.NodeValue := '12.34.56';
  xnGrandchild := xnRoot.AddChild('AGESEX');
  xnGrandchild.NodeValue := '99/M';
  xnGrandchild := xnRoot.AddChild('HOSIL');
  xnGrandchild.NodeValue := '444';
  xnGrandchild := xnRoot.AddChild('RecordInformation');

  xdSoft.SaveToFile('D:\작업실\Test.Xml');
  WebBrowser1.Navigate('D:\작업실\Test.Xml');
  xdSoft.Free;
end;