Парсинг XML с использованием TXMLDocument

[ВанекПВМ]

Здравствуйте!
Проблема возникает при использовании XmlDocument. Т.е. при его программном создании. Все время вылетает на одном месте.

    Function TMyXml.Load1(Param_XmlMessage:WideString; Form_l : TForm):Boolean;

    var
    root: IXMLNode;
    str : AnsiString;
    MyXMLDoc : IXMLDocument;
    Flag : Boolean;
    begin
       if (length(Param_XmlMessage)>11) then
      begin
        Flag:=false;
      end
       else
        exit;
        if not flag then
          begin
          Flag := true;
      SetLength(FParams,0);
      str := AnsiString(Param_XmlMessage);
      try
        MyXMLDoc := nil;
        MyXMLDoc := TXMLDocument.Create(Application);
        try
            MyXMLDoc.Active:=false;
            with MyXMLDoc do
            begin
//              Version := '1.0';
//              Encoding := 'utf-8';
//              StandAlone:='yes';
//              DocumentElement:=AddChild('MSG');
              LoadFromXML(str);
            end;

//          MyXMLDoc.Options := [doNodeAutoCreate,doAttrNull,doAutoPrefix,doNamespaceDecl];
          TXMLDocument(MyXMLDoc).DOMVendor := GetDomVEndor('MSXML');
          MyXMLDoc.Active:=true;
        except
          raise EAccessViolation.Create('Ошибка!');
          MyXMLDoc.Active := false;
        end;
        MyXMLDoc.DocumentElement := MyXMLDoc.AddChild('MSG');
        // Определение корневого элемента
        try
          Root := MyXMLDoc.DocumentElement;
        except
          on e:exception do
          raise Exception.Create(e.Message);
        end;

        // Загрузка уровня
        LoadLevel(Root.ChildNodes);
      finally
        MyXMLDoc.Active := false;
        TXMLDocument(MyXMLDoc).Free;
      end;
          end;
    end;

Сразу, оговорюсь, TMyXml - отдельно созданный объект.

[Аватар]

А сделать MyXMLDoc: TXMLDocument; вместо MyXMLDoc : IXMLDocument;
и не забывать MyXMLDoc.Free

[ВанекПВМ]

Пробовал использовать и TXMLDocument, и MyXMLDoc.Free ставил - не помогает.
Сейчас код выложил - он не вылетает, только Root.ChildNodes не возвращает потомков(возвращает 0).

[ВанекПВМ]

Все, я разобрался. Дело в том, что TXMLDocument. Create нужен существующий родитель, т.е. надо создать что-то типа

        
FObj := TComponent. Create (nil);
        MyXMLDoc := nil;
        MyXMLDoc := TXMLDocument.Create(FObj);

Так будет работать.
Тема закрыта.