Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail



Ответ
 
Опции темы
Старый 24.09.2011, 20:23   #1
Alter
Профессионал
 
Аватар для Alter
 
Регистрация: 06.08.2007
Адрес: Пустота
Сообщений: 2,206
Репутация: 982
Стрелка Ошибка при загрузке XML файла

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


Вложения
Тип файла: rar HZxml.rar (475.7 Кб, 6 просмотров)
__________________
DelphiWorld 6, АVL 2.0.1.3
Америка - единственная страна, которая от варварства перешла прямо к упадку, минуя стадию цивилизации.(Жорж Клемансо,Оскар Уайльд)
Alter вне форума   Ответить с цитированием
Старый 24.09.2011, 20:36   #2
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк, Украина
Сообщений: 15,447
Репутация: 5668
По умолчанию

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

add

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

<?xml version="1.0" encoding="windows-1251"?>
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 24.09.2011 в 23:53.
Аватар на форуме   Ответить с цитированием
Старый 25.09.2011, 01:27   #3
Alter
Профессионал
 
Аватар для Alter
 
Регистрация: 06.08.2007
Адрес: Пустота
Сообщений: 2,206
Репутация: 982
По умолчанию

Без принудительного добавления <?xml version="1.0" encoding="windows-1251"?>, в начало файла, никак не обойти?
Странно, что с этим файлом капризничает. Файл от сторонней программы.
В своем же файле, без заголовка прекрасно читает и пишет.
__________________
DelphiWorld 6, АVL 2.0.1.3
Америка - единственная страна, которая от варварства перешла прямо к упадку, минуя стадию цивилизации.(Жорж Клемансо,Оскар Уайльд)
Alter вне форума   Ответить с цитированием
Старый 25.09.2011, 10:48   #4
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк, Украина
Сообщений: 15,447
Репутация: 5668
По умолчанию

Обойтись можно, но обрабатывая своими средствами. XMLDocument не кушает пока этой строчки нет. Заголовок вставил и браузер скушал и XMLDocument, до этого не в какую
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар на форуме   Ответить с цитированием
Старый 25.09.2011, 13:58   #5
Alter
Профессионал
 
Аватар для Alter
 
Регистрация: 06.08.2007
Адрес: Пустота
Сообщений: 2,206
Репутация: 982
По умолчанию

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

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 все прекрасно обрабатывает.
Программа-тест выводящая некоторую информацию, для проверки работы.
Вложения
Тип файла: rar HZxml2.rar (544.8 Кб, 2 просмотров)
__________________
DelphiWorld 6, АVL 2.0.1.3
Америка - единственная страна, которая от варварства перешла прямо к упадку, минуя стадию цивилизации.(Жорж Клемансо,Оскар Уайльд)

Последний раз редактировалось Alter; 25.09.2011 в 14:00.
Alter вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при загрузке файла через броузер _PROGRAMM_ PHP и другие серверные скрипты 6 24.01.2011 09:52
Проблема при загрузке файла XML в TreeView artemavd Общие вопросы Delphi 1 20.06.2010 15:39
Ошибка компонента TADOQuery при загрузке запроса из файла в Delphi 2006 WhiteKoS Помощь студентам 2 16.02.2008 16:07
Обработка XML строки при загрузке dbf в Delphi SereJa1020 БД в Delphi 1 18.12.2007 19:28
Ошибка при загрузке файла html Ign Microsoft Office Excel 1 11.11.2007 14:55




16:05.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
таргетированный трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru