xml := ACBreSocial.WebServices.ConsultaLote.RetConsultaLote.Leitor.Arquivo;
inicioXml := Pos('<ocorrencias>', xml);
fimXml := Pos('</ocorrencias>', xml);
if (inicioXml > 0) or (fimXml > 0) then
begin
ocorrencias := Copy(xml, inicioXml, (fimXml - inicioXml) + 14);
end;
if ocorrencias <> '' then
begin
XMLDocument1.LoadFromXML(ocorrencias);
nodes := XMLDocument1.ChildNodes;
if nodes <> nil then
begin
for I := 0 to nodes.FindNode('ocorrencias').ChildNodes.Count - 1 do
begin
StringList.Add(nodes.FindNode('ocorrencias').ChildNodes.Get(I).ChildNodes.FindNode('descricao').Text);
end;
end;
end;
Estou usando esse o seguinte código; O erro ocorre ao carregar o XML com as ocorrencias no XMLDocument;
Na uses estou com Xml.xmldom, Xml.XMLIntf, Xml.XMLDoc;
A DLL está na pasta do executável e está instalada