1

Sou nova em Delphi e estou tendo problemas para carregar um documento XML a partir de uma string. Não dá nenhum erro, simplesmente não carrega, isso me faz pensar que eu deve estar cometendo algum erro bem bobo.

Meu código é esse:

var
  lHTTP: TIdHTTP;
  Result: String;
  doc: TXMLDocument;
  alipay: IXMLNodeList;

begin
  lHTTP := TIdHTTP.Create;
  doc := TXMLDocument.Create(nil);
  try
    Result := lHTTP.Get('https://mapi.alipay.com/gateway.do? service=notify_verify&partner=002153&notify_id=589654');

    doc.LoadFromXML(Result);
    doc.Active := True;
    alipay := doc.ChildNodes;

  finally
    lHTTP.Free;
  end;
end;

end.

Dentro da var Result retorna o XML:

<?xml version="1.0" encoding="GBK"?>'#$A'<alipay><is_success>F</is_success> 
<error>ILLEGAL_PARTNER</error></alipay>

Alguém sabe o que está acontecendo?

2
  • Conteudo do Result:<?xml version="1.0" encoding="GBK"?>'#$A'<alipay><is_success>F</is_success><error>ILLEGAL_PARTNER</error></alipay>
    – Debs
    15/08/2018 às 20:45
  • Há um espaço a mais dentro da URL aqui: gateway.do? service=notify_verify. Acho que esse espaço não deveria estar lá. 15/08/2018 às 21:28

3 Respostas 3

0

Você pode alterar o seu código para utilizar outra classe para trabalhar com o XML, utilizando o IXMLDocument.

Teste isso:

var
  lHTTP: TIdHTTP;
  Result: String;
  doc: IXMLDocument; { alterado para "I" em vez de "T" }
  alipay: IXMLNodeList;

begin
  lHTTP := TIdHTTP.Create;
  doc := TXMLDocument.Create(nil);
  try
    Result := lHTTP.Get('https://mapi.alipay.com/gateway.do? service=notify_verify&partner=002153&notify_id=589654');

   doc.loadXML(Result); { alterada a função de carregamento do XML }
   doc.Active := True;
   alipay := doc.ChildNodes;

   finally
     lHTTP.Free;
   end;
end;
0

Na verdade o XML estava carregando, mas eu achei que não estava porque eu recebia um null pointer quando eu tentava pegar o node 'alipay' da lista de nodes que retorna nesta linha:

 alipay := doc.ChildNodes;

Porém eu consegui achar uma solução:

var
  lHTTP: TIdHTTP;
  Result: String;
  doc: TXMLDocument;
  alipayNodes: IXMLNodeList;
  xmlNodes: IXMLNodeList;
  node: IXMLNode;
  sSuccess: String;
  sError: String;
  i: Integer;

begin
  lHTTP := TIdHTTP.Create;
  doc := TXMLDocument.Create(nil);
  try
    Result := lHTTP.Get('https://mapi.alipay.com/gateway.do?service=notify_verify&partner=002153&notify_id=589654');
    doc.LoadFromXML(Result);
    doc.Active := True;
    xmlNodes := doc.ChildNodes;

    if xmlNodes.Count >= 2 then
    begin
      alipayNodes := xmlNodes.Get(1).ChildNodes;;
    end;

    i := 0;
    while i < alipayNodes.Count do
    begin
      node := alipayNodes.Get(i);
      if AnsiCompareText(node.LocalName, 'is_success') = 0 then
        sSuccess := node.Text;
      if AnsiCompareText(node.LocalName, 'error') = 0 then
        sError := node.Text;
      i := i + 1;
    end;

  finally
    lHTTP.Free;
  end;
end;

end.
0

A sua variavel Result tem que ser do tipo WideString e tente usar o tipo IXMLDocument:

Result : WideString;

var
 doc : IXMLDocument;
 Result : WideString;
 alipay, alipay2 : IXMLNode;
begin
 doc.LoadFromXml(Result);
 alipay := doc.DocumentElement;
 alipay2 := alipay.ChildNodes.First;

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .