paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 08:22:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazxml: fix reading file path with non ansi characters

Browse Source 
git-svn-id: trunk@32773 -
This commit is contained in:
blikblum 2011-10-09 00:33:26 +00:00
parent 33120cb167
commit 3c0fbef25c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/laz2_xmlread.pas
View File

@ -159,7 +159,7 @@ procedure RegisterDecoder(Proc: TGetDecoderProc);
implementation
uses
UriParser, laz2_xmlutils;
UriParser, laz2_xmlutils, LazUTF8;
const
PubidChars: TSetOfChar = [' ', #13, #10, 'a'..'z', 'A'..'Z', '0'..'9',
@ -4136,7 +4136,7 @@ var
FileStream: TStream;
begin
ADoc := nil;
FileStream := TFileStream.Create(AFilename, fmOpenRead+fmShareDenyWrite);
FileStream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead+fmShareDenyWrite);
try
ReadXMLFile(ADoc, FileStream, FilenameToURI(AFilename), Flags);
finally
@ -4188,7 +4188,7 @@ procedure ReadXMLFragment(AParentNode: TDOMNode; const AFilename: String;
var
Stream: TStream;
begin
Stream := TFileStream.Create(AFilename, fmOpenRead+fmShareDenyWrite);
Stream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead+fmShareDenyWrite);
try
ReadXMLFragment(AParentNode, Stream, FilenameToURI(AFilename), Flags);
finally
@ -4240,7 +4240,7 @@ var
Stream: TStream;
begin
ADoc := nil;
Stream := TFileStream.Create(AFilename, fmOpenRead+fmShareDenyWrite);
Stream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead+fmShareDenyWrite);
try
ReadDTDFile(ADoc, Stream, FilenameToURI(AFilename));
finally