Есть XML-файл:
| Код |
<?xml version="1.0" encoding="windows-1251" ?>
<!DOCTYPE yml_catalog SYSTEM "shops.dtd">
<yml_catalog date="2013-08-20 14:45">
<shop>
<name>XXX.by</name>
<company>XXX"</company>
<url>XXX</url>
<currencies>
<currency id="BYR"/>
</currencies>
|
Гружу его:
| Код |
var
Doc: IXMLDOMDocument;
FS: TFileStream;
begin
FS := TFileStream.Create('D:\test.xml', fmOpenRead or fmShareDenyNone);
try
Doc := CoDOMDocument.Create;
if not Doc.load(TStreamAdapter.Create(FS) as IStream) then
raise Exception.Create(Doc.parseError.reason);
finally
FS.Free;
end;
|
Парсер не может загрузить его, т.к. в элементе <!DOCTYPE> содержится ссылка на файл shops.dtd, которого не существует. Можно ли как-нибудь указить, чтобы при загрузке игнорировалась секция <!DOCTYPE>? |