Try the following: it's more likely to give you some useful info. Also, you
don't call 'Destroy' directly, 'Free' calls it for you.
program DomTest3;
{$MODE OBJFPC}
uses
DOM,
xmlread,
Classes;
var
MyXMLStructure : TXMLDocument;
MyFile : TFileStream;
begin
MyFile := TFileStream.Create('test.xml',fmopenread);
try
MyXMLStructure := TXMLDocument.Create;
try
ReadXMLFile(MyXMLStructure,MyFile);
except
On EXMLReadError do WriteLn('Did not work out well');
On Exception do writeln(E.Message);
end;
finally
MyFile.Free;
end;
end.
_______________________________________________
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
