So
Hab mir des jetzt mal alles angeschaut doch am sympatischen ist mir OmniXML.
Also hab ich des mir mal eingebunden und ein bissi getestet aber schon bei diesem Code scheitert alles:
Delphi-Quellcode:
function XML_Load(XMLFilename :
String; VST : TVirtualStringTree) : Boolean;
var
XMLDocument : TXMLDocument;
begin
try
XMLDocument := TXMLDocument.Create;
try
try
if not(FileExists(XMLFilename))
then
begin
XMLDocument.LoadXML('
<?xml version="1.0"?><List></List>');
//hier
end
else XMLDocument.Load(XMLFilename);
//oder hier gibt es eine AccessViolation (siehe unten)
except
ShowMessage('
XML Fehler: Die Datei "'+XMLFilename+'
" ist fehlerhaft.');
Result := false;
exit;
end;
VST.Clear;
VST.BeginUpdate;
ShowMessage(XMLDocument.DocumentElement.NodeName);
VST.EndUpdate;
finally
FreeAndNil(XMLDocument);
//und hier kann er es nicht freigeben weil des objekt plötzlich nicht mehr verfügbar ist (wieder AccessViolation)
end;
Result := true;
except
ShowMessage('
XML Fehler: Fehler beim Laden des XML Documents');
Result := false;
end;
end;
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt - ist eine
Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 7C911010 in Modul 'ntdll.dll'. Lesen von Adresse 0000001C' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------