SMS — digital-flame

Delphi. Отправляем смс через шлюз или как классно когда все сделано за Вас)

Понадобилось сделать смс рассылки. Был порадован массой готовых решений для Delphi. Остановился на https://smsc.ru/

Вот мой небольшой пример

Цифры здесь означают

(<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки
// либо (<id>, -<код ошибки>) в случае ошибки

procedure TfSMSTest.bTestClick(Sender: TObject);

var
sms: SMSC;
ResultSDA: TStringDynArray;

  i: Integer;

begin

sms := SMSC.Create;

ResultSDA := sms.send_sms('79221361449', 'Ваш код: 123',0);

MemoResults.Clear;
for i := Low(ResultSDA) to High(ResultSDA) do
    MemoResults.Lines.Add( ResultSDA[i] );


sms.Destroy;



end;

procedure TfSMSTest.bTestClick(Sender: TObject);

var

sms: SMSC;

ResultSDA: TStringDynArray;

i: Integer;

begin

sms := SMSC.Create;

ResultSDA := sms.send_sms('79221361449', 'Ваш код: 123',0);

MemoResults.Clear;

for i := Low(ResultSDA) to High(ResultSDA) do

MemoResults.Lines.Add( ResultSDA[i] );

sms.Destroy;

end;

Вот цифра 0 здесь означает обычное смс

format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call)

1	format - формат сообщения (0 - обычное sms, 1 - flash-sms, 2 - wap-push, 3 - hlr, 4 - bin, 5 - bin-hex, 6 - ping-sms, 7 - mms, 8 - mail, 9 - call)

Я задал вопрос оператору и получил вот такой ответ

Flash-sms — это смс, текст которой сразу выводится на экран телефона/смартфона пользователя вместо записи в память устройства

Ещё примеры из источника

uses smsc_api;
...
var
sms: SMSC;
ret: TStringDynArray;
balance: String;
...
begin
...
sms := SMSC.Create;
...
ret := sms.send_sms('79999999999', 'Ваш пароль: 123', 1);
...
ret := sms.send_sms('79999999999', 'http://smsc.ru'#13#10 + 'SMSC.RU', 0, '', 0, 0, '', 'maxsms=3');
...
ret := sms.send_sms('79999999999', '0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101', 0, '', 0, 5);
...
ret := sms.send_sms('79999999999', '', 0, '', 0, 3);
...
ret := sms.get_sms_cost('79999999999', 'Вы успешно зарегистрированы!');
...
ret := sms.get_status(12345, '79999999999');
...
balance := sms.get_balance;
...
// отправка SMS через e-mail
sms.send_sms_mail('79999999999', 'Ваш пароль: 123');
...
sms.Destroy;
...
end;

uses smsc_api;

...

var

sms: SMSC;

ret: TStringDynArray;

balance: String;

...

begin

...

sms := SMSC.Create;

...

ret := sms.send_sms('79999999999', 'Ваш пароль: 123', 1);

...

ret := sms.send_sms('79999999999', 'http://smsc.ru'#13#10 + 'SMSC.RU', 0, '', 0, 0, '', 'maxsms=3');

...

ret := sms.send_sms('79999999999', '0605040B8423F0DC0601AE02056A0045C60C036D79736974652E72750001036D7973697465000101', 0, '', 0, 5);

...

ret := sms.send_sms('79999999999', '', 0, '', 0, 3);

...

ret := sms.get_sms_cost('79999999999', 'Вы успешно зарегистрированы!');

...

ret := sms.get_status(12345, '79999999999');

...

balance := sms.get_balance;

...

// отправка SMS через e-mail

sms.send_sms_mail('79999999999', 'Ваш пароль: 123');

...

sms.Destroy;

...

end;

API и примеры выложены прямо на сайте. Скопирую сюда, пока не убрали))

Источник https://smsc.ru/api/delphi/ Читать далее «Delphi. Отправляем смс через шлюз или как классно когда все сделано за Вас)» →

digital-flame

Блог программиста

Рубрика: SMS

Delphi. Отправляем смс через шлюз или как классно когда все сделано за Вас)