Category Archives: SMS

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

Posted on 22.11.2016 by Stanislav_Panteleev

Понадобилось сделать смс рассылки. Был порадован массой готовых решений для 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;

Вот цифра … Continue reading →

Posted in Delphi, SMS | Comments Off

Category Archives: SMS

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

MY PROJECTS

Recent Posts

Categories