IXMLDocument Exceptions

[Tahtu]

Ich habe einige XMLDocuments. Leider werden mir beim Laden der Daten keine Exceptions mit try ... except ... end angeboten. Warum?

Code:

uses
  XMLIntf;
...
var
  XMLDocument: IXMLDocument;
begin
  try
    XMLDocument := LoadXMLDocument(Filename);
  except
    MessageBox(0, 'Fehler beim Lesen der Datei', 'Fehler', MB_OK);
  end;

Das selbe Problem habe ich auch beim Zugriff auf IXMLNode:

Code:

var
  XMLNode: IXMLNode;
begin
  ...
  try
    XMLNode.Text := #1; // #1 ist kein gültiger Inhalt für ein XML Node
  except
    MessageBox(0, 'Fehler beim Setzen eines Nodes', 'Fehler', MB_OK);
  end;

... Meine MessageBoxes werden nie angezeigt.

[himitsu]

Weil der XMT-Text erst beim "Aktivieren" geparst wird, gibt es beim Laden auch noch keine Fehlermeldung.

Und XMLNode.Text := #1; ist vollkommen korrekt, da die XML-Komponente das richtig kodieren sollte, was dann wieder korrektes XML ergibt 

[Tahtu]

Zitat von himitsu:

Weil der Text erst beim "Aktivieren" geparst wird, gibt es beim Laden auch noch keine Fehlermeldung.

Wenn die Datei nicht geladen werden kann (z. B. File not Found), gibt's eine Exception - aber ich kann sie mit try except end nicht abfangen.

Gleiches Problem hab ich beim SaveToFile, wenn die Datei durch ein anderes Programm blockiert ist.

Und XMLNode.Text := #1; ist vollkommen korreckt, da die XML-Komponente das richtig kodieren sollte, was dann wieder korrektes XML ergibt [/QUOTE]

#1 is kein gültiger Text in einem XML Dokument - das kann auch nicht escaped werden. Aber das war nicht meine Frage.

Mein Problem ist, dass Exceptions auftreten, ich diese aber nicht mit try except end abfangen kann. Die Exception wird als solche aber vom Programm als Exception behandelt und angezeigt. Und letzteres möchte ich gerne abfangen...

[baumina]

Exceptions werden, wenn du das Programm in der IDE laufen hast, angezeigt wenn du sie nicht unterdrückt hast. Trotzdem müsstest du danach im exceptblock deines Programms landen. Startest du die exe ausserhalb der IDE, wird dir nur der Text im exceptblock angezeigt.

[Tahtu]

Zitat von baumina:

Exceptions werden, wenn du das Programm in der IDE laufen hast, angezeigt wenn du sie nicht unterdrückt hast.

Bitte entschudligt, dass ich mich so unverständlich ausdrücke.

Meine Frage war nicht, warum mir keine Exception angezeigt war. Meine Frage war, warum der Teil zwischen "except" und "end" nicht aufgerufen wird, falls eine Exception auftritt. Um die Exception im Programm zu blockieren gibt "try except end".

Das funktioniert bei mir auch überall gut - und ich habe auch viel Übung mit Exceptions.

Einzig bei IXMLDocument und IXMLNode Exceptions funktioniert das nicht.

[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;

[hoika]

Hallo,
also bei mir kommt auch die Exception.
Meine Code sieht allerdings etwas anders aus.

Delphi-Quellcode:

uses
  ActiveX,
  XMLIntf,
  XMLDoc;

var
  XMLDocument: IXMLDocument;
begin
  try
    XMLDocument :=  NewXMLDocument;
    XMLDocument.LoadFromFile('');
  except
    MessageBox(0, 'Fehler beim Lesen der Datei', 'Fehler', MB_OK);
  end;

[Tahtu]

Danke für eure Mühe.

Ich hab jetzt ein neues Demo-Programm geschrieben - und dort klappt es auch.

Also muss ich mir mal die Zeit nehmen und in meinem eigentlichen Programm das Problem finden.

Somit habt ihr mir geholfen!