xml - 通过DEL上的POST发送和接收XML

Question

我已经看过一些示例here，以及有关如何使用Indy将数据发布到服务器的信息，但是我的问题是如何查看服务器提供的答案？

这是我从用户Bruce McGee那里得到的，并对自己进行了一些修改：

function ExecuteAPI: string;
var
  lHTTP: TIdHTTP;
  lParamList: TStringList;
begin
  lParamList := TStringList.Create;
  lParamList.Add('<input type=text name=StoreName value="Hálitopuro Produtos">');
  lParamList.Add('<input type=text name=StoreID value="123456"> ');
  lParamList.Add('<input type=text name=Username value="Admin"> ');
  lParamList.Add('<input type=password name=Password value="Password123">');
  lParamList.Add('<input type=text name=method value="ReportView">');
  lParamList.Add('<input type=text name=ObjectID value="425">');
  lParamList.Add('<input type=text name=Par1 value="Category name">');
  lParamList.Add('<input type=text name=Par2 value="Ref/Name/Descr"> ');
  lParamList.Add('<input type=text name=Par3 value="false"> ');
  lParamList.Add('<input type=text name=Par4 value="false"> ');

  lHTTP := TIdHTTP.Create(nil);

  try
    Result := lHTTP.Post('https://www.rumo.com.br/sistema/adm/APILogon.asp', lParamList);
  finally
    lHTTP.Free;
    lParamList.Free;
  end;
end;

API指出，无论请求或结果是什么，服务器都将返回XML，但是如何查看它呢？例如，通过填充TMemo？

Answer 1

我如何查看它，例如，通过填充TMemo？


要在备注控件中查看文本，请分配给Text属性：

Memo1.Text := ExecuteAPI;