Отправка SMS сообщений скриптом. Работа с TCP

[farmwl]

Благодаря возможности работы с TCP, мы, например, можем отправлять себе смс'ки прямо из скрипта с помощью сторонних сервисов.
Для этого разумеется нужно на этом сервисе сначала зарегаться, получить свой уникальный API ключ и пополнить счет. В данном примере использован sms.ru, тут есть возможность бесплатно отправлять смс на свой номер (указанный при регистрации). Однако, не думаю что стоит этим злоупотреблять, благо стоимость отправки там что-то около 25 копеек.
Готовая функция под катом:




Ну а дальше фантазируйте, как это можно использовать )

 

[Krickt]

Полезно.

 

[Dantello]

function Transform_Text(s: string): string;
begin
while (Pos(' ', s) > 0) do s[Pos(' ', s)]:= '+';
result:= s;
end;

Расшифруйте плз

 

[SARCAZM]

Расшифруйте плз

function Transform_Text(s: string): string;
begin
while (Pos(' ', s) > 0) do s[Pos(' ', s)]:= '+';
result:= s;
end;
заменяет пробелы на символ "+".
Дабы корректно передать пробелы в тексте смс-ки через GET запрос

 Head.Add('GET /sms/send?api_id='+api_key+'&to='+mob_number+'&text='+text+' HTTP/1.1');

 

[rsd]

Расшифруйте плз

долго въезжал

один вопрос - зачем ?
если есть stringreplace?

 

[farmwl]

выносил преобразование в отдельную функцию т.к. заранее не знал, сколько преобразований потребуется над исходным текстом. предполагал проблемы с экранированием некоторых спецсимволов.
а что касаемо StringReplace, то да, можно кусок изменить этот - дело привычки просто

function Transform_Text(s: string): string;
begin
result:= StringReplace(s, ' ', '+', [rfReplaceAll]);
end;
Ну а в конкретном случае, лучше вообще избавиться от отдельной функции

 

[motilek]

хз будем разбираться

 

[MurkaDeVenom]

Api id И key разные значения?

 

[Reliable]

тема дельная только как бы понять как это все работает, как я понял надо подключать платные сервисы по смс, а есть возможность отправлять в вк или на мыло?

 

[Suslyandia]

кто нибудь пробовал через api.vk или api.telegram настроить? и там и там есть возможность отправки сообщений через https запросы.

 

[ilovekotik]

@Suslyandia, Сижу и жду когда тебя ответят по поводу отправки ботом в сообщения в вк, можно за одно и меня отметить при ответе?

 

[qseven228]

 

[Suslyandia]

Я на самом деле реализовал, но немного кривым способом: у меня бот просто открывает браузер с адресной строкой тем самым отправляя http запрос. Отправляет и в телеграмм и в вк)

 

[Kenshi245]

Как listen сервер сделать?

 

[Kenshi245]

Подскажите, а есть возможность без формирования http запроса, а напрямую по TCP через ip порт? В примере показана отправка, а как принимать ни слова...

 

[battleground]

еще пашет аська? а то чекал, вроде не пашет уже.