名前 題名 ▼ Mr.XRAYさん > やってみました．私は Pro 版なので必要ないのですが， > 環境は，Windows 7 U64(SP1) + Delphi XE5 Pro(UP2) です． > > 操作手順は次の通りです． > > (1) http://www.philo.de/xml/downloads.shtml から > 以下のファイルをダウンロードして解凍 > 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] > http://blogs.embarcadero.com/teamj/2011/06/06/2080/ > > ですが，ビルドまたはインストールの際に次のエラーが発生したので修正 > > (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 ファイルです． > 上の図が設計時のもの，下の図が実行結果です． > なお，このン件についての質問は一切受け付ける予定はありません． > 特に，何万行のプログラムの中でテストしてトラブルになっている方からは > 受け付けません(笑) GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link