Fórum Como ler XML de retorno #366244

var
  xml: TextFile;
  Str: string;
  StrInicial: string;
  StrFinal: string;
begin
  AssignFile(xml, ´C:\Documents and Settings\tdavi\Desktop\Teste.xml´);
  Reset(xml);
  try
    while not Eof(xml) do
    begin
      Readln(xml, Str);
      if (Str = ´<MSG>´) then
      begin
        ClientDataSet1.Append;
        Readln(xml, Str);

        StrInicial := Copy(Str, 1, Pos(´<MSG_ID>´, Str)+ 7);
        StrFinal   := Copy(Str, Pos(´</MSG_ID>´, Str), Length(Str));

        if (StrInicial = ´<MSG_ID>´) then
          ClientDataSet1.Fields.Fields[0].AsString := Copy(Str, Length(StrInicial)+ 1, Length(Str)- (Length(StrInicial)+ Length(StrFinal)));

        Readln(xml, Str);
        StrInicial := Copy(Str, 1, Pos(´<MSG_MISN>´, Str)+ 9);
        StrFinal   := Copy(Str, Pos(´</MSG_MISN>´, Str), Length(Str));

        if (StrInicial = ´<MSG_MISN>´) then
          ClientDataSet1.Fields.Fields[1].AsString := Copy(Str, Length(StrInicial)+ 1, Length(Str)- (Length(StrInicial)+ Length(StrFinal)));

        Readln(xml, Str);
        StrInicial := Copy(Str, 1, Pos(´<MSG_STATUS>´, Str)+ 11);
        StrFinal   := Copy(Str, Pos(´</MSG_STATUS>´, Str), Length(Str));

        if (StrInicial = ´<MSG_STATUS>´) then
          ClientDataSet1.Fields.Fields[2].AsString := Copy(Str, Length(StrInicial)+ 1, Length(Str)- (Length(StrInicial)+ Length(StrFinal)));

        Readln(xml, Str);
        StrInicial := Copy(Str, 1, Pos(´<MSG_STATUS_DATETIME>´, Str)+ 20);
        StrFinal   := Copy(Str, Pos(´</MSG_STATUS_DATETIME>´, Str), Length(Str));

        if (StrInicial = ´<MSG_STATUS_DATETIME>´) then
          ClientDataSet1.Fields.Fields[3].AsString := Copy(Str, Length(StrInicial)+ 1, Length(Str)- (Length(StrInicial)+ Length(StrFinal)));

        Readln(xml, Str);
        if (Str = ´</MSG>´) then
          ClientDataSet1.Post;
      end;
    end;
  finally
    CloseFile(xml);
  end;
end;