работа с файлами xml

[kate158]

ну наконец то, я зашла сюда, года 2 не была точно.
вопрос: есть вялое подобие xml-файла, с четкой структурой, все как надо, но корректно не открывается из-за наличия в конце файла пробелов. как устранить проблему? открывать как блокнот, искать последний тег </message> и удалять лишние символы?

[Аватар]

Чем не открывается? XMLDocument такое съест без проблем

[kate158]

файл должен корректно разбираться и загружаться в БД в последствии,
а если открыть в IE, то в самом конце ошибка: "Не удается отобразить страницу XML
Не удается просмотреть ввод XML с использованием списка стилей XSL. Исправьте ошибку и затем нажмите кнопку "Обновить"или повторите попытку позднее. Ошибка в элементе верхнего уровня документа. Ошибка при обработке ресурса ''file:///C:/Documents and Settings/..."

[Аватар]

Дык в данных проблема, пробелы не при делах. Сюда его прикрепите, если не секрет

[kate158]

я думаю проблема в пробелах в конце файла. как ее убрать? с какими компонентами работать?

[Аватар]

Там двоичные нули в конце и много, а не пробелы. Придется убрать или заменить на пробелы и будет Ok. Отредактировать можно в FileStream, MemoryStream или любыми средствами, позволяющими редактировать двоичные файлы

[kate158]

что для этого следует использовать? и вообще какой план действий?

[Serge_Bliznykov]

там в конце не пробелы, а нули (нулевые байты).

Похоже, что какой-то софт глючит.
Вас устроит вариант - открыть исходный файл, переписать в новый (или временный) файл всё, кроме конечных нулевых байт, и далее работать с новым файлом?



добавлено через 1 минуту
Блин, какие все быстрые.. пока я читал и файл открывал, тут уже кучу постов понаписали...

[kate158]

я же не могу его открыть? на строке

XMLDocument1.Active := True;

вылазит ошибка "В текстовом комментарии обнаружен недопустимый знак"

мой код полностью:

procedure TForm1.Button1Click(Sender: TObject);
var
  F : File;
  i, j, Size : Integer;
  S : String; //AnsiString;
  XmlDocNode, XmlAttr : IXMLNode;
  Od : TOpenDialog;
  mainNode: IXMLNode;
  nodes: IXMLNodeList;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath(Application.ExeName);
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    ShowMessage("Файл с заданным именем не существует. Действие отменено");
    Exit;
  end;

  AssignFile(F, Od.FileName);
  Reset(F, 1);
  Size := FileSize(F);
  SetLength(S, Size);
  BlockRead(F, S[1], Size);
  CloseFile(F);

  XMLDocument1.LoadFromXML(S);
  XMLDocument1.Active := True;
  mainNode := xmlDocument1.DocumentElement;
  nodes := mainNode.ChildNodes;
        For i := 0 To nodes.Count -1 Do
                memo1.Lines.Add(nodes.Get(i).NodeValue);
                xmlDocument1.Active :=False;
end;

[Аватар]

И не откроете, сначала избавьтесь от нулей.