Вверх ↑
Ответов: 201
Рейтинг: 2
#1: 2024-12-31 03:26:03 ЛС | профиль | цитата
Народ снова я))) С наступающим(наступившим НГ.) целый день пробился не работает.

Add(MainForm,2953706,133,91)
{
Width=703
Height=543
Point(onClose)
link(onCreate,14781309:doEvent1,[])
link(onClose,14185797:In,[])
}
Add(COMEX,15461939,560,350)
{
Point(onOpen)
Point(doRXClear)
Point(onError)
Point(onClose)
link(onSyncWrite,10521506:doStrCatDlm,[(716,356)(716,349)])
link(onRead,15300817:doEvent1,[(670,363)(670,391)])
link(onSyncRead,3475520:doEvent1,[(712,370)(712,447)])
link(Port,3611942:Var,[])
link(BaudRate,5259853:Var,[(573,254)(727,254)])
link(onOpen,9433988:doOn,[(611,377)(611,398)])
link(onError,8175643:doMessage,[(606,384)(606,419)])
link(onClose,9433988:doOff,[])
}
Add(Button,13973615,350,343)
{
Left=190
Top=35
Width=95
Height=25
Caption="Открыть порты"
link(onClick,6245660:doEvent2,[])
}
Add(EnumCOM,4795209,399,175)
{
link(onEnumPorts,15879246:doEvent1,[])
}
Add(Hub,6245660,406,336)
{
InCount=2
OutCount=5
link(onEvent1,8981816:doEvent1,[(434,342)(434,251)])
link(onEvent3,15461939:doOpen,[])
}
Add(Button,12548643,269,357)
{
Left=290
Top=35
Width=95
Height=25
Caption="Закрыть порты"
link(onClick,10338042:doEvent2,[(311,363)(311,384)])
}
Add(ComboBox,15281610,490,189)
{
Left=190
Top=10
Width=95
Height=21
Text="ComPortSens"
DropDownCount=15
Point(Index)
Point(doSelect)
Point(doColor)
}
Add(GetIndexData,3611942,560,294)
{
link(Data1,7708773:GetData,[])
}
Add(DoData,13113386,497,294)
{
link(onEventData,3611942:doIndex,[])
}
Add(Delete,7374699,497,245)
{
Count=3
link(onDelete,7708773:doData,[])
link(Str,15281610:String,[])
}
Add(EventFromData,7708773,560,245)
{
}
Add(Button,5619865,189,154)
{
Left=315
Top=5
Width=70
Height=25
Caption="Обновить"
link(onClick,9961641:doEvent1,[])
}
Add(Hub,9961641,245,154)
{
OutCount=6
link(onEvent1,8153651:In,[])
link(onEvent3,4446351:In,[])
link(onEvent5,13959214:doEvent2,[])
}
Add(Hub,13959214,364,175)
{
InCount=2
OutCount=1
link(onEvent1,4795209:doEnumPorts,[])
}
Add(Hub,10338042,322,371)
{
InCount=3
link(onEvent1,15461939:doClose,[(448,377)(448,363)])
}
Add(LineBreak,1175476,273,336)
{
link(Out,10338042:doEvent1,[(313,342)(313,377)])
Primary=[8153651,0,-182]
}
Add(Hub,15879246,455,175)
{
link(onEvent2,15281610:doAdd,[(476,188)(476,195)])
}
Add(Hub,8981816,448,245)
{
OutCount=3
link(onEvent1,7374699:doDelete,[])
link(onEvent2,13113386:doData,[(476,258)(476,300)])
}
Add(LineBreak,15163504,434,196)
{
link(Out,15281610:doClear,[])
Primary=[4446351,-161,-28]
}
Add(Edit,12433503,308,406)
{
Left=10
Top=70
Width=175
Text="AT+GSN"
link(onEnter,16058880:doEvent1,[])
}
Add(RadioButton,14898480,581,147)
{
Left=5
Top=35
Width=90
Selected=0
Caption="Standart BD"
link(onSelect,7671517:doWork2,[(632,153)(632,139)])
}
Add(RadioButton,11123480,581,98)
{
Left=5
Top=10
Width=80
Caption="Custom BD"
link(onSelect,7671517:doWork1,[(632,104)(632,132)])
}
Add(ComboBox,10401221,749,49)
{
Left=100
Top=35
Width=80
Height=21
Strings=#3:300|4:1200|4:2400|4:4800|4:9600|5:19200|5:38400|5:57600|6:115200|6:230400|6:460800|0:|
Text=""
}
Add(Edit,7806169,700,49)
{
Left=100
Top=10
Width=80
Text="460800"
}
Add(ChanelToIndex,7671517,651,126)
{
link(onIndex,5259853:doIndex,[])
}
Add(GetIndexData,5259853,721,126)
{
link(Data1,7806169:Text,[(727,104)(706,104)])
link(Data2,10401221:String,[(734,104)(762,104)])
}
Add(Hub,14781309,301,105)
{
link(onEvent1,14898480:doSelect,[(448,111)(448,153)])
link(onEvent2,13959214:doEvent1,[(339,118)(339,181)])
}
Add(ListBox,15189897,427,434)
{
Left=10
Top=100
Width=375
Height=155
}
Add(Hub,16058880,364,413)
{
link(onEvent1,10871156:doEvent1,[(420,419)(420,384)])
link(onEvent2,15189897:doAdd,[(402,426)(402,440)])
}
Add(Button,16067012,315,441)
{
Left=10
Top=260
Caption="CLR"
link(onClick,9834552:doEvent1,[])
}
Add(Message,8175643,630,413)
{
}
Add(Memo,8754529,1001,336)
{
Left=400
Top=10
Width=275
Height=135
ScrollBars=3
}
Add(StrCatDelim,10521506,840,343)
{
Delimiter=">"
Str2="OnSyncWrite"
link(onStrCatDlm,1238620:doEvent1,[(908,349)(908,356)])
}
Add(Hub,1238620,945,350)
{
InCount=2
OutCount=1
link(onEvent1,8754529:doAdd,[(980,356)(980,342)])
}
Add(StrCatDelim,7353667,840,385)
{
Delimiter=">"
Str2="OnRead"
link(onStrCatDlm,4666444:doEvent1,[(910,391)(910,387)])
}
Add(Memo,13729306,998,381)
{
Left=400
Top=145
Width=275
Height=135
ScrollBars=3
}
Add(Memo,4518384,1088,440)
{
Left=400
Top=285
Width=275
Height=135
ScrollBars=3
}
Add(StrCatDelim,5761874,924,441)
{
Delimiter=">"
Str2="OnSyncRead"
link(onStrCatDlm,12425346:doEvent1,[(1022,447)(1022,446)])
}
Add(LED,9433988,630,378)
{
Left=290
Top=10
Width=20
Height=20
ColorOn=65280
}
Add(LineBreak,8332370,273,392)
{
link(Out,10338042:doEvent3,[(313,398)(313,391)])
Primary=[14185797,-98,-280]
}
Add(Hub,9834552,357,441)
{
link(onEvent1,15189897:doClear,[])
link(onEvent2,15461939:doRXClear,[(535,454)(535,377)])
}
Add(Hub,3475520,735,441)
{
InCount=2
OutCount=4
link(onEvent4,12425346:doEvent3,[(843,468)(843,461)])
}
Add(Hub,15300817,721,385)
{
OutCount=4
link(onEvent1,12196281:doConvert,[])
link(onEvent4,4666444:doEvent3,[(833,412)(833,405)])
}
Add(Hub,4666444,931,385)
{
InCount=3
link(onEvent1,13729306:doAdd,[(971,391)(971,387)])
}
Add(Hub,12425346,1029,441)
{
InCount=3
link(onEvent1,4518384:doAdd,[(1065,447)(1065,446)])
}
Add(Hub,2571248,882,434)
{
InCount=2
link(onEvent1,5761874:doStrCatDlm,[(895,440)(895,447)])
}
Add(StreamConvertor,12196281,770,385)
{
Mode=4
link(onResult,7353667:doStrCatDlm,[])
}
Add(StreamConvertor,6597689,227,79)
{
Mode=3
}
Add(Edit,8609242,490,385)
{
Left=195
Top=70
Width=180
}
Add(Hub,10871156,462,378)
{
link(onEvent1,15461939:doWrite,[(521,384)(521,370)])
link(onEvent2,8609242:doText,[])
}

Пытаюсь сделать примитивную программку по типу putty или хипер терминала для того чтобы отправлять AT команды модему.
через Putty команды отправляются ответы от модема приходят но там все вручную даже не видно что вводишь, а хотелось бы автоматизации и визуализации. Качнул прогу Terminal1_9 типа хипертерминала что-то она тож не работает. Ну как не работает, Эхо введеной команды возвращается и все! а должен быть ответ от модема.

Вот и в моей программе возвращается только эхо. Не могу понять почему. Варианты конвертеров перебрал.
может я как-то нет так запрос отправляю? есть у кого возможность с gsm модемом проверить?
карма: 0

0