XMLDocument zur Laufzeit -> Exception

[Neutral General]

Sowas halt (falls du wie gesagt irgendwas anderes rumfliegen hast, dann kannst du das stattdessen auch übergeben und musst keine temporäre Instanz erstellen):

Delphi-Quellcode:

function LoadWebData(xmlResponse : TMemoryStream) : boolean;
var
  XMLDoc : TXMLDocument;
  StartItemNode: IXMLNode;
  dummyComp: TComponent;
begin
  Result := true;
  
  dummyComp := TComponent.Create(nil);  // <--
  try
    XMLDoc := TXMLDocument.Create(dummyComp); // <--
    try
      XMLDoc.DOMVendor := DOMVendors.Find('Omni XML');
      XMLDoc.Options := [doAttrNull,doAutoPrefix,doNamespaceDecl];

      try
        XMLDoc.LoadFromStream(xmlResponse);
      except;
        Result := false;
        exit;
      end;
      XMLDoc.Active := True;

      try
        StartItemNode := XMLDoc.DocumentElement.ChildNodes.FindNode('response') ; // <= Exception
      except
      end;
  // ....
    finally
      XMLDoc.Active := false;
      XMLDoc := NIL;
    end;
  finally
    dummyComp.Free;
  end;
end;

[amigage]

Super, besten Dank. Das wars. Man lernt nie aus

[Dejan Vu]

Könnte man nicht vielleicht doch den leeren 'except' Block entfernen? Das ist ja grauenvoll.