Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 01.10.2010, 00:02   #11
Gambler
Игрок
Форумчанин
 
Аватар для Gambler
 
Регистрация: 29.10.2006
Сообщений: 367
По умолчанию

тут надо складывать флаги. А это делается через or
Жизнь всегда игра. Но смерть - не всегда поражение.

#define true (Math.random()>0.5) //Удачной отладки
Gambler вне форума
Старый 01.10.2010, 10:12   #12
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

просто для монопольного доступа к порту используется "and"/
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума
Старый 01.10.2010, 21:34   #13
Leximus
Пользователь
 
Регистрация: 18.09.2010
Сообщений: 85
По умолчанию

Цитата:
Сообщение от dacorp Посмотреть сообщение
Хммм... Значит проблемка была всётаки в порте... Только маленькая ремарка
Такая же ситуация! Программа срабатывает на ура, всё верно, ошибок не возникает, а вот сообщение толи не отправляется, толи не получается просто... Спасибо в любом случае за код который наконец то скомпилировался нормально, и программа вроде работает, только пока я сам результата не увидел. Модем кстати тоже мегафоновский E1550
И деньги тут есть. Через стандартную программу работает, но что то мы не так делаем!

Последний раз редактировалось mihali4; 14.11.2011 в 17:18.
Leximus вне форума
Старый 04.10.2010, 22:46   #14
dacorp
Пользователь
 
Регистрация: 12.06.2010
Сообщений: 48
По умолчанию

Gambler, raxp, спасибо огромное за полученные знания! Буду копать дальше
dacorp вне форума
Старый 28.12.2010, 08:30   #15
Programer45
Новичок
Джуниор
 
Регистрация: 30.06.2009
Сообщений: 1
По умолчанию

А у меня, почему то смс приходит в ввиде 'erefse!edw!!ewd!' это почему?
Programer45 вне форума
Старый 07.01.2011, 13:13   #16
Slippy
Пользователь
 
Аватар для Slippy
 
Регистрация: 29.12.2010
Сообщений: 55
По умолчанию

Спасибо всем за примеры, очень помогло)
А кто-нибудь разобрался с открытием порта под Win-7? Ни в какую не хочет...

P.S.
Всё, разобрался. Пример Gambler'a заработал. В диспетчере устройств ручками назначил номер COM-порта модема: "COM1" (по дефолту он ставил COM14). Не знаю, почему, но так всё адекватно коннектится. А чтоб смски таки доходили, если работаем в Delphi 2009 или позднее, то меняем типы данных везде из String в AnsiSring.
Теория – это когда все известно, но ничего не работает. Практика – это когда все работает, но никто не знает почему. Мы объединяем теорию и практику: ничего не работает и никто не знает почему ©

Последний раз редактировалось Slippy; 07.01.2011 в 14:01.
Slippy вне форума
Старый 18.02.2011, 12:41   #17
hash666
Новичок
Джуниор
 
Регистрация: 09.12.2009
Сообщений: 2
По умолчанию

господи... спасибо тебе за интернет)))
тема очень помогла.
Gambler выложил 100% рабочий вариант. фишка только в том что если порт >10 то указывать его лучше не как 'COM13' а '\\.\COM13' например.
Код:
hFile:=CreateFile('\\.\COM13', GENERIC_READ or GENERIC_WRITE, 0, NIL, OPEN_EXISTING, 0, 0);
всё работает... большое спасибо

Последний раз редактировалось mihali4; 14.11.2011 в 17:20.
hash666 вне форума
Старый 05.03.2011, 13:01   #18
hash666
Новичок
Джуниор
 
Регистрация: 09.12.2009
Сообщений: 2
По умолчанию

для информации:
приведённый код отлично подходит для отправки сообщений через модем hauwei 1550
но при использовании ZTE MF192 нужно отправлять

Код:
MessageBox(0, 'Порт успешно открыт', 'Ok', MB_OK);
    WriteStr('AT+CMGF=1' + #13);
    WriteStr('AT+CMGS="+7927ххххххх",145' + #13);
    WriteStr(m + #13#26); //m-текст сообщения (латинскими буквами, без кодирования)
Windows.CloseHandle(hFile);
т.е. никакого кодирования в семибитку, тупо пишем в порт текст сообщения как есть. и писать нужно в тот порт которым у вас является сам модем (у меня COM4).

надеюсь кому то данная информация поможет, т.к. сам долго искал но так ничего толкового и не нашёл по ZTE MF192.

Последний раз редактировалось hash666; 05.03.2011 в 13:04.
hash666 вне форума
Старый 18.03.2011, 22:11   #19
gilzovvp
Новичок
Джуниор
 
Регистрация: 25.11.2010
Сообщений: 1
По умолчанию

Всем спасибо огромное за советы и материал, мне очень помогло,
всё работает отлично на Windows 7 модем huawei 1550 мтс, ещё раз спасибо))))
gilzovvp вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправка SMS посредством АТ команд через мобильник alenkov Работа с сетью в Delphi 22 28.12.2010 17:11
какой usb модем выбрать? Arassir Компьютерное железо 14 15.05.2010 14:39
SMS отправка C# evgenrpo Общие вопросы .NET 3 29.11.2009 23:44
Отправка SMS через клик по строке таблицы RUBEY Microsoft Office Excel 4 25.12.2008 11:07
Отправка SMS Altera Софт 1 20.11.2008 08:56