soap-->clientdataset-->DBGrid

[delphi159]

Здравствуйте!
Пишу клиента Web сервиса. ТЗ такое: надо из полученного soap-ответа формировать xml пакет,назначить clientdataset-у и отображать его в DBGrid-е.
Ответ от сервера получаю и он отображается в Memo, а потом уже проблемы...
Есть 2 обработчика нажатия на кнопке 'GetServiceUsers', который возврашает список пользователей и Button_IPClick-возврашает IP клиента.
см. здесь http://f-bit.ru/692917
Пока есть только один обработчик нажатия на кнопке 'GetServiceUsers' всё работает правильно-в memo возвращается xml, а в DbGrid-е отображается clientdataset, полученный от SoapResponse:

procedure TForm1.Button_ServiceUsersClick(Sender: TObject);
var
  Fwbs: WayBillsSoap;
  Frt: get_service_users;
  FUser: get_service_usersResponse;
  FXMLNode: IXMLNode;
  FIndex: Integer;
begin

  Fwbs := GetWayBillsSoap(false, '', nil);
  Frt := get_service_users.Create;
  with Frt do
  begin
    user_name := 'satesto2';
    user_password := '123456';
  end;

  try
    FUser := Fwbs.get_service_users(Frt);
    Memo.Text := FUser.get_service_usersResult.XMLNode.Xml;

    with wbs, FUser.get_service_usersResult do
    begin
      if Active then Active := false;

      CreateDataSet;

      for FIndex := 0 to XMLNode.ChildNodes.Count - 1 do
      begin
        Append;
        FieldByName('Id').AsString := XMLNode.ChildNodes[FIndex].ChildValues['ID'];
        FieldByName('UserName').AsString := VarToStrDef(XMLNode.ChildNodes[FIndex].ChildValues['USER_NAME'], '');
        FieldByName('Un').AsString := VarToStrDef(XMLNode.ChildNodes[FIndex].ChildValues['UN_ID'], '');
        FieldByName('IP').AsString := VarToStrDef(XMLNode.ChildNodes[FIndex].ChildValues['IP'], '');
        FieldByName('Name').AsString := VarToStrDef(XMLNode.ChildNodes[FIndex].ChildValues['NAME'], '');
        Post;
      end;
    end;

  finally
    FreeAndNil(Frt);
    FreeAndNil(FUser);
    THTTPRIO(Fwbs).Free;
  end;

end;

но как-только добавляю другую процедуру ServiceUsers, который возвращает IP-адрес моего компьютера, выводится ощибка: Undeclared identifier XMLNode.

procedure TForm1.Button_IPClick(Sender: TObject);
var
  Fwbs: WayBillsSoap;
  IP: what_is_my_ip;
  IPResp:what_is_my_ipResponse;
//  FXMLNode: IXMLNode;
  FIndex: Integer;
begin

  Fwbs := GetWayBillsSoap(false, '', nil);
  Frt := what_is_my_ip.Create;
  try
    IPResp := Fwbs.what_Is_My_Ip(IP);
    Memo.Text := FUser.what_is_my_ipResult.XMLNode.Xml;

//  with clientdataset1, FUser.what_is_my_ipResult do
//  begin
      if clientdataset1.Active then clientdataset1.Active := false;
      clientdataset1.CreateDataSet;

 for FIndex := 0 to XMLNode.ChildNodes.Count - 1 do
   begin
     clientdataset1.Append;
     сlientdataset1.FieldByName('what_is_my_ip').AsString:=
             IPResp.what_is_my_ip           
                 Result.XMLNode.ChildNodes[FIndex].ChildValues['what_is_my_ip'];
     Post;
   end;
 // end;

  finally
    FreeAndNil(IP);
    FreeAndNil(IPResp);
    THTTPRIO(Fwbs).Free;
  end;
end;

Uses выглядит так:

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, WayBillService, Vcl.StdCtrls, Soap.SOAPHTTPClient,
  Vcl.Buttons, Vcl.ExtCtrls, Vcl.Grids,
  Vcl.DBGrids,  Data.DB, Datasnap.DBClient, Xml.XMLIntf, Xml.xmldom;

добавление и удаление в Uses Xml.XMLIntf, Xml.xmldom для второго ничего не меняет, а первая процедура работает и бех них.

Кроме этого. в первом процедуре

Memo.Text := FUser.what_is_my_ipResult.XMLNode.Xml;

не вызивает ощибку, а во втором ругается:Undeclared identifier XMLNode.
Если исправлю на:

  Memo.Text := FUser.what_is_my_ipResult

тогда работает, но почему так пройсходит?

[Stilet]

what_is_my_ipResult

Как выглядит описание типа этого свойства?

[delphi159]

Сообщение от Stilet

Как выглядит описание типа этого свойства?

http://services.rs.ge/WayBillService...=what_is_my_ip

[delphi159]

Вопрос решен. Свойство get_service_usersResult имеет тип get_service_usersResult (TXMLData),
а свойство what_is_my_ipResult строковое и поэтому не "понимает" MLNode.