Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 68, средняя оценка - 4.71
Alexandr_
8 / 8 / 3
Регистрация: 20.08.2012
Сообщений: 79
#1

Отправка и получение SMS через USB-модем - Delphi

19.10.2012, 01:40. Просмотров 9968. Ответов 4
Метки нет (Все метки)

У меня есть USB модем, и есть программа через которую мне можно позвонить, отправить и получить смс через модем. Меня чужая программа не устраивает . Как мне с помощью делфи отправить смс? У меня есть левая симка, и хочу чтобы комп сообщал мне когда его включают по смс.
Я в интернете искал, ничего не работает. Прошу помощи, может кто знает?

Добавлено через 36 минут
Пробивал это, но не работает.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure SendSMS(AComPort: integer; AMsg: String; ANumTel: String);
var
  hFile: THandle;
 
  procedure WriteStr(AStr: String); //пишет в порт переданную строку
  var
    LWrited: Cardinal;
  begin
    WriteFile(hFile, PAnsiChar(AStr), Length(AStr), LWrited, nil);
  end;
  begin
  //открываем порт
  hFile := Windows.CreateFile(PChar('\\.\COM' + IntToStr(AComPort)), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0); 
 
  //если открылся
  if (hFile <> INVALID_HANDLE_VALUE) then
  begin
    try
      //устанавливаем текстовый режим
      WriteStr('AT+CMGF=1');
      //вводим номер в формате "+79xxxxxxxxx"
      WriteStr('AT+CMGS='+ANumTel);
      //вводим текст сообщения, только латиница
      WriteStr(AMsg);
    finally
      //закрываем порт
      Windows.CloseHandle(hFile);
    end;
  end else ShowMessage('0');
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.10.2012, 01:40
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Отправка и получение SMS через USB-модем (Delphi):

Отправка смс через USB модем
Всем привет! Никак не могу найти материал, по вопросу - как отправить смс через...

Отправка SMS посредством АТ команд через мобильник
Доброго всем времени суток!!! Пречитал кучу инфы. но так и непонял как...

Отправка ussd запросов через модем
Всем привет. Проблема вот в чем: я подключаюсь к модему, используя библиотеку...

Бесплатная отправка sms
Как сделать? я думал мож через сайты операторов, у них такая услуга имеется )...

Бесплатная отправка SMS с компьютера на телефон.
Подскажите пожалуйста как сделать программу для бесплатной отправки SMS с...

Отправка SMS. Ошибка, сообщающая о потенциальном спаме
procedure TForm1.Button1Click(Sender: TObject); var msg:TIdMessage; begin...

4
xNeKiToSx
330 / 83 / 16
Регистрация: 10.01.2011
Сообщений: 516
Записей в блоге: 1
19.10.2012, 09:00 #2
ну юсб модем использует какой то драйвер\утилиту\приложение. Нужно узнать API функции этого посредника. Ну и использовать их
1
Critically
10 / 10 / 6
Регистрация: 14.03.2011
Сообщений: 380
19.10.2012, 09:58 #3
Смс отправляются post запросом в виде xml-ки... Но это у меня так, и товарищь выше был прав без api функций провайдера осуществляющего отправку, отправить смс ты не сможешь... Так как ты должен знать что нужно указывать в post запросе...
1
droider
Universal
Эксперт Pascal/Delphi
4384 / 2432 / 762
Регистрация: 04.10.2012
Сообщений: 8,847
19.10.2012, 10:21 #4
Можно реализовать отправку смс через интернет, используя sms-шлюз вашего оператора. После организовать автоподключение модема при включении компа.
Вот, из другого поста:
1.Запустил прогу модема, подключился к инету. Это нужно сделать, чтобы эта прога сама создала подключение, а не прописывать его в Мастере подключений самому. Так проще. И правильнее! (см. далее)
2. В Пуск > Сетевые подключения появилось подключение Beeline.
3. Отключил это подключение, создал для него ярлык.
4. Положил этот ярлык в Пуск > Все программы > Автозагрузка.
6. Проверил все настройки подключения. (см. далее)
6. Прогу модема из Автозагрузки не убирать!!! (позже поймете почему)
5. Радуюсь!!!

Казалось бы всё просто, но докопался я до этого очень не сразу.
Потому что я сначала пытался создать подключение сам, а не через прогу модема. Мучался около получаса, так и не смог создать - ведь ни логина, ни пароля, ни свойств подключения нет.
Потом догадался запустить саму прогу модема для создания подключения. Ву а ля! Готово!
Создал ярлык, положил его в автозагрузку, перегрузил комп - работает!
Перегрузил ещё раз - работает!
Сделал откат системы на момент начала моих попыток автозапускать инет, т.к. чего только не пробовал, чего только не ставил... (и AutoIt тоже). Повторил подключение>ярлык>автозапуск. Перегрузил. НЕ РАБОТАЕТ!!!
Вернее запускается окно подключения и требует подтвердить номер дозвона кнопкой Вызов . Решается легко: в Свойствах подключения на вкладке Параметры все флажки:
- Отображать ход подключения
- Запрашивать имя, пароль, сертификат и т.д.
- Включать домен входа в Windows
- Запрашивать номер телефона
должны быть убраны.
Перегрузил - работает.
Выключил комп. Лег спать.
Утром включаю - не работает!!! "Оборудование отстутствует!"
Час ушел на определение проблемы. Оказалось, что я поступил опрометчиво удалив из автозагрузки прогу модема. Когда она не загружена винда сама инициалит модем. Но делает это дольше, чем идет автоподключение инета. И как оказалось в дальнейшем неправильно прописывает параметры работы модема. В итоге имеем "Оборудование отстутствует!"
А прога модема инициалит модем в миг! И корректно (как оказалось позже)!
Вернул её в автозагрузку, причем перед подключением Beeline. Перегрузил - не работает!!!
Через полчаса раскопок в Свойствах подключения на вкладке Общие под окошком Подключатся через: с именем модема нажал кнопку Настроить и убрал все флажки:
- Аппаратное управление модемом
- Обработка ошибок модемом
- Сжатие данных модемом. (они появляются когда винда сама инициалит модем)
Перегрузил - работает.
Выключил нетбук, пообедал. Включил - РАБОТАЕТ!!!
и реализовать работу Вашей программы при запуске компа. Т.е. при включении будет проходить автодозвон и подключение к интернету, и программа будет отправлять Вам смс через шлюз оператора

Подробнее об отправке см. тут http://devdelphi.ru/?p=112
Как вариант.
0
Alexandr_
8 / 8 / 3
Регистрация: 20.08.2012
Сообщений: 79
19.10.2012, 14:24  [ТС] #5
Интересно как отправляет прога которая идет с модемом. Через что?!

Добавлено через 2 минуты
Где-то читал что все делается через АТ команды.
0
19.10.2012, 14:24
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.10.2012, 14:24
Привет! Вот еще темы с решениями:

Отправка и получение данных с COM-порта
Здравствуйте! Подскажите пожалуйста в чем может быть дело. Пытаюсь отправить...

Получение данных с USB-порта
Есть Электронное средство измерения с программным обеспечением для фиксирования...

Прием/Передача через модем IRZ
Подскажите с чего начать? ваще нуб в этой теме... Смысл какой, есть...

Запись речи, отправка файла на Google, получение текста речи
Нужна помощь! Нужно написать простую программу. Программа должна при клике на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru