![]() |
Есть ли возможность из 1С отправлть напрямую команды на COM порт ? Я искал по инету и форуму, но везде описан обратный процесс - как считать напрямую данные с COM порта. А здесь - наоборот отправка данных Если взять глобальнее - это один из вариантов решения проблемы отправки SMS из 1С. (Предполагается на COM порт поставить GSM - модем и через него набором команд отправлять SMS) Или может подскажете, каким ещё образом можно SMS через GSM - модем отправлять ? |
а ДЛЯ ЧЕГО 1с то ?? |
А зачем СОМ- порт? Используй интернет- сервисы, их много разных. Поиск "смс интернет бесплатно" |
[quote=briz;25163550]briz 1 - Сегодня - 08:22 а ДЛЯ ЧЕГО 1с то ??[/quote] Нуууу много для чего, скажем отсылать клиенту автоматом SMS, что его товар пришел, или что отсрочка платежа заканчивается.. [quote=Зомби;25163754]Зомби 2 - Сегодня - 08:42 А зачем СОМ- порт? Используй интернет- сервисы, их много разных. Поиск "смс интернет бесплатно" [/quote] Просто хотим сделать самодостаточную систему не зависящую от интернета и провайдеров. |
(3)А мыло уже не рулит? Сдается мне батенька, Вы спам хотите запустить с левых мобильных номеров. |
[quote=Зомби;25164003]Зомби 4 - Сегодня - 09:01 (3)А мыло уже не рулит? Сдается мне батенька, Вы спам хотите запустить с левых мобильных номеров.[/quote] Мыло уже сделали - тут то как раз проблем не возникло - описаний до чертиков, теперь хотим, что бы дублировалось и на сотовый. |
Гугль рулит: [url]http://www.cyberforum.ru/1c/thread314966.html[/url] Не мое, не щупал, хвалите и ругайте сами. |
4-Зомби > пока все попадается типа [url]http://www.headwind.ru/1c.php[/url] |
6-Ткачик > Спасибо, это свободный доступ к файлу [url]http://infostart.ru/public/85792/[/url] правда прикол, что там написано - триальная версия до 01/07/2011 :-) |
вполне будет работать ФСО=СоздатьОбъект("Scripting.FileSystemObject"); Порт=ФСО.OpenTextFile("\\.\com1",8); Порт.WriteLine("ATDT234556"); Порт.Close(); и даже КомандаСистемы("cmd /c echo ATDT234556 >> \\.\com1"); |
Вроде бы нашел два варианта один через внешнюю компоненту : RS=Новый COMОБъект("MSCOMMLib.MSComm"); RS.Settings = "115200,n,8,1"; RS.CommPort=5; RS.Handshaking = 1; RS.RThreshold = 1; RS.SThreshold = 1; RS.InputLen = 0; RS.RTSEnable = 1; RS.InputMode = 0 ; Если RS.PortOpen тогда RS.PortOpen=false; КонецЕсли; RS.PortOpen=True; Сообщить("Порт ОТкрыт"); RS.Output="ATIMEI"+Символ(13); сч=0; Буфер=""; Пока ((Найти(СокрЛП(Буфер),"OK")=0) И (Найти(СокрЛП(Буфер),"ERROR")=0)) ИЛИ (сч=50000) Цикл Буфер=Буфер+СокрЛП(RS.Input); сч=сч+1; КонецЦикла; Сообщить(сч); Сообщить(Буфер); Всё прекрасно работает, но.. минус в использовании внешней компоненты. Еще работает способ через запись/считывание: модемЧ = Новый ЗаписьТекста("\\.\Com5",КодировкаТекста.ANSI); Строк="ATIMEI"+Символ(13); модемЧ.ЗаписатьСтроку(Строк); Сообщить("Отправлена строка - "+ТекущаяДата()); модемЧ.Закрыть(); МодемЧ= Новый ЧтениеТекста(); МодемЧ.Открыть("\\.\Com5",КодировкаТекста.ANSI); сч=0; Буфер=""; Сообщить("Начало ожидания ответа - "+ТекущаяДата()); Пока ((Найти(СокрЛП(Буфер),"OK")=0) И (Найти(СокрЛП(Буфер),"ERROR")=0)) Цикл Состояние(сч); Буфер=Буфер+СокрЛП(МодемЧ.ПрочитатьСтроку()); Сообщить("Время цикла - "+ТекущаяДата()); сч=сч+1; КонецЦикла; Сообщить(сч); Сообщить(Буфер); Сообщить("Получен Ответ - "+ТекущаяДата()); Здесь всё хорошо ничего внешнего не используется, но обнаружились странные задержки по времени: Отправлена строка - 25.05.2012 11:37:36 Начало ожидания ответа - 25.05.2012 11:37:36 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:38:42 Время цикла - 25.05.2012 11:39:15 ATIMEIManufacturer: TCT Mobile International LimitedModel: HSPA Data CardRevision: WX111000XXIMEI: 355249042491906+GCAP: +CGSM,+FCLASS,+DSManufacturer: TCT Mobile International LimitedModel: HSPA Data CardRevision: WX111000XXIMEI: 355249042491906+GCAP: +CGSM,+FCLASS,+DSOK Получен Ответ - 25.05.2012 11:39:15 Т.е. ожидание ответа почти две минуты, Это неприемлемо Из-за чего может быть такой долгий срок ответа ? |
Текущее время: 05:46. Часовой пояс GMT +3. |