| [7152] Re:Open XML の使い方? | 返信 削除 |
| 2014/1/15 (水) 13:39:29 Mr.XRAY |
|
やってみました．私は Pro 版なので必要ないのですが， 環境は，Windows 7 U64(SP1) + Delphi XE5 Pro(UP2) です． 操作手順は次の通りです． (1) 以下のファイルをダウンロードして解凍 Utility Library v.3.0.3 (released 2012-01-21) Alternative Document Object Model v.5.1.6 (released 2012-03-27) (2) インストールは次の記事を参考にしました． Utilities_DXE2.dpk をビルドし，dpkAdom_5_1DelphiXE2.dpk をイントールしました． [Delphi XE Starter EditionでXMLをパースする - Open XML] ですが，ビルドまたはインストールの際に次のエラーが発生したので修正 (3) unit dkAdomReg; で未定義のエラーが発生したので以下のように修正 {$ELSE} DesignIntf, {$ENDIF} (4) ポインタ型が必要ですのエラーが何か所かあったので修正 (5) 「新規プロジェクト」(新規です，新規です) を作成し， 図のようにコンポーネントを配置 XmlToDomParser1 の DOMImpl プロパティ を DomImplementation1 にした (6) テストコードを以下のようにしました procedure TForm1.Button1Click(Sender: TObject); var FilePath : String; Dom : TdomDocument; tweets : TDomNodeList; i : Integer; begin FilePath := ExtractFilePath(Application.ExeName) + 'ZipAddress.xml'; Dom := XmlToDomParser1.ParseFile(FilePath, True); tweets := dom.GetElementsByTagName('address'); for i := 0 to tweets.Length -1 do begin Memo1.Lines.Add(tweets.Item(i).GetFirstChildElement('prefecture').FirstChild.NodeValue); Memo1.Lines.Add('--------------'); end; end; コード中の ZipAddress.xml は， [921_WebAPI_REST による郵便番号と住所検索] で作成した XML ファイルです． 上の図が設計時のもの，下の図が実行結果です． なお，このン件についての質問は一切受け付ける予定はありません． 特に，何万行のプログラムの中でテストしてトラブルになっている方からは 受け付けません(笑)  |