Problema Ao Carregar Xml No Componente Acbrnfe

[francisco.itb]

Amigos, depois que atualizei hoje os componentes, que antes estavam carregando sem problema o xml, ele passou a nao carregar o xml, vi na rotina abaixo:

que substituido     ArquivoXML.LoadFromFile(CaminhoArquivo {$IFDEF DELPHI2009_UP}, TEncoding.UTF8{$ENDIF});

por   ArquivoXML.LoadFromFile(CaminhoArquivo) voltou a funcionar, alguem teve esse problema?

 

function TNotasFiscais.LoadFromFile(CaminhoArquivo: string): boolean;

var

 LocNFeR : TNFeR;

 ArquivoXML: TStringList;

 XML, XMLOriginal : AnsiString;

begin

 try

    ArquivoXML := TStringList.Create;

    try

//      ArquivoXML.LoadFromFile(CaminhoArquivo {$IFDEF DELPHI2009_UP}, TEncoding.UTF8{$ENDIF});

      ArquivoXML.LoadFromFile(CaminhoArquivo);

 

      XMLOriginal := ArquivoXML.Text;

      Result := True;

      while pos('</NFe>',ArquivoXML.Text) > 0 do

       begin

         if pos('</nfeProc>',ArquivoXML.Text) > 0  then

          begin

            XML := copy(ArquivoXML.Text,1,pos('</nfeProc>',ArquivoXML.Text)+5);

            ArquivoXML.Text := Trim(copy(ArquivoXML.Text,pos('</nfeProc>',ArquivoXML.Text)+10,length(ArquivoXML.Text)));

          end

         else

          begin

            XML := copy(ArquivoXML.Text,1,pos('</NFe>',ArquivoXML.Text)+5);

            ArquivoXML.Text := Trim(copy(ArquivoXML.Text,pos('</NFe>',ArquivoXML.Text)+6,length(ArquivoXML.Text)));

          end;

         LocNFeR := TNFeR.Create(Self.Add.NFe);

         try

            LocNFeR.Leitor.Arquivo := XML;

            LocNFeR.LerXml;

            Items[self.Count-1].XML := LocNFeR.Leitor.Arquivo;

            Items[self.Count-1].XMLOriginal := XMLOriginal;

            Items[self.Count-1].NomeArq := CaminhoArquivo;

            GerarNFe;

         finally

            LocNFeR.Free;

         end;

       end;

    finally

      ArquivoXML.Free;

    end;

 except

    raise;

    Result := False;

 end;

end;

[Régys Silveira]

Poderia dar mais detalhes, ocorre erro de compilação, o XML não vem direito, tem alguma mensagem de erro, o que acontece?

[francisco.itb]

Nao, simplesmente ele nao carrega, a lista de notas fica vazia, depois que fiz a alteração voltou a carregar o xml.

[Régys Silveira]

Desculpe, mas tem que ter um erro, simplesmente não carregar não acontece, tente debugar e ver se não existe uma exceção silenciosa ou algo parecido.