Tutaj macie zdjęcie z danych o sb, i nie wiem jak się nawiązać do tego..
https://zapodaj.net/5f8f711610f6c.png.html
a co jeśli zamaist po porcie com wykrozystac adres ip?
jak wykonać ten kod php w delphi ?
próbowałem przy idhttp ale problem pojawia sie gdyż nie znam odpowiednika curl_setopt
php działa poprawnie, ale nalezy posatwic serwer php.. nie da sie tego zrobic idhttp ?
<?php
error_reporting(E_ALL);
// Argumentem jest URL do skryptu z listingu 2.1
$url = ('http://192.168.8.1/api/webserver/token');
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL,$url);
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_HEADER,0);
$curl_scraped_page = curl_exec($ch);
curl_close($ch);
preg_match('#<token>(.+?)</token>#si', $curl_scraped_page, $matches);
$token = ($matches[1]);
echo ($token);
$url = ("http://192.168.8.1/api/sms/send-sms");
$ch = curl_init();
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_POSTFIELDS, ("-H __RequestVerificationToken: ".$token." --data <?xml version='1.0' encoding='UTF-8'?><request><Index>-1</Index><Phones><Phone>xxxxxxxxx</Phone></Phones><Sca></Sca><Content>ala ma kota</Content><Length>-1</Length><Reserved>1</Reserved><Date>-1</Date></request>"));
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_HEADER,0);
curl_setopt($ch, CURLOPT_URL,$url);
$curl_scraped_page = curl_exec($ch);
curl_close($ch);
echo ($curl_scraped_page);
?>