since 2001/09/30

LastUpdate: 2001/10/19

XDOMJ - 日本語対応XDOM

ダウンロード

使い方

オリジナルの XDOM との違い

• Shift-JIS / EUC-JP のXMLファイルを読み込むことができます。（TXmlToDomParser.fileToDom()）
• Shift-JIS / EUC-JP としてStreamに書き込むことができます。（クラス TdomDocument の writeCodeAsEUCJP(), writeCodeAsShiftJIS）
• Shift-JIS or EUC-JP と UCS-2(WideString) 間の自動変換を利用しているため、日本語OS上でなければ正しく動作しません。

サンプルコード

サンプルプロジェクトからの抜粋です。

---

読み込み:

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc: TDomDocument;
begin
  OpenDialog1.Filter := 'xmlドキュメント(*.xml)|*.xml|すべてのファイル(*.*)|*.*';
  if OpenDialog1.Execute then
  begin
    Memo1.Lines.Clear;
    DomImplementation1.clear;

    Doc := XmlToDomParser1.fileToDom(OpenDialog1.FileName);

    PrintNodeTree(Doc, 0);

    Memo2.Lines.Text := Doc.code;

    Button2.Enabled := True;
    Button3.Enabled := True;
  end;
end;

---

保存:

procedure TForm1.Button2Click(Sender: TObject);
var
  fs: TFileStream;
  Doc: TdomDocument;
begin
  SaveDialog1.Filter := 'xml文書(*.xml)|*.xml';
  if SaveDialog1.Execute then
  begin
    Doc := DomImplementation1.documents.item(0) as TdomDocument;

    ShowMessage(SaveDialog1.FileName);
    Caption := 'save: ' + SaveDialog1.FileName;

    fs := TFileStream.Create(SaveDialog1.FileName, fmCreate);
    try
      Doc.writeCodeAsShiftJIS(fs);
    finally
      fs.Free;
    end;
  end;

end;

ライセンス

変更した人

更新履歴