paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 13:17:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazxml: fix writing file path with non ansi characters

Browse Source 
git-svn-id: trunk@32928 -
This commit is contained in:
blikblum 2011-10-16 20:43:40 +00:00
parent bba0819501
commit 33e31be624
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazutils/laz2_xmlwrite.pas
View File

@ -48,6 +48,9 @@ procedure WriteXML(Element: TDOMNode; AStream: TStream); overload;
implementation implementation
uses
LazUTF8;
type type
TXMLWriter = class; TXMLWriter = class;
TSpecialCharCallback = procedure(Sender: TXMLWriter; const s: DOMString; TSpecialCharCallback = procedure(Sender: TXMLWriter; const s: DOMString;
@ -859,7 +862,7 @@ procedure WriteXMLFile(doc: TXMLDocument; const AFileName: String;
var var
fs: TFileStream; fs: TFileStream;
begin begin
fs := TFileStream.Create(AFileName, fmCreate); fs := TFileStream.Create(UTF8ToSys(AFileName), fmCreate);
try try
WriteXMLFile(doc, fs, Flags); WriteXMLFile(doc, fs, Flags);
finally finally