Error cargar xml

aralsi
14 de Octubre del 2009
Hola gente,

Estoy intentando crear un programa que entre otras cosas abre un archivo xml. Lo estoy programando con delphi 6. Este es un trozo del código donde se ven los comandos que utilizo:

procedure TForm1.Button1Click(Sender: TObject);
var
XMLInfoService: TXMLDocument;
IXMLNodeError: IXMLNode;
begin

try
XMLInfoService := TXMLDocument.Create(nil);
XMLInfoService.LoadFromFile ('Prueba.xml');
XMLInfoService.Active := True;

IXMLNodeError := XMLInfoService.DocumentElement.ChildNodes.FindNode('error').ChildNodes.FindNode('cod_error');


Si paro el proceso en el comando XMLInfoService.Active := True, al colocar el cursor sobre el comando XNLInfoService.LoadFromFile, aparece una etiqueta que contiene esto:

XMLInfoService.LoadFromFile = Inaccesible value

Y cuando llega al comando "IXMLNodeError := ..." salta el error EAccessViolation

Alguien podría decirme por qué puede ser el error? o si existe algún otro modo de acceder a los xml?

Muchas gracias.