|
Здравствуйте мои дорогие кодеры. Сегодня я вам расскажу, как с помощью Delphi можно
будет изрядно потрепать кому нибудь нервы.
Или же, сразить свою половину количеством признаний в любви. Ну что, заинтриговал? Тогда хватит лирики, преступаем к делу.
Для полной реализации задуманного, Вам нужно найти набор компонент «Ics». В Интернете есть много сайтов, где можно это добро скачать.
Форма должна выглядеть примерно так:
ComboBox, Edit, SpinEdit, Memo, Button, StatusBar и компонент HTTPCli с закладки Ics
Выберите ComboBox, в Инспекторе Объектов выберите «Items», и впишите 705 и 777.
Теперь немного теории. Чтобы отправить sms абоненту через
Интернет, нужно зайти на определенный сайт, заполнить необходимые поля и нажать кнопку отправить. После этого, скрипт отправляет сообщение оператору.
Наша программа построена на таком же принципе. Она сразу отправляет сформированную строку на шлюз. Строка должна выглядеть так:
number_sms=number_sms_send&termtype=G&translit=&x=5&
y=4&prf=7705&phone=31ХХХХ3&message=test
Вернемся к нашей программе. Два раза нажимаем на кнопку, и попадаем в редактор кода.
Для начала объявим переменные:
Для начала объявим переменные:
j: integer; // нужно для цикла
DataOut: TMemoryStream; //нужно для отправки строки
Buf: string; //Строка
Запускаем цикл:
For j := 1 to SpinEdit1.Value do
Begin
DataOut := TMemoryStream.Create;
Buf := 'number_sms=number_sms_send&termtype=G&translit=&x=5&y=4&prf=' +
'7' + ComboBox1.Text + '&phone=' + Edit1.Text + '&message=' + Memo1.Text;
DataOut.Write(Buf[1], Length(Buf));
DataOut.Seek(0, soFromBeginning);
HttpCli1.SendStream := DataOut;
HttpCli1.URL := 'http://217.118.84.204/servlet/send/sms/';
StatusBar1.SimpleText := IntToStr(j);
HttpCli1.Post;
end; |
Ничего сложного. Если есть какие-то вопросы, пишите, спрашивайте.
Постараюсь дать очень полный, и исчерпывающий ответ. Удачного кодинга друзья.
Эмиль Сальгадо
Этот адрес e-mail защищен от спам-ботов. Чтобы увидеть его, у Вас должен быть включен Java-Script
Просмотров: 3664
Только зарегистрированные пользователи могут оставлять коментарии.
Пожалуйста зарегистрируйтесь или войдите в ваш аккаунт. |
