| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как послать SMS с телефона подключенного к компьютеру?
s002156Shurik © (2003-07-01 16:11:00)
Теоретически я это себе представляю необходимо писать и читать данные из порта к которому он подключен а в каком формате эти данные туда слать? Видимо для разных телефонов поразному или же есть какието стандарты? И гдебы по этому поводу узнать подробнее?
Спасибо.
BIG_BROTHER (2003-07-23 18:56:00) [1]
Есть такой компонент XComDrv он погогает общатся с ком портами компа с помощью АТ команд тебе остается только найти АТ комады для своего тела для сименса здесь - http://www.xakep.ru/post/18094/x35.zip
Вот код:
procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Clear; // Очищаем список
xmodem1.OpenDevice; // открываем порт
xmodem1.EnterCommandState; // Входим в командный режим
XMODEM1.SendCommand("AT+CGMI"); //Производитель
xmodem1.WaitForAT(1500); //Ждём ответа
XMODEM1.SendCommand("AT+CGMM"); //Модель
xmodem1.WaitForAT(1500);
XMODEM1.SendCommand("AT+CGMR"); //Версия прошивки
sleep(1500);
xmodem1.WaitForAT(1500);
XMODEM1.SendCommand("AT+CGSN"); //IMEI
sleep(1500);
xmodem1.WaitForAT(1500);
XMODEM1.SendCommand("AT+CIMI"); //IMSI
sleep(1500);
xmodem1.WaitForAT(1500);
xmodem1.ExitCommandState; // Выходим из командного режима
xmodem1.CloseDevice; // Закрываем порт
Showmessage(‘Данные приняты, хозяин’);
end;
Он показывает на примере простых АТ команд по получке некот. данных о тел. работать с этим компонентом
А потом все эти данные выводишь в ListBox
procedure TForm1.XModem1HayesAT(Sender: TObject; AT: THayesAT);
begin
if at.Command="AT+CGMI" then listbox1.Items.add("Производитель: "+at.data);
if at.Command="AT+CGMM" then listbox1.Items.add("Модель: "+at.data);
if at.Command="AT+CGMR" then listbox1.Items.add("Версия прошивки: "+at.data);
if at.Command="AT+CGSN" then listbox1.Items.add("IMEI: "+at.data);
if at.Command="AT+CIMI" then listbox1.Items.add("IMSI: "+at.data);
end;
Все это я писал на примере сименса если у тебя другой тел. найди в нете для него АТ команды !! (их там полно!)
s002156Shurik (2003-07-23 18:14:00) [2]
Otpravlat SMS nauchilsa, a vot prinimat kakto poka nesrostaetsa! :).
Карелин Артем (2003-07-23 15:27:00) [3]
Вот еще подсказали:
ищи тут:
www.forum.nokia.com
Регистрируешься и получаешь доступ к документации. Тебе нужен такой документ:
AT command reference
из серии Messaging.
s002156Shurik (2003-07-23 14:34:00) [4]
Spasibo Artem za delniy sovet.
Карелин Артем (2003-07-04 08:21:00) [5]
Никакого софта не надо!!!!!!!!!!!!!!!!!!!
http://www.dreamfabric.com/sms/
http://www.ixbt.com/mobile/review/comp-sms.shtml
Есть еще компоненты tpapro, но они глючат на моем служебном телефоне. Motorola T260.
Одна особенность: надо точно знать скорость обмена трубы с COM-портом и отключить контроль передачи.
max2057 (2003-07-03 18:06:00) [6]
Знаю что софт нужен специальный, где взять не знаю - скорее всего на сайте производителя
Shluz (2003-07-01 20:35:00) [7]
это вообще оригинальная задача, посылать с телефона через компьютер.. :)
Умная фраза: "Умный в гору не пойдет, умный гору обойдет"
| |
