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

[kate158]

Аватар, я не могу догнать, как найти двоичные нули в файле?

[FaTaL]

Если у Вас фиксированное кол-во нулей в каждом файле, а именно 5804, то просто обрежьте файл через TFileStream.

[Аватар]

var Stream: TMemoryStream;
    b,b0: Byte;
begin
  Stream:=TMemoryStream.Create;
  Stream.LoadFromFile('e:\80020_1001000012_20140826_18353.xml');
  Stream.Position:=Stream.Size-1;
  b0:=Ord(' ');
  Stream.Read(b,1);
  while b=0 do begin
    Stream.Position:=Stream.Position-1;
    Stream.Write(b0,1);
    Stream.Position:=Stream.Position-2;
    Stream.Read(b,1);
  end;
  XMLDocument1.LoadFromStream(Stream);
  Stream.Free;

[Serge_Bliznykov]

обрезать лишнее можно и так:

procedure TForm1.Button1Click(Sender: TObject);
var
  tf : TFileStream;
  i : integer;
  S, S2 : AnsiString;
  XmlDocNode, XmlAttr : IXMLNode;
  fn : string;
  od : TOpenDialog;
  mainNode: IXMLNode;
  nodes: IXMLNodeList;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath(Application.ExeName);
  if not Od.Execute then Exit;
  fn := Od.FileName;
  if not FileExists(fn) then begin
    ShowMessage('Файл с заданным именем не существует. Действие отменено');
    Exit;
  end;

  tf := TFileStream.Create(fn,fmOpenRead);
  try
  SetLength(S, tf.Size);
  tf.Read(S[1], tf.Size);
  S2 := '';
  for i := 1 to Length(S) do
     if S[i]<>#0 then S2 := S2 + S[i];
  finally
    FreeAndNil(tf);
  end;


  XMLDocument1.LoadFromXML(S2);
  XMLDocument1.Active := True;
...

но проблема в том, что потом в цикле по nodes возникает ошибка "Element does not contain a single text node"

что это за ошибка я не знаю, с XML опыта нет...

добавлено
похоже, что ошибка говорит о том, что нельзя пытаться получить NodeValue у узла, которые имеет потомков!

не стоит читать свойство НодеВалуе у узла, имеющего чайлд-узлы, ибо
Otherwise, trying to read or set NodeValue causes an exception.

        For i := 0 To nodes.Count -1 Do
                 memo1.Lines.Add(inttostr(i)+' '+Nodes.Get(i).NodeName);