prestashop中的delphi XE8 REST接口PUT

埃里克·范·高普（Erik Van Gorp）

我正在尝试通过REST接口更新Prestashop中的制造商。到目前为止，我已经能够获取信息，但是当我尝试进行PUT时，总是出现HTTP 500错误。

try
    Memo1.Text := '<prestashop><manufacturer><id><![CDATA[804]]></id><name><![CDATA[DisneyLand]]></name></manufacturer></prestashop>';

    RESTRequest1.Params.Clear;
    //authentication does not work with PUT, use token as suffix....
    RESTClient1.Authenticator := nil; //SimpleAuthenticator1;//
    //SimpleAuthenticator1.UserNameKey := 'ws_key';
    //SimpleAuthenticator1.UserName := 'HEREIGOESTHETOKEN';
    RESTRequest1.Resource := 'manufacturers';
    RESTRequest1.ResourceSuffix := '?ws_key=HEREIGOESTHETOKEN';
    RESTRequest1.Method := rmPut; //update
    RESTClient1.BaseURL := 'http://localhost/prestashop/api';
    RESTRequest1.Params.AddItem('id', '804' ,pkGETorPOST , [], ctTEXT_PLAIN);
    RESTRequest1.Params.AddItem('putXml', Memo1.Text,
                                pkGETorPOST , [], ctAPPLICATION_X_WWW_FORM_URLENCODED);

    RESTRequest1.Execute;

    Memo1.Lines.Clear;
    Memo1.Lines.Add(RESTResponse1.Content);
  except
    on E : Exception do
    begin
      Memo1.Lines.Clear;
      Memo1.Lines.Add('Exception class name = '+E.ClassName);
      Memo1.Lines.Add('Exception message = '+E.Message);
    end;
  end;

我尝试了其他TRESTRequestParameterKind可能性，但无济于事。

有人尝试过吗？

埃里克·范·高普（Erik Van Gorp）

更新：在使用Wireshark监视我的网络后，我注意到如果我在以前的任何地方使用TSimpleauthenticater组件，则xml始终附加ws_key值，从而导致500个服务器错误。即使我清除所有SimpleAuthenticator设置并将Clients身份验证器设置为nil，也会发生这种情况。

在正文中指定xml时，我还必须将内容类型设置为ctTEXT_XML iso ctAPPLICATION_X_WWW_FORM_URLENCODED。

以下代码有效：

procedure TForm1.BtnNewMfgClick(Sender: TObject);       //new
var
  aNode, aCNode, aCCNode : IXMLNode;
  i,j : integer;
  aXml : string;
begin
  RESTRequest1.Params.Clear;
  RESTClient1.Authenticator := nil;
  SimpleAuthenticator1.UserNameKey := '';
  SimpleAuthenticator1.UserName := '';

  RESTClient1.BaseURL := 'http://localhost/prestashop/api';
  RESTRequest1.Resource := 'manufacturers';
  RESTRequest1.ResourceSuffix := '?schema=blank&ws_key=HEREGOESMYKEY';
  RESTRequest1.Method := rmGet;
  RESTRequest1.Execute;
  aXml := RESTResponse1.Content;
  XMLDocument1.LoadFromXML(aXml);

  aNode := XMLDocument1.ChildNodes.FindNode('prestashop');
  if assigned(aNode)
  then begin
    for i := 0 to aNode.ChildNodes.Count-1 do
    begin
      aCNode := aNode.ChildNodes.Get(i);
      for j := 0 to aCNode.ChildNodes.Count-1 do
      begin
        aCCNode := aCNode.ChildNodes.Get(j);
        if aCCNode.NodeName = 'id' then aCCNode.NodeValue := ''; //cannot pass id at create
        if aCCNode.NodeName = 'active' then aCCNode.NodeValue := '1' ;
        if aCCNode.NodeName = 'name' then aCCNode.NodeValue := 'New Brand';
      end;
    end;
  end;

  XmlDocument1.SaveToXML(aXml);

  RESTRequest1.ClearBody;
  RESTRequest1.AddBody(aXml, ctTEXT_XML);
  RESTRequest1.ResourceSuffix := '?ws_key=HEREGOESMYKEY';

  RESTRequest1.Method := rmPost;
  RESTRequest1.Execute;

  //new id is returned in the contents XML id tag
  Memo1.Lines.Clear;
  Memo1.Lines.Add(RESTResponse1.Content);
end;