- お知らせ -
  • 当wikiのプログラムコードの表示を直してみました(ついでに長い行があると全体が下にぶっ飛ぶのも修正)。不具合があればBBSまでご連絡下さい。

Introduction Edit

OpenXMLを簡単に扱うためのライブラリです。
It's a library to use OpenXML easily.

現在、Delphi付属のXMLライブラリでも使えるように改修中です。

Examples Edit

Writing Edit

XML

<moge>
  <hage>1234</hage>
  <hoge>ha-ge</hoge>
  <hoge>True</hoge>
</moge>

Code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses O3EasyXMLUnit;
:
XML := TO3EasyXMLWriter;
try
  XML.BeginElement('moge');
  try
    XML.Write('hage', 1234);
    XML.Write('hoge', 'ha-ge');
    XML.Write('hoge', True);
  finally
    XML.EndElement;
  end;
   XML.WriteToFile('hoge.xml');
finally
  FreeAndNil(XML)
end;

Reading Edit

XML

<moge>
  <hage>1234</hage>
  <hoge>ha-ge</hoge>
  <hoge>xyzzy</hoge>
</moge>

Source

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
uses D3UtilsUnit, O3EasyXMLUnit;
: 
procedure FogeMoge;

  procedure DoEnumFunction(const index: Integer); cdecl;
  begin
    Writeln('hoge: ', FXML.Read());
  end;
var XML: TO3EasyXMLReader
begin
  XML := TO3EasyXMLReader.Create;
  try
    XML.LoadFromFile('hoge.xml');
    Writeln('in moge');
    XML.BeginElement('moge');
    try
      Writeln('hage: ', XML.Read('hage'));
      XML.Enum('hoge', TDoEnumFunction(@DoEnumFunction), D3GetContext);
    finally
      XML.EndElement;
    end;
  finally
    FreeAndNil(XML);
  end;
end;

Download Edit

O3EasyXML.zip

License Edit

MPL 1.1です。

History Edit

  • 2005/05/05 enumを一つに
  • 2005/05/02 とりあえず、作成



Front page   Edit Freeze Diff Backup Upload Copy Rename Reload   New Pages Search Recent changes   Help   RSS of recent changes
Last-modified: 2008-11-07 Fri 20:58:28 JST (3060d)