Ошибка при загрузке XML файла

[Alter]

Ошибка при загрузке XML файла. Что не так? Неужели русские буквы на это влияют? Word тоже не хочет открывать.

[Аватар]

В вашем xml как минимум заголовка нет

add

в начало строчку вставьте

<?xml version="1.0" encoding="windows-1251"?>

[Alter]

Без принудительного добавления <?xml version="1.0" encoding="windows-1251"?>, в начало файла, никак не обойти?
Странно, что с этим файлом капризничает. Файл от сторонней программы.
В своем же файле, без заголовка прекрасно читает и пишет.

[Аватар]

Обойтись можно, но обрабатывая своими средствами. XMLDocument не кушает пока этой строчки нет. Заголовок вставил и браузер скушал и XMLDocument, до этого не в какую

[Alter]

Спасибо. Сделал таким костылем:

function PrepLoadXML(Path :string):string;
var
  Lst :TStrings;
begin
 Result := '';
 if FileExists(Path) then
 begin
   Lst := TStringList.Create;
    try
   Lst.LoadFromFile(Path);
   if Lst.Count > 0 then
    Lst.Insert(0, '<?xml version="1.0" encoding="windows-1251"?>');
   Result := Lst.Text;
    finally
   FreeAndNil(Lst);
    end;
 end;
end;

// ...

procedure TForm1.Button1Click(Sender: TObject);
var
  BufXML :string;
begin
 Button1.Enabled := False;
 if XMLDocument1.Active then
   try
// XMLDocument1.Version := '1.0';
// XMLDocument1.Encoding := 'windows-1251';
 BufXML := PrepLoadXML(FullFPath);
 if BufXML <> '' then
  XMLDocument1.LoadFromXML(BufXML);
   finally
 CheckBox1.Checked := XMLDocument1.Active;
 Button1.Enabled := True;
   end;
end;

Но если сделать кодировку файла UTF-8, то отсутствие заголовка не влияет на работу. И MSXML все прекрасно обрабатывает.
Программа-тест выводящая некоторую информацию, для проверки работы.