PDA

Ver la Versión Completa : Usar CURL en Delphi


webmasterplc
04-10-2011, 06:46:33
Hola tengo un servicio de envio de sms desde web ya tengo el codigo de envio en php quisiera algo parecido en delphi para enviar sms desde mis aplicaciones este es el coduigo php <?
//parametros de envio
$usuario="usuarioactivo";
$clave="claveactiva";
//cantidad de caracteres para telefono 12
//los 2 primeros caracteres es del codigo del pais (58 Venezuela)
//los 3 siguientes caracteres es de la telefonia (416,426,414,424,412)
//seguido de los 7 ultimos digitos del numero telefonico
$telefonos="584128696261";
// la cantidad maxima para el texto es de 150 caracteres
$texto="Prueba de Sistemas";
//los parametros a usar por el webservices
$parametros="usuario=$usuario&clave=$clave&texto=$texto&telefonos=$telefonos"
;
//URL para capturar los datos de envio con webservices
//envio de parametros con metodo post a traves de CURL
$url = "http://www.enlinea-ve.com.ve/webservices/SendSms";
$handler = curl_init();
curl_setopt($handler, CURLOPT_URL, $url);
curl_setopt($handler, CURLOPT_POST,true);
curl_setopt($handler, CURLOPT_POSTFIELDS, $parametros);
$response = curl_exec ($handler);
curl_close($handler);
?> si me pueden ayudar