Отправка смс через API от Delphi - PullRequest
Новая
       11

Отправка смс через API от Delphi

0 голосов
/ 30 июня 2018

Я хочу отправить SMS с Delphi с помощью онлайн-API.

API предоставляется поставщиком услуг, который работает при использовании через веб-браузер, как показано ниже: 

http://sendpk.com/api/sms.php?username=xxxx&password=xxxx&sender=Masking&mobile=xxxx&message=Hello

Приведенный выше URL отлично работает при открытии через веб-браузер и успешной отправке SMS Сейчас я пытаюсь интегрировать API в мое приложение Delphi.

При поиске в Интернете я нашел несколько примеров и, наконец, попробовал следующий код: 

var
  lHTTP: TIdHTTP;
  lParamList: TStringList;
begin
  lParamList := TStringList.Create;
  lParamList.Add('username=xxxx');
  lParamList.Add('password=xxxx');
  lParamList.Add('sender=Masking');
  lParamList.Add('mobile=xxxx');
  lParamList.Add('message=Hello');

  lHTTP := TIdHTTP.Create;    

  try
    PostResult.Lines.Text := lHTTP.Post('http://sendpk.com/api/sms.php', lParamList);
  finally
    lHTTP.Free;
    lParamList.Free;
  end;

Но я получаю ошибку: 

HTTP/1.1 406 Not Acceptable

Error Screen shot

Справочник по API, предоставленный на веб-сайте поставщика услуг, доступен ниже:

http://sendpk.com/api.php

Пожалуйста, ведите меня. Что я делаю не так, и какой код нужно использовать?

Редактировать

Код C #, указанный в справочнике по API, приведен ниже: 

using System;
using System.Net;
using System.Web;

public class Program
{
    public static void Main()
    {
        string MyUsername = "userxxx"; //Your Username At Sendpk.com
        string MyPassword = "xxxx"; //Your Password At Sendpk.com
        string toNumber = "92xxxxxxxx"; //Recepient cell phone number with country code
        string Masking = "SMS Alert"; //Your Company Brand Name
        string MessageText = "SMS Sent using .Net";
        string jsonResponse = SendSMS(Masking, toNumber, MessageText, MyUsername, MyPassword);
        Console.Write(jsonResponse);
        //Console.Read(); //to keep console window open if trying in visual studio
    }

    public static string SendSMS(string Masking, string toNumber, string MessageText, string MyUsername , string MyPassword)
    {
        String URI = "http://sendpk.com" +
            "/api/sms.php?" +
            "username=" + MyUsername +
            "&password=" + MyPassword +
            "&sender=" + Masking +
            "&mobile=" + toNumber +
            "&message=" + Uri.UnescapeDataString(MessageText); // Visual Studio 10-15
        try
        {
            WebRequest req = WebRequest.Create(URI);
            WebResponse resp = req.GetResponse();
            var sr = new System.IO.StreamReader(resp.GetResponseStream());
            return sr.ReadToEnd().Trim();
        }
        catch (WebException ex)
        {
            var httpWebResponse = ex.Response as HttpWebResponse;
            if (httpWebResponse != null)
            {
                switch (httpWebResponse.StatusCode)
                {
                    case HttpStatusCode.NotFound:
                        return "404:URL not found :" + URI;
                        break;
                    case HttpStatusCode.BadRequest:
                        return "400:Bad Request";
                        break;
                    default:
                        return httpWebResponse.StatusCode.ToString();
                }
            }
        }
        return null;
    }
}

1 Ответ

0 голосов
/ 30 июня 2018

Вам нужно использовать TIdHTTP.Get() вместо TIdHTTP.Post(): 

var
  lHTTP: TIdHTTP;
  lUser, lPass, lSender, lMobile, lMsg: string;
begin
  lUser := 'xxxx';
  lPass := 'xxxx';
  lSender := 'Masking';
  lMobile := 'xxxx';
  lMsg := 'Hello';

  lHTTP := TIdHTTP.Create;
  try
    PostResult.Lines.Text := lHTTP.Get('http://sendpk.com/api/sms.php?username=' + TIdURI.ParamsEncode(lUser) + '&password=' + TIdURI.ParamsEncode(lPass) + '&sender=' + TIdURI.ParamsEncode(lSender) + '&mobile=' + TIdURI.ParamsEncode(lMobile) + '&message=' + TIdURI.ParamsEncode(lMsg));
  finally
    lHTTP.Free;
  end;
end;

Обновление : код ответа 406 означает, что серверу не удалось вернуть ответ в формате, который был бы приемлем для клиента, основываясь на заголовке (ах) Accept... запроса клиента (Accept, Accept-Language, Accept-Encoding и т. Д.), Поэтому проверьте свои заголовки на предмет того, что ожидает API и что посылает браузер.

...