Prestashop
 

Hola a todos,

tengo un problema al integrar datos de mi aplicación con el modulo web de Prestashop mediante TIdHTTP, puedo pedir una ficha y actualizarla, pero no he conseguido crear una nueva. ¿ Alguien me puede asesorar al respecto ?

El código que utilizo ahora es el siguiente:

Código Delphi [-]
var
  strXml: string;
  ListValues := TStringList;
  Response: TMemoryStream;
  TheXML: IDOMDocument;
  ChildNode: IDOMNode;
  XMLRequest: TStringStream;
begin
  strXml := IdHTTP1.Get ('http://mitienda/api/customers?schema=blank');

  XMLDocument1.LoadFromXML(strXml);
  XMLDocument1.Active := True;

  IDomSel := (XMLDocument1.DocumentElement.DOMNode as IDOMNodeSelect);

  TheXML := XMLDocument1.DOMDocument;

  Node := IDomSel.selectNode('customer/id');
  ChildNode := Node.AppendChild(TheXML.createCDATASection('id'));
  ChildNode.NodeValue :=  sNuevoID;

  Node := IDomSel.selectNode('customer/firstname');
  ChildNode := Node.AppendChild(TheXML.createCDATASection('firstname'));
  ChildNode.NodeValue := sFirstName;

  Node := IDomSel.selectNode('customer/lastname');
  ChildNode := Node.AppendChild(TheXML.createCDATASection('lastname'));
  ChildNode.NodeValue := sLastName;

  XMLDocument1.SaveToXML(strXml);

  ListValues := TStringList.Create; // para poder utilizar metodo POST
  Response := TMemoryStream.Create;
  IdHTTP1.Request.ContentType := 'text/xml';
  IdHTTP1.Post('http://mitienda/api/customers/?xml=' + strXml, ListValues, Response);
  Response.Free;
  ListValues.Free;
end;

Gracias de antemano

Por favor, recuerda poner títulos descriptivos a tus preguntas, gracias.

Y, por cierto, no sé cómo esperas que te ayuden si no cuentas nada :confused:

Si utilizas el método post, el XML debería ir como uno de los valores de listvalues, no como parte de la URL. Si fuese en la URL, deberías llamar al método get.

Gracias Cointec,

probare lo que me dices.

Casimiro, tienes razón, perdona, el problema es que enviando el archivo XML no hace nada, ni me da error ni realiza la alta.

Igualmente gracias, voy a ver si consigo algo