Beim XML laden bleibt die Anwendung einfach hängen

[jim_raynor]

Zitat von gsh:

Aber des Problem das er einfach stecken bleibt ist immer noch da

Funktioniert es denn ohne Debugger? Wenn ja, versuche mal alle "überwachten Ausdrücke" zu löschen. Hatte es jetzt schon öfter gehabt, dass der Debugger sich beim Auswerten aufgehangen hat ...

[gsh]

Zitat von computer-glossar.de:

sicher?
vielleicht ist der dialog einfach nur in den hintergrund gerutscht?
dann schaut es so aus als wenn nix mehr geht...

ne ist er nicht
selbst wenn ich nur XMLDocument.DocumentElement.NodeName; aufrufe bleibt er hängen

Zitat von jim_raynor:

Zitat von gsh:

Aber des Problem das er einfach stecken bleibt ist immer noch da

Funktioniert es denn ohne Debugger? Wenn ja, versuche mal alle "überwachten Ausdrücke" zu löschen. Hatte es jetzt schon öfter gehabt, dass der Debugger sich beim Auswerten aufgehangen hat ...

überwachten ausdrücke sind gelöscht
funkt ohne debugger auch nicht

[semo]

oder ruf einfahc die erzeugte EXE auf....

[gsh]

Zitat von computer-glossar.de:

oder ruf einfahc die erzeugte EXE auf....

hab ich doch ... geht nicht

[marabu]

Hallo ihr beiden,

das Code-Gerüst sollte besser so aussehen:

Delphi-Quellcode:

function XML_Load(fn: TFileName; vst: TVirtualStringTree): Boolean;
var
  xDoc: IXMLDocument;
begin
  xDoc := LoadXmlDocument(fn);
  with xDoc do
  try
    Active := True;
    ShowMessage(documentElement.NodeName);
    {
    ...
    }
    Result := True;
  except
    Result := False;
  end;
end;

Achtet auf den Typ der lokalen Variable xDoc. Ein Einfrieren des Programms kann ich mir so nicht vorstellen.

Grüße vom marabu

[gsh]

hmm wenn ich das objekt so
XMLDocument := LoadXMLDocument(XMLFilename); erstelle dann geht es sogar ... es gibt dann nur ziemlich viele speicherleaks
aber ich versteh nicht warum ich des objekt nicht so erstellen kann XMLDocument := TXMLDocument.Create(nil);

[marabu]

Hallo Alex,

da gibt es ein kleines Problem mit Borlands Implementierung dieser Methode, das erzeugte VCL-Objekt TXMLDocument wird so nie freigegeben.

Also besser so:

Delphi-Quellcode:

function XML_Load(fn: TFileName; vst: TVirtualStringTree): Boolean;
var
  xDoc: TXMLDocument;
begin
  xDoc := TXMLDocument.Create(Application);
  with xDoc do
  try
    try
      FileName := fn;
      Active := True;
      ShowMessage(documentElement.NodeName);
      {
      ...
      }
      Result := True;
    except
      Result := False;
    end;
  finally
    Free;
  end;
end;

Freundliche Grüße

[gsh]

Hab den Fehler gefunden
So gehts nicht: XMLDocument := TXMLDocument.Create(nil);
So gehts: XMLDocument := TXMLDocument.Create(Application);
Danke leute