• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: обработать ответ (смс )

if SMS = 'turbosms' then
         begin
            //result := true;
            TurboSmsUa := TTurboSmsUa.Create;
            sLog := TurboSmsUa.Auth(SMSLogin, SMSPassword);  // авторизация
            sLog := TurboSmsUa.SendSMS(SMSSender, SMSPhone, SMSMessage); // отправка смс
            showmessage(sLog);
        end;
if SMS = 'Clickatel' then
        begin
           //result := true;
           ClickatellCom := TClickatellCom.Create;
           s := ClickatellCom.SendSMS(SMSLogin, SMSPassword, SMSAPI_ID, SMSPhone, SMSMessage);// авторизация и отправка смс
           showmessage(s);
        end;

хотелось бы по возможности обработать ответы по своему... возможно ли это?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: обработать ответ (смс )

Пожалуйста опишите проблему более детально.

Dmitry.
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: обработать ответ (смс )

программа будет возвращать пользователю (ответ) в виде сообщения... так как программа мультиязычна то хотелось обробатывать эти ответы по своему

  • Registered: 2014-02-14
  • Posts: 10,294

Re: обработать ответ (смс )

тут зависит, как именно у вас организована мультиязычность, откуда беруться сообщения?

примерно так


if SMS = 'turbosms' then
         begin
            //result := true;
            TurboSmsUa := TTurboSmsUa.Create;
            sLog := TurboSmsUa.Auth(SMSLogin, SMSPassword);  // авторизация
            sLog := TurboSmsUa.SendSMS(SMSSender, SMSPhone, SMSMessage); // отправка смс
            
            if sLog = 'message1' then
            begin
                if Lang = 'en' then sMessage := 'Message on english';
                if Lang = 'ru' then sMessage := 'Сообщение на русском';
            end else
            if sLog = 'message2' then
            begin
                if Lang = 'en' then sMessage := 'Message on english';
                if Lang = 'ru' then sMessage := 'Сообщение на русском';
            end else sMessage := sLog; // сообщение, для которого нет перевода            
            
            showmessage(sMessage);
        end;
Dmitry.