Guest User

Untitled

a guest
Nov 14th, 2018
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.52 KB | None | 0 0
  1. $params["access_token"] = "### Chave de Acesso ###";
  2. $data["Product"]["stock"] = 100;
  3. $url = "https://{api_address}/products/123?".http_build_query($params);
  4. ob_start();
  5. $ch = curl_init();
  6. curl_setopt($ch, CURLOPT_URL, $url);
  7. curl_setopt($ch, CURLOPT_CUSTOMREQUEST, "PUT");
  8. curl_setopt($ch, CURLOPT_POSTFIELDS, json_encode($data));
  9. curl_setopt($ch, CURLOPT_HTTPHEADER, array(
  10. 'Content-Type: application/json',
  11. 'Content-Length: ' . strlen(json_encode($data)))
  12. );
  13. curl_exec($ch);
  14.  
  15. vToken:= rotina_que_captura_token
  16. vUrl:= https://clienteexemplo.commercesuite.com.br/web_api/products/89';
  17. vJsonProduct:= TJSONObject.Create;
  18. vJSonPut:= TJSONObject.Create;
  19. vJsonPut.AddPair('stock', '100');
  20. vJsonProduct.AddPair('Product', vJsonPut);
  21. vJsonToSend := TStringStream.Create(vJsonProduct.ToString, TEncoding.UTF8);
  22.  
  23. lHTTP:= TIdHTTP.Create(nil);
  24. IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  25. lHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
  26. lHTTP.Request.ContentType := 'application/json';
  27. lHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.113 Safari/537.36';
  28. lHTTP.Request.CustomHeaders.AddValue('Authorization', 'Bearer ' + vToken);
  29. Result:= lHTTP.Put(vUrl, vJsonToSend);
  30.  
  31. /products/123?".http_build_query($params);
  32.  
  33. vUrl:= 'https://clienteexemplo.commercesuite.com.br/web_api/products/89;'
  34.  
  35. vUrl:= 'https://clienteexemplo.commercesuite.com.br/web_api/products/89?access_token=' + vToken;
Add Comment
Please, Sign In to add comment