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 команды отправляются ответы от модема приходят но там все вручную даже не видно что вводишь, а хотелось бы автоматизации и визуализации. Качнул прогу Terminal1_9 типа хипертерминала что-то она тож не работает. Ну как не работает, Эхо введеной команды возвращается и все! а должен быть ответ от модема.
Вот и в моей программе возвращается только эхо. Не могу понять почему. Варианты конвертеров перебрал.
может я как-то нет так запрос отправляю? есть у кого возможность с gsm модемом проверить?