IXMLDocument Exceptions

[himitsu]

Hmmm, demnach müsste es knallen und da es eine Exception auslöst, wird es auch den Except-Block durchlaufen.

Zitat:

Delphi-Quellcode:

function LoadXMLDocument(const FileName: DOMString): IXMLDocument;
begin
  Result := TXMLDocument.Create(FileName);
end;

constructor TXMLDocument.Create(const AFileName: DOMString);
begin
  inherited Create(nil);
  FFileName := AFileName;
end;

procedure TXMLDocument.AfterConstruction;
begin
  inherited;
  ...
  if FFileName <> '' then
    SetActive(True);
end;

Also das funktioniert dann wohl doch richtig, jedenfalls bei meinem XML.

Delphi-Quellcode:

uses
  XMLIntf, XMLDoc;

procedure TForm6.FormCreate(Sender: TObject);
var
  XMLDocument: IXMLDocument;
begin
  try
    XMLDocument := LoadXMLDocument('D:\x.xml');
    //XMLDocument.Active := True;
  except
    on E: Exception do
      ShowMessage('Fehler beim Lesen der Datei' + sLineBreak + E.Message);
  end;
end;