Comando Post com Delphi + webservice

REST

Delphi

RESTful

WebSocket

14/02/2023

Olá amigos, estou precisando de ajuda para fazer um ''''Post'''' com xml em delphi no Webservice, já montei o xml mas não sei como fazer este ''''Post'''', agradeço a ajuda.

link = https://bling.com.br/Api/v2/produto//&apikey=&xml=

tenho um exemplo em PHP mas preciso fazer isso em Delphi, segue abaixo

// PHP
$url = ''''https://bling.com.br/Api/v2/produto//'''';
$xml = ''''...'''';
$posts = array (
"apikey" => "",
"xml" => rawurlencode($xml)
);
$retorno = executeUpdateProduct($url, $posts);
echo $retorno;
function executeUpdateProduct($url, $data){
$curl_handle = curl_init();
curl_setopt($curl_handle, CURLOPT_URL, $url);
curl_setopt($curl_handle, CURLOPT_POST, count($data));
curl_setopt($curl_handle, CURLOPT_POSTFIELDS, $data);
curl_setopt($curl_handle, CURLOPT_RETURNTRANSFER, TRUE);
$response = curl_exec($curl_handle);
curl_close($curl_handle);
return $response;
}
//PHP
Eder Paz

Eder Paz

Curtidas 0

Respostas

Eder Paz

Eder Paz

14/02/2023

Olá amigos, estou precisando de ajuda para fazer um ''''Post'''' com xml em delphi no Webservice, já montei o xml mas não sei como fazer este ''''Post'''', agradeço a ajuda.

link = https://bling.com.br/Api/v2/produto//&apikey=&xml=
ink = https://bling.com.br/Api/v2/produto/codproduto/&apikey=&xml=arqxml

tenho um exemplo em PHP mas preciso fazer isso em Delphi, segue abaixo

// PHP
$url = ''''https://bling.com.br/Api/v2/produto//'''';
$xml = ''''...'''';
$posts = array (
"apikey" => "",
"xml" => rawurlencode($xml)
);
$retorno = executeUpdateProduct($url, $posts);
echo $retorno;
function executeUpdateProduct($url, $data){
$curl_handle = curl_init();
curl_setopt($curl_handle, CURLOPT_URL, $url);
curl_setopt($curl_handle, CURLOPT_POST, count($data));
curl_setopt($curl_handle, CURLOPT_POSTFIELDS, $data);
curl_setopt($curl_handle, CURLOPT_RETURNTRANSFER, TRUE);
$response = curl_exec($curl_handle);
curl_close($curl_handle);
return $response;
}
//PHP
GOSTEI 0
POSTAR