関連記事
- 【#Assembler】結局x64のアセンブラでゴニョゴニョと書き始めたオイラはバカかっ!(爆 【2024年05月13日(月)】
- 【#VCPP #VisualStudio】VS2022のVC 64ビットコンパイルでインラインアセンブラが使えなくなってるぞー 【2024年05月10日(金)】
- 【#CPP】出先でC++にてライブラリの緊急実装!脳死したーキョムリすぎるー 【2024年01月15日(月)】
- 【C#】謎な改造アプリ,SIMD命令を導入して高速化しようか,思案中 【2023年11月14日(火)】
- 生成AI「仕事で利用」2割 正確性などに懸念(23/5/7) 【2023年05月07日(日)】
ここのページにサンプルがありまして
コードを抜粋しておきます
procedure SaveXMLToFile(FileName: TFileName); var lStringList: TStringList; Writer: IMXWriter; Reader: IVBSAXXMLReader; begin Writer := CoMXXMLWriter.Create; Reader := CoSAXXMLReader.Create; Writer.byteOrderMark := True; Writer.omitXMLDeclaration := False; Writer.indent := True; Reader.contentHandler := Writer as IVBSAXContentHandler; Reader.dtdHandler := Writer as IVBSAXDTDHandler; Reader.errorHandler := Writer as IVBSAXErrorHandler; Reader.putProperty('http://xml.org/sax/properties/lexical-handler', Writer); Reader.putProperty('http://xml.org/sax/properties/declaration-handler', Writer); Reader.parse(FDoc); lStringList := TStringlist.Create; lStringList.Text := Writer.output; lStringList.SaveToFile(FileName); end;んで,お手軽にインデント付きでXMLが出力できるんですが…
XMLファイルの先頭が必ず
<?xml version="1.0" encoding="UTF-16" standalone="no"?>に
エンコード,UTF-8で出したいのに,UTF-16でしか,出力できない感じ orz
んで,まえ,学校プロジェクトで吐き出していたXML@VC++版は,エンコードが,綺麗にS-JISと出てたよなぁ~
と思い出し…
んで,つらつら調べたら
エンコードを変えるには,IStreamを使うしか,手がなさそうな感じ…
VC++版を気合入れて,Delphi版へ書き換えてみましたわぁ~
あ,外部のpasファイルがいりますんで,注意!
//uses ShLwApi; //********************************************** //インデントつきでXMLの保存 // //********************************************** procedure TClaimOutput.SaveIndentXML(fname: string; pDoc: IXMLDOMDocument); var stmFile : IStream; wrt : IMXWriter; rdr : IVBSAXXMLReader; begin SHCreateStreamOnFile( PChar(fname), STGM_READWRITE or STGM_SHARE_DENY_WRITE or STGM_CREATE, stmFile ); wrt := CoMXXMLWriter.Create; wrt.indent := True; wrt.encoding := 'utf-8'; wrt.version := '1.0'; wrt.output := stmFile; rdr := CoSAXXMLReader.Create; rdr.contentHandler := wrt as IVBSAXContentHandler; rdr.parse(pDoc); end;SHCreateStreamOnFile()を利用するため,ShLwApi.pasがいります
Delphi5じゃ,なかったです
んで,ここから,ダウンロードしてきました
とりあえず,インデント付きでXMLは出力されていますわぁ~~♪
コメント
九州自動車道 トンネル内で大型トレーラーから出火 人吉~八代間で通行止め(24/7/26)
【#ご到着シリーズ】冷凍かしわ飯&冷凍かしわうどんセットに当選したモルモルモル
【#破局噴火】イエローストーンで大規模な水蒸気爆発が発生
暑すぎてダレてる.なんのやる気も起こらんドロドロドロ
【#Windows #CrowdStrike】セキュリティーソフト世界シェア1位があだ…ウィンドウズ障害、「過去最大規模」の見方も
3連休,らしい.これといって予定はない(爆
【#trump #shooting】トランプ暗殺未遂:トランプ氏 集会で発砲音「前大統領は無事」死者も
【#線状降水帯】九州北部山口県に線状降水帯発生予測情報発令(24/7/13)
【#落雷】今朝の雷,すごかったー 清武城かお隣のマンションに落雷したー共用部の電源落ちてるテレビが映らない!
【#彗星】紫金山アトラス彗星(C/2023 A3)がぶっ壊れた!今秋,見れると思ってたのにピエン