ReadXML - прочитать из TStream

[son]

Доброго всем. Небольшой вопрос. Есть XML документ, который открываю в SynEdit. Его структуру хочу еще распарсить в отдельное дерево. Не получается прочитать документ из текста в SynEdit:

Код: Выделить всё

var XMLDoc : TXMLDocument;
    XMLM   : TMemoryStream;
    ndDef  : TDOMNOde;
    iRow : integer;

begin
  SynEdit3.Text:=PRJClass.FServerConfigFileText.Text;
  tbKUDefense.BeginUpdate;
  tbKUDefense.RowCount:=2;
  tbKUDefense.Rows[1].Clear;
  if PRJClass.ServerConfigFileName<>'' then begin
    XMLM   := TMemoryStream.Create;
    XMLM.Clear;

    SynEdit3.Lines.SaveToStream(XMLM);
    ReadXMLFile(XMLDoc,XMLM);

    //ReadXMLFile(XMLDoc,PRJClass.ServerConfigFileName);
    XMLM.Free;
    iRow:=0;
    ndDef:=XMLDoc.DocumentElement;
    ndDef:=ndDef.FindNode('defenses');
    ndDef:=ndDef.FirstChild;
    while Assigned(ndDef) do begin //цикл по защитам
      // защиты //
      if UTF8LowerCase(ndDef.NodeName)='defense' then begin
        inc(iRow);
        tbKUDefense.RowCount:=iRow+1;
        tbKUDefense.Cells[0,iRow]:=GetAttribut(ndDef,'id','0');
        tbKUDefense.Cells[1,iRow]:=GetAttribut(ndDef,'name','0');
      end;
      ndDef:=ndDef.NextSibling;

    end;
    ndDef:=nil;
    XMLDoc.Free;
    XMLDoc:=nil;
  end;
  tbKUDefense.EndUpdate(TRUE);

То есть из файла считывает нормально, а так ошибку выдает:
[img]
In 'stream:' (line 1 pos 1): Root element is missing
[/img]

[vitaly_l]

Обратите там внимание на кодировку:

http://wiki.freepascal.org/XML_Tutorial/ru

Код: Выделить всё

Var
  S : TStringStream;
  XML : TXMLDocument;
 
begin
  S:= TStringStream.Create(MyXMLString);
  Try
    S.Position:=0;
    XML:=Nil;
    ReadXMLFile(XML,S); // XML документ целиком
    // Альтернативно:
    ReadXMLFragment(AParentNode,S); // Читаем только XML фрагмент.
  Finally
    S.Free;
  end;
end;

[*Rik*]

Попробуйте перед ReadXMLFile поставить:
XMLM.Seek(0, soFromBeginning);

[son]

Попробуйте перед ReadXMLFile поставить:
XMLM.Seek(0, soFromBeginning);

Спасибо! Действительно помогло!