Вверх ↑
Этот топик читают: Гость
Ответов: 201
Рейтинг: 2
#46: 2024-11-19 16:47:24 ЛС | профиль | цитата
P.S. и я не использую Get-WmiObject Win32_SerialPort в своих схемах.

Да это я уже от безвыходности разные варианты пробовал. Наверное пришло время винду снести давно она мне не нравится.

--- Добавлено в 2024-11-19 16:54:21


ClassGUID на COM порты указан {4D36E978-E325-11CE-BFC1-08002BE10318}, найдите свой в реестре и пропишите, соблюдая верхний регистр, возможно и так будет работать.
Ниже выкладываю ClassGUID для разных устройств.

Этот метод так или иначе заработал. Спасибо братцы за подсказки, Изучаю!

Редактировалось 1 раз(а), последний 2024-11-19 16:54:21
карма: 0

0
Ответов: 326
Рейтинг: 27
#47: 2024-11-19 17:27:29 ЛС | профиль | цитата
Методы от Gunta у меня не заработали.
Первый метод, программа закрывается через время не показав ничего.
Второй метод пустые поля просто.
Хотя очень интересны такие методы.
карма: 2
0
Ответов: 810
Рейтинг: 174
#48: 2024-11-19 17:52:07 ЛС | профиль | цитата
zhorik5, envoy_sky, Попробуйте выполнить net start winmgmt

https://learn.microsoft.com/ru-ru/windows/win32/wmisdk/starting-and-stopping-the-wmi-service
карма: 16

0
Ответов: 326
Рейтинг: 27
#49: 2024-11-19 17:57:14 ЛС | профиль | цитата
Я если честно думал повершелл обновить.
Думал старое все у меня.
карма: 2
0
Ответов: 495
Рейтинг: 163
#50: 2024-11-19 20:27:33 ЛС | профиль | цитата
zhorik5,пример из проекта со схожей задачей.
пример

Add(MainForm,13529263,119,63)
{
Width=509
Height=194
Caption="ARDUINO ВАХ"
Position=1
Point(Close)
Point(onClose)
Point(Left)
Point(Top)
link(onCreate,7868981:doEvent1,[])
link(onClose,4796282:doWork1,[(319,90)])
}
Add(EnumCOM,15522172,385,119)
{
link(onEnumPorts,15071772:doModify,[])
}
Add(ComboBox,529092,553,119)
{
Left=40
Top=45
Width=80
Height=21
Font=[Arial,10,0,0,204]
Hint="Выберите порт"
Strings=#1: |
Text=""
DataType=1
ReadOnly=0
Point(onSelect)
Point(doSelect)
Point(doEnabled)
Point(doSelectString)
link(onClick,775639:doWork2,[])
link(onSelect,11745743:doWork2,[])
}
Add(StrCase,15071772,448,119)
{
Type=1
link(onModify,529092:doAdd,[])
}
Add(Button,1842072,273,238)
{
Left=15
Top=110
Width=105
Height=30
Font=[Arial,9,0,0,204]
Enabled=1
Hint="Закрыть порт"
Caption="Закрыть порт"
Data=Real(0)
Point(doEnabled)
link(onClick,4796282:doWork2,[])
}
Add(Button,13336586,273,182)
{
Left=15
Top=75
Width=105
Height=30
Font=[Arial,9,0,0,204]
Hint="Открыть порт"
Caption="Открыть порт"
Data=Real(0)
Point(doEnabled)
link(onClick,2634306:doWork1,[(333,188)(333,237)])
}
Add(COMEX,2365950,497,231)
{
BaudRate=19
link(onSyncRead,15624878:doValue,[])
link(Port,11045639:Var1,[(503,224)(629,224)])
}
Add(Button,1574390,273,126)
{
Left=15
Top=10
Width=105
Height=30
Font=[Arial,9,0,0,204]
Hint="Поиск порта"
Caption="Поиск порта"
Data=Real(0)
Point(doEnabled)
link(onClick,7868981:doEvent2,[(331,132)(331,90)])
}
Add(Hub,7868981,343,77)
{
InCount=2
OutCount=4
link(onEvent1,529092:doClear,[(491,83)(491,132)])
link(onEvent2,11045639:doWork1,[])
link(onEvent3,15522172:doEnumPorts,[(371,97)(371,125)])
link(onEvent4,543924:doData,[(427,104)(427,167)])
}
Add(StyleXP,11046345,119,182)
{
}
Add(MultiElement,11045639,623,84)
{
link(onEvent1,6267470:doText,[])
link(onEvent2,13651087:doInit,[(678,97)(678,160)])
}
BEGIN_SDK
Add(EditMulti,12397613,14,7)
{
EventCount=2
WorkCount=2
VarCount=1
Width=626
Height=270
VOffset=35
HOffset=203
link(doWork1,2143542:doEvent1,[])
link(doWork2,10037002:doSeparateMT,[(35,55)(35,132)])
link(Var1,8128946:Value,[(223,242)(258,242)])
}
Add(DeviceInfo,9938011,126,63)
{
link(onEnumDevice,10515647:doSeparateMT,[])
}
Add(MT_MultiData,10515647,175,63)
{
Count=4
link(onData4,15435401:doCompare,[])
}
Add(StrMask,15435401,231,84)
{
Mask="*(COM*"
link(onTrue,11133217:doEvent1,[])
AddHint(-15,-26,50,13,Mask)
}
Add(StrList,1885082,336,35)
{
}
Add(Hub,2143542,56,42)
{
OutCount=4
link(onEvent1,1885082:doClear,[])
link(onEvent2,16087229:doClear,[(315,55)(315,90)])
link(onEvent3,9938011:doEnumDevice,[(109,62)(109,69)])
link(onEvent4,11952724:doData,[(82,69)(82,230)])
}
Add(ArrayEnum,5007696,350,182)
{
link(onItem,12486983:doCompare,[(387,188)(387,132)])
link(Array,1885082:Array,[])
}
Add(StrMask,12486983,399,126)
{
Point(doMask)
link(onTrue,6594612:doEvent1,[])
}
Add(FormatStr,16018755,203,133)
{
DataCount=1
Mask="*%1*"
Point(FString)
link(onFString,5399840:doEvent1,[])
}
Add(Hub,5399840,273,133)
{
link(onEvent1,12486983:doMask,[])
link(onEvent2,5007696:doEnum,[(306,146)(306,188)])
}
Add(Hub,6594612,441,133)
{
link(onEvent1,5007696:doStop,[(477,139)(477,167)(316,167)(316,195)])
link(onEvent2,12397613:onEvent1,[(468,146)(468,48)])
}
Add(Delete,11250590,203,182)
{
Count=3
link(onDelete,8128946:doValue,[])
}
Add(Memory,8128946,252,182)
{
}
Add(MT_MultiData,10037002,98,126)
{
link(onData1,10022025:doEvent1,[])
}
Add(Hub,10022025,147,126)
{
link(onEvent1,11250590:doDelete,[(176,132)(176,188)])
link(onEvent2,16018755:doString,[])
}
Add(Hub,11133217,273,91)
{
link(onEvent1,1885082:doAdd,[(301,97)(301,41)])
link(onEvent2,6937890:doString,[(393,104)(393,83)])
}
Add(FormatStr,6937890,420,77)
{
Mask="%1\r\n"
link(onFString,5567455:doReplace,[])
}
Add(StrCat,16087229,539,77)
{
Point(doClear)
link(Str1,11117897:Var3,[(545,65)(591,65)(591,128)])
}
Add(DoData,11952724,539,224)
{
link(onEventData,12397613:onEvent2,[(612,230)(612,55)])
link(Data,11117897:Var2,[])
}
Add(GetDataEx,11117897,539,123)
{
link(Data,16087229:Result,[])
}
Add(Replace,5567455,483,77)
{
SubStr="Порты (COM и LPT)"
link(onReplace,16087229:doStrCat,[])
}
END_SDK
Add(DoData,543924,448,161)
{
Data=Integer(0)
link(onEventData,529092:doSelect,[(492,167)(492,153)])
}
Add(HubEx,4796282,315,238)
{
link(onEvent,2634306:doWork2,[])
}
Add(HubEx,775639,602,126)
{
Angle=3
link(onEvent,11045639:doWork2,[(606,97)])
}
Add(MultiElement,2634306,350,231)
{
link(onEvent1,2365950:doOpen,[])
link(onEvent2,2365950:doClose,[])
link(onEvent3,15518621:In,[])
link(onEvent4,607208:In,[])
link(onEvent5,14716941:In,[])
link(onEvent6,3999535:In,[])
link(onEvent7,15044237:In,[])
}
BEGIN_SDK
Add(EditMulti,13051276,21,21)
{
EventCount=7
WorkCount=2
Width=209
Height=116
VOffset=35
link(doWork1,6616624:doEvent1,[(42,62)(42,41)])
link(doWork2,570273:doEvent1,[])
}
Add(ChanelToIndex,14556147,98,70)
{
link(onIndex,4451736:doSet,[])
}
Add(Hub,570273,56,63)
{
link(onEvent1,13051276:onEvent2,[])
link(onEvent2,14556147:doWork1,[])
}
Add(Hub,6616624,56,35)
{
link(onEvent1,13051276:onEvent1,[(96,41)(96,62)])
link(onEvent2,14556147:doWork2,[(88,48)(88,83)])
}
Add(MultiSetParam,4451736,147,70)
{
Parameters=#4:0;1 |3:1;0|
Count=2
link(onSet1,13051276:onEvent3,[])
link(onSet2,1688797:doEvent1,[])
}
Add(Hub,1688797,196,77)
{
OutCount=4
link(onEvent1,13051276:onEvent4,[])
link(onEvent2,13051276:onEvent5,[])
link(onEvent3,13051276:onEvent6,[])
link(onEvent4,13051276:onEvent7,[])
}
END_SDK
Add(LineBreak,835938,231,126)
{
Caption="+-"
link(Out,1574390:doEnabled,[])
Primary=[607208,203,126]
}
Add(LineBreak,10327543,231,182)
{
Caption="+-"
link(Out,13336586:doEnabled,[])
Primary=[14716941,175,77]
}
Add(LineBreak,2310551,231,238)
{
Caption="+-"
link(Out,1842072:doEnabled,[])
Primary=[15518621,175,7]
}
Add(LineBreak,4457274,504,154)
{
Caption="+-"
link(Out,529092:doEnabled,[])
Primary=[3999535,-70,112]
}
Add(Memory,15624878,644,245)
{
}
Add(StatusBar,6267470,742,84)
{
}
Add(PopupMenuEx,13651087,693,140)
{
Font=[Arial,9,0,0,204]
BackColor=16777215
SelColorLight=16777088
SelColorDark=16763799
LineColorLight=16777215
LineColorDark=16777215
SelCheckColor=8421504
Bitmaps=[]
PictureLeft=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF6982C9351BA66FCFBE3D249901537BFEC279309B58FDE8F6A1D384FC750ECD3E102D2A2A8A537F416101303E10E2A7CE9EC6D06F606000A64B2B4A30E2095DFFC1C30719B8B9B951F457565731484A4931BC79F306AC5E544C94818989092C8F4F3FC8DE99B367329C3A739A213A369A21343C84C12FC08FC1C3CB83414C4C8C819D8D9D41564E16437F607020C39BB76F182AAB2A1932B2D31992521231F45BDB5833A8ABAB3388088BA0E8DFB3772FC392654BC17EADA8AEC0A9DFD5CD9561D2A4490C9696960CA666A628610AD20BC279457938F5C3CCC09716F2F1E827250D27A526C1F5D32A7F510B03009F1B1B23]
Point(doPopup)
Point(MenuItemName)
Point(doInitBmp)
link(MenuItemName,2855817:doSearch,[])
}
Add(MathParse,15320704,119,126)
{
MathStr="(%2+98)*65536+(%1+24)"
link(onResult,6760291:In,[])
link(X1,13529263:Left,[])
link(X2,13529263:Top,[])
}
Add(LineBreak,13496745,637,161)
{
link(Out,13651087:doPopup,[])
Primary=[6760291,-469,-35]
}
Add(BlockFind,2855817,749,147)
{
IncludeBlock=1
StartBlock="("
EndBlock=")"
link(onSearch,11459628:doEvent1,[(795,153)(795,209)(504,209)(504,181)])
}
Add(Hub,11459628,511,175)
{
link(onEvent1,529092:doSelectString,[(539,181)(539,167)])
link(onEvent2,11745743:doWork3,[(606,188)])
}
Add(HubEx,11745743,602,133)
{
Angle=3
link(onEvent,775639:doWork3,[])
}
Add(BitBtn,1160037,70,126)
{
Left=15
Top=46
Width=25
Height=26
Frame=1
Caption=""
Bitmap=[ZIP3610000078DAED96316EC2401045970689962A25654E80A8E953E5326989728C1C81332412F4284A1DE5028940E9A3383BC68366EDD9F5F7EEB803E9CB3636EFCFCE2C1FD677CB99AB5F4BAF5BAF9B4613B738DF68EECB575555D9720FAB5A258C3EFE7C3F1DCD83F96379487E9F871F92AACDD3E3A5CF9A243FE511F0DA4762BD395C8A07B15E76AF1D05FCCF197E6C79F4F6873E3354C0CC6B9F1C3EC8BE7FDE9EF9DF2E143162E7FE795A37C2DE1EDE93FBA7E3EBDFFBADFE3AFC76DF994DA2E73575F8FEFAF8730AF892C93C5401DF9FD37E636F537ED36F8D1FEB0FCCF7FAF83AF6F2B5F90E5A4BF3FD44F9EC41CFF28C53C71CBEF44849F289CB42F281F76A4ACC4FD51CCB4F78D6ADFAD1FC4466C07CBA660FF4F78585F43FD67B2843018DF53F2225CA23929CA726EB6C625FA9540DD6D9A5F9C73446B60DF1D7EA29CDBE127FAEA1241B4BFD650D39D95932FFDC6C2D59A765F6E6F85B6673EEFAADB2DB62EFA1B5B12C3DAFB2D33FEF994489]
Point(doEnabled)
link(onClick,15320704:doCalc,[])
}
Add(LineBreak,13205631,21,133)
{
Caption="+-"
link(Out,1160037:doEnabled,[])
Primary=[15044237,385,140]
}



Еще как вариант сохранять настройки выбранного порта (как правило если не менять разъёмы подключения USB они не меняются) и при старте их устанавливать.
Пример1

Add(MainForm,5025921,189,182)
{
Width=276
Height=159
Color=8421504
Caption="VIZ_SIGNAL"
Position=1
Point(onClose)
Point(onKeyUp)
link(onCreate,13653135:doEvent1,[(236,202)(236,230)])
link(onClose,2588739:doEvent1,[])
}
Add(COMEX,5844996,616,357)
{
Point(doRXClear)
Point(doDTR)
Point(doRTS)
Point(doSetComState)
Point(onDSR)
Point(onCTS)
Point(onDCD)
Point(onRING)
Point(onSetComState)
link(onRead,16394630:doEvent,[])
link(Port,4109759:Value,[])
link(BaudRate,1563805:Var2,[])
}
Add(EnumCOM,15522172,280,252)
{
link(onEnumPorts,15071772:doModify,[])
}
Add(ComboBox,529092,413,252)
{
Left=35
Top=10
Width=65
Height=21
Text=""
DataType=1
ReadOnly=0
Sort=0
Point(doSelect)
Point(doEnabled)
Point(doSelectString)
link(onClick,15425841:doSeparateMT,[])
}
Add(ComboBox,5946731,609,133)
{
Left=105
Top=10
Width=85
Height=21
Strings=#4:300 |4:600 |4:1200|4:2400|4:4800|4:9600|5:14400|5:19200|5:28800|5:38400|5:57600|6:115200|0:|
ReadOnly=0
Point(EditText)
Point(doSelect)
Point(doEnabled)
Point(doSelectString)
}
Add(StrCase,15071772,336,252)
{
Type=1
link(onModify,529092:doAdd,[])
}
Add(Delete,8173172,525,259)
{
Count=3
link(onDelete,4109759:doValue,[])
}
Add(Memory,4109759,616,259)
{
}
Add(DoData,2423023,532,126)
{
Data=Integer(10)
link(onEventData,5946731:doSelect,[(582,132)(582,167)])
}
Add(Hub,13653135,245,224)
{
InCount=2
OutCount=3
link(onEvent1,529092:doClear,[(336,230)(336,265)])
link(onEvent2,15522172:doEnumPorts,[(269,237)(269,258)])
link(onEvent3,11947023:doStrCat,[(277,244)(277,153)])
}
Add(BitBtn,3007977,462,357)
{
Left=195
Top=11
Width=20
Caption=""
Bitmap=[ZIP3604000078DAE5933D8F41511086C9FE812DB7DF662BA51FB009D1DC627F8242210A444314A21189DC04910805221114040942888F6834140A89CF4E74A24104EFBEEE912D57BF3BC9DCCC3BF39C7BCF3933F753D2BEA814D3D23FE8AF0F57ABDE4481F5778DF087A9F1FFEC72B9CCE773A3D168B1586C369BD56AEDF57A93C9C4E1705032C9120162825F2C1666B3391289944AA562B1188D46ED76BBD3E96440C9244B0488093E97CB11188FC75EAF57A7D3E9F5FA2FC5185032C9120162820F06833E9F8F1B389D4E0683A1DD6E8F46A37EBF5F2814289964890031C177BB5DB7DB3D9D4EFD7EBF24492693291C0EBB5C2E06944C562A1502C4047F3E9F1389442814DA6EB7CBE59287651C8FC767B319E56030A02440ECE78A0E8743B3D9946599F94020B05EAFF7FBBD907CB244E06F0FC9F57A05BB0B7603B55A0DD96C16C964126C3A52A9143C1E0FEAF5FAAFEF58AD5668B55AE015A3D3E9A0D168A05C2E2393C98037094EDBD33D0C8743E53BF7751C08E4F37970E4108BC5904EA79F9EE376BBE1783C62B7DB61B3D98063A3ACAB56ABF71F01DF502375BC]
Point(doEnabled)
link(onClick,15075452:doEvent1,[])
}
Add(BitBtn,1239611,189,231)
{
Left=10
Top=11
Width=20
Caption=""
Bitmap=[ZIP3600010078DAEDDDC94BA3491CC6F16EE61F98E3DCE732A739F61F3007C183073D7808392ACCC583882248844618540431E2821A178C8AA2B82082B883A2888A5B101154D071577001C185F4D3799BD01EBAAA21FD7667F93EF00BAFF55655DEB73EC945F4AD7F323EFCF62E920FAABF54BF7FA9F7EFFE704EE8FC9F7F3BF525EF6F6F6FAFAEAECECECEFEFF762E2E2E1E1E1E5E5F5FC3E1F0D1D1514949495B5BDBCACACAECEC6C7D7DBDCFE7CBC9C9C9CBCBABAEAE1E1818585C5C0C85421AF2F2F2128EE4DF480281406161A1C6565656FAFDFEC6C6C6E6E6E6D6D6D6DEDE5ECD19FE2A9A4AF3EB55DDD4B9AAAAAAA6A6A6A1A1419DFBFBFB171616A6A7A7AFAFAFA3FDF3F3F3EBEAEA345B7979B90E4A4B4BD5525C5CAC51838383535353DBDBDB9B9B9B4F4F4F4EFFA2A222CD565151A10975DCD2D2E2B4AFAEAE068341DDD4DADA9A86DCDCDC38EDBAE6CECECEE648FAFAFAF4E3FCFCBC736A7F7F7F7272726363637777F7F4F4D4696C6F6FFFF8366A895EEDC1C1C1C9C98916FCF2F2D269D1FA9F9F9FABE5F0F030DAADABABEBBFB7518B734A6BAB49F48E5A8AE8D22D2F2F6BA12626260622191D1DD58FCE2911EB3AF7F6F6D6D7D7C7C6C67676769C762D8E9648437A7A7AD45FC74EFBF3F3B3FA1F1F1F6B1134EDD0D0909648D05A04DDECF0F0B09648076A895EEDDDDDDDD6D69646E92D969696B43E73737362D2E2EB40EBA679F4FAB5B296D7E9A9579DD5C746FDF55EBA18CDDF1A49F86D1E1F1F7517333333DDDDDD1D1D1D23232322BBBFBFD7295DEAF8F878981042082184104248BC26140A19CBEBF51A8BE04FF027F813FC09FE047F823F497CDFDCDC5C63D9C6277A05020163E18F3FFEF8E38F3FFEF8E38F3FFEF8E38F7F3CF87A3C1E6315141418CBE7F32575D9EEDFB67EB6B2F9E08F3FFEF8E38F3FFEF8E38F3FFEF8E38FFFF7F86667671BABACACCC58B5B5B5AE96DFEF8FA97EF5FBDBD6CFB6FEB6C21F7FFCF1C71F7FFCF1C71F7FFCF1C71FFF1FF1FB9FACAC2C637D7EEA9CA93E3FF52E99CB76FF999999AE16FEF8E38F3FFEF8E38F3FFEF8E38F3FFEF8FF8CFF0FC8C8C83056535393B16CE32973E18F3FFEF8E38F3FFEF8E38F3FFEF8E38FFFF7F8A5A5A5192BD6F9D3D3D38D95ECCF47B4DDBFADDCFEFF0FFCF1C71F7FFCF1C71F7FFCF1C71F7FFC13C33FDE3F7FF11EB7EFDFF6FD72FBFB8D3FFEF8E38F3FFEF8E38F3FFEF8E38F7F72F8F33710B1956D7F0ADBF85FFDFDC0107F0A7F0A7F0A7F0A7F0A7F2A35FCDD7EBE00FB3B98EFDFF67C0CB73F1FF8E38F3FFEF8E38F3FFEF8E38F3FFEF8A7867FACFB07D8F62748F4FD17DCDE9F22D6FD1D62FD7CE08F3FFEF8E38F3FFEF8E38F3FFEF8E39F1AFEB6F11E8F27A6B2ED6F100C068D95ECFB3BD8D6CFEDDFFFE08F3FFEF8E38F3FFEF8E38F3FFEF8E39F1AFEB126100818CBEBF52675D9F6A7B08D4FF4E763E08F3FFEF8E38F3FFEF8E38F3FFEF8E39F1AFEA91E7CF1C71F7FFCF1C71F7FFCF1C71F7FFCF1C79F104208218410420821F1904F96BF3A2D]
Point(doEnabled)
link(onClick,13653135:doEvent2,[])
}
Add(BitBtn,2486269,462,399)
{
Left=220
Top=11
Width=20
Caption=""
Bitmap=[ZIP3604000078DACD934F8B526114C667E80BB46CDFA655CBF90081EE5CF809C24242445444309C46A43249046504D1481D4154505319154551C38D9B949110FC73651C716E932086E868F77A7AD4D94DE340AB0E9C97C3EF79DEFBFE3BF799E8E0C1DE260E904F900F6F727FEFD15680FEF8E9366F629FFE35FA27EF99E317D3F619EA8EF5F9EFE9AFD980E9390D2B8EBB738AC7C038A4B38BEEE0C432ED7EEF5A5FFEC88676AF72FE49DBFF7CC42FE6CCF1ABD1D7D3DB068EE3DAEDB6442291CBE52A954AA95496CB65F077FAD71A8D06041C2A3CDC66639D4E472693391C8E783C1E8BC59C4EA75AAD06D7E974A841C0A1C2032778281482A156AB198D46814020140AC5623178AFD7430D020E151E38C16D369BC9646A341A0A8562B15860519EE7C131A2EEF7FB5AAD162A3C7082974A25BD5EDF6C36CD66B34824924AA5F57A1D1C07410D029E4C26E181137CB95C7A3C1EBBDDCEB26CB7DBC5615183BBDDEE56AB0552A95440E081737B45B3D92C97CB59AD56408BC5F2C1780838994CB604235478FE7AFF93B3021B33F0CB6B36FEF13272B4FBB126DFD26CF2EDF5B0FD33E75A5C9D0F2387EC17F35DE615CF8DF28EC5E8829F4FD98411643E685E46DE5C9DDAE83F88F5ABA11BA85028503A9DA66030485EAF97D024E4F3F9C86030502693D9F90D8661289FCF139E848AC52265B3594A241214080408374FE8CE7BF750AD5637EBACE745A3510A87C384162597CB457EBFFFDE73AC562B9ACFE7341E8F69381C123A6D332F954AADFF1DFA038A195F53]
link(onClick,12300076:doEvent1,[])
}
Add(Switch,13138421,224,392)
{
DataOn=Integer(1)
DataOff=Integer(0)
Default=0
Point(doOn)
Point(State)
link(onSwitch,11980972:doEvent1,[])
}
Add(Hub,11980972,273,392)
{
OutCount=4
link(onEvent1,13882946:In,[])
link(onEvent2,13667006:In,[])
link(onEvent3,12907078:In,[])
link(onEvent4,6888484:In,[])
}
Add(LineBreak,9601862,336,287)
{
Caption="-+"
link(Out,529092:doEnabled,[])
Primary=[13882946,-21,105]
}
Add(LineBreak,1568078,147,238)
{
Caption="-+"
link(Out,1239611:doEnabled,[])
Primary=[13667006,168,161]
}
Add(LineBreak,146343,420,364)
{
Caption="-+"
link(Out,3007977:doEnabled,[])
Primary=[12907078,-105,42]
}
Add(Hub,15075452,511,357)
{
link(onEvent1,5844996:doOpen,[])
link(onEvent2,13572227:In,[])
}
Add(Hub,12300076,511,399)
{
link(onEvent1,5844996:doClose,[(595,405)(595,370)])
link(onEvent2,16723871:In,[])
}
Add(LineBreak,13418601,532,168)
{
Caption="-+"
link(Out,5946731:doEnabled,[])
Primary=[6888484,-217,245]
}
Add(LineBreak,6969669,147,399)
{
Caption="off"
link(Out,13138421:doReset,[])
Primary=[13572227,392,-35]
}
Add(LineBreak,16362230,175,406)
{
Caption="on"
link(Out,13138421:doOn,[])
Primary=[16723871,385,0]
}
Add(Dir,5145339,294,98)
{
}
Add(StrCat,11947023,294,147)
{
Str2="Com.ini"
link(onStrCat,13359086:doFileExists,[])
link(Str1,5145339:CurrentDir,[])
}
Add(FileTools,13359086,357,126)
{
link(onEnd,11706726:doEvent,[])
}
Add(IndexToChanel,11706726,406,126)
{
link(onEvent1,2423023:doData,[])
link(onEvent2,9919186:doEvent1,[])
}
Add(Ini,16589772,322,322)
{
FileName="Com.ini"
Section="Settings"
Key="COM"
Type=1
link(onResult,6293696:doEvent1,[])
link(Value,529092:String,[(349,313)(426,313)])
}
Add(LineBreak,5668447,266,336)
{
Caption="w"
link(Out,16589772:doWrite,[(305,342)(305,335)])
Primary=[6116423,70,-133]
}
Add(LineBreak,16619059,266,322)
{
Caption="r"
link(Out,16589772:doRead,[])
Primary=[13256056,217,-189]
}
Add(Hub,6293696,364,322)
{
link(onEvent1,529092:doSelectString,[(388,328)(388,300)])
link(onEvent2,4653428:doWork3,[(508,335)])
}
Add(HubEx,4653428,504,259)
{
link(onEvent,8173172:doDelete,[])
}
Add(Ini,999023,539,217)
{
FileName="Com.ini"
Section="Settings"
Key="BaudRate"
Type=1
link(onResult,5946731:doSelectString,[(585,223)(585,181)])
link(Value,1563805:Var1,[(566,201)])
}
Add(LineBreak,13692714,483,231)
{
Caption="w"
link(Out,999023:doWrite,[(522,237)(522,230)])
Primary=[5921071,-147,-14]
}
Add(LineBreak,13788450,483,217)
{
Caption="r"
link(Out,999023:doRead,[])
Primary=[15365452,0,-70]
}
Add(Hub,9919186,448,133)
{
link(onEvent1,13256056:In,[])
link(onEvent2,15365452:In,[(473,146)(473,153)])
}
Add(Hub,2588739,301,203)
{
link(onEvent1,6116423:In,[])
link(onEvent2,5921071:In,[(326,216)(326,223)])
}
Add(GetDataEx,1563805,623,196)
{
link(Data,5946731:EditText,[])
}
Add(MT_MultiData,15425841,462,259)
{
link(onData1,4653428:doWork2,[])
}
Add(Debug,16394630,672,364)
{
}


Редактировалось 3 раз(а), последний 2024-11-19 23:24:32
карма: 4

0
Ответов: 810
Рейтинг: 174
#51: 2024-11-21 12:52:20 ЛС | профиль | цитата
zhorik5, envoy_sky, а такая схема у вас работает?

Add(MainForm,2953706,63,91)
{
Width=1023
Height=350
link(onCreate,16151409:doConsoleExec,[])
}
Add(WinExec,16151409,112,91)
{
FileName="WMIC.exe"
Param="path win32_pnpentity where "PNPClass='Ports'" get Caption,Service,Manufacturer,DeviceID /format:HTABLE"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
Point(onConsoleError)
Point(onConsoleTerminate)
link(onConsoleResult,10427530:doDeferredEvent,[])
}
Add(Charset,1137898,224,105)
{
link(onCharset,2582183:doFromText,[])
}
Add(WebBrowser,2582183,273,77)
{
Width=1007
Height=311
Align=5
Silent=0
Point(doFromText)
}
Add(DeferredEvent,10427530,168,105)
{
InData=0
link(onDeferredEvent,1137898:doCharset,[])
}

карма: 16

0
Ответов: 201
Рейтинг: 2
#52: 2024-11-22 00:48:40 ЛС | профиль | цитата
Gunta писал(а):
а такая схема у вас работает?

У меня снова нет.



--- Добавлено в 2024-11-22 00:50:09

Gunta писал(а):
Попробуйте выполнить net start winmgmt

результата не дало, повторюсь у мня win7

Редактировалось 1 раз(а), последний 2024-11-22 00:50:09
карма: 0

0
Ответов: 326
Рейтинг: 27
#53: 2024-11-22 08:29:31 ЛС | профиль | цитата
У меня работает.

карма: 2
0
Ответов: 201
Рейтинг: 2
#54: 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
Разработчик
Ответов: 26170
Рейтинг: 2127
#55: 2024-12-31 04:25:31 ЛС | профиль | цитата
Скачай прогу hercules_3-2-8 и проверь свой модем на ней. Если прога работает, а твоя схема нет, то тогда надо будет думать дальше
карма: 22

0
Ответов: 201
Рейтинг: 2
#56: 2024-12-31 18:54:43 ЛС | профиль | цитата
nesco писал(а):
проверь свой модем


nesco писал(а):
hercules_3-2-8
возвращает эхо как предыдущие программы терминалы, я и разные скорости выставлять пробовал


Putty возвращает как положено

--- Добавлено в 2024-12-31 18:59:35

Сегодня попробую телефон вкачестве модема подключить мож чтото изменится. Usb-GSM модемов у меня 2 результат одинаковый. Через сторонню софтину они определяются опрашиваются и даже отправляют смс.

Редактировалось 3 раз(а), последний 2024-12-31 18:59:35
карма: 0

0
Ответов: 810
Рейтинг: 174
#57: 2024-12-31 20:59:48 ЛС | профиль | цитата
zhorik5 писал(а):
Вот и в моей программе возвращается только эхо. Не могу понять почему. Варианты конвертеров перебрал.
может я как-то нет так запрос отправляю? есть у кого возможность с gsm модемом проверить?

Только что попробовал твою схему. Всё работает. Команды проходят, Ответ приходит.



Редактировалось 1 раз(а), последний 2024-12-31 21:00:11
карма: 16

0
Ответов: 201
Рейтинг: 2
#58: 2025-01-01 19:27:26 ЛС | профиль | цитата
Gunta писал(а):
Всё работает

Спасибо откликнувшимся.
Сдаюсь! Не работает.... даже на другом компьютере не работает. Либо драйвер козлячит, либо модемы козлячие. Не понимаю!(переустановишь драйвера эхо не приходит, но и ответа нет от модема) Вероятно у меня проблемы с железом. Попробовал найти старый тапик обзвонил товарищей оказалась проблема, все всё выбросили. А свежий китайский тапик хрен дрова подберешь.
Брошу эту затею. Хрен с ними.

--- Добавлено в 2025-01-01 19:31:09

Аааая еще заметил нюанс если в программе Terminal1_9 отправляешь через файл то модем отвечает, а если в ручную в этой же самой программе, то приходит только эхо.Загадка какая-то!

Редактировалось 1 раз(а), последний 2025-01-01 19:31:09
карма: 0

0
Ответов: 810
Рейтинг: 174
#59: 2025-01-01 20:52:55 ЛС | профиль | цитата
zhorik5 писал(а):
Сдаюсь! Не работает.... даже на другом компьютере не работает. Либо драйвер козлячит, либо модемы козлячие. Не понимаю!(переустановишь драйвера эхо не приходит, но и ответа нет от модема)

Зря ты так сразу… Всегда интересно докопаться до причины.
Попробуй такую схему..
Add(Memo,11635285,644,126)
{
Top=40
Width=468
Height=335
Align=5
ScrollBars=3
}
Add(MainForm,6778608,140,112)
{
Width=484
Height=414
Point(onClose)
link(onCreate,3624125:doEnumValues,[])
link(onClose,6107025:In,[])
}
Add(COMEX,1512296,574,119)
{
BaudRate=19
link(onSyncWrite,9553713:In,[(613,125)(613,90)])
link(onRead,11635285:doAdd,[])
link(Port,257308:Value,[(580,110)(468,110)(468,159)(419,159)])
}
Add(Registry,3624125,238,112)
{
HKey=2
Key="HARDWARE\DEVICEMAP\SERIALCOMM"
Point(doEnumValues)
Point(onEnumValue)
link(onRead,6160917:doAdd,[])
link(onEnumValue,3624125:doRead,[(277,125)(277,104)(228,104)(228,118)])
}
Add(Delete,4826920,357,119)
{
Count=3
StartPosRTL=1
link(onDelete,257308:doValue,[])
}
Add(Memory,257308,413,119)
{
link(onData,14243743:doEvent1,[])
}
Add(FormatStr,14370976,518,133)
{
Mask="ATI\r\nAT+CLAC\r\n\r\n"
link(onFString,983214:doWork2,[])
}
Add(LineBreak,976307,35,112)
{
link(Out,6328198:doString,[])
Primary=[9553713,595,-28]
}
Add(FormatStr,6328198,84,112)
{
Mask="Подключено к порту - %1"
link(onFString,6778608:doCaption,[])
link(Str1,6160917:String,[(90,103)(223,103)(223,152)(314,152)])
}
Add(HubEx,983214,560,133)
{
link(onEvent,1512296:doWrite,[])
}
Add(Hub,14243743,476,119)
{
link(onEvent1,1512296:doOpen,[])
link(onEvent2,14370976:doString,[(508,132)(508,139)])
}
Add(StrCat,663839,518,182)
{
Str2="\r\n"
link(onStrCat,983214:doWork3,[(564,188)])
}
Add(DoData,12077577,455,217)
{
link(onEventData,15715040:doWork3,[(501,223)])
link(Data,3960594:Text,[])
}
Add(HubEx,15715040,497,182)
{
link(onEvent,663839:doStrCat,[])
}
Add(Label,1497642,574,35)
{
Width=468
Height=40
Align=2
Caption=""
AutosizeAtStart=1
}
Add(Button,7314165,405,217)
{
Left=300
Top=10
Caption="Send"
link(onClick,12077577:doData,[])
}
Add(Edit,3960594,457,175)
{
Left=140
Top=10
Width=150
Text="AT+CLAC"
ClearAfterEnter=1
link(onEnter,15715040:doWork2,[])
}
Add(ComboBox,6160917,301,112)
{
Left=10
Top=10
Width=100
Height=21
Text="Выбрать порт"
DataType=1
link(onClick,4826920:doDelete,[])
}
Add(LineBreak,16146466,511,84)
{
link(Out,1512296:doClose,[(557,90)(557,132)])
Primary=[6107025,-329,49]
}



Редактировалось 1 раз(а), последний 2025-01-01 20:57:48
карма: 16

0
Ответов: 201
Рейтинг: 2
#60: 2025-01-02 00:03:11 ЛС | профиль | цитата
Gunta писал(а):
Всегда интересно докопаться до причины

Даа работает твоя схема и моя я понял почему не работает. Я проигнорировал описание стандарта подачи команды посчитав символы \r\n необязательными и в подаче команды их не указывал да честно говоря и никогда бы и не догадался что они нужны.Да как бы не указано что это жизненно необходимо оказывается.
Скриншот


Инструкция которой я руководствовался https://wiki.iarduino.ru/page/a6_gprs_at/?ysclid=m5bfkjiqdk759452506#AT_CMGS

Gunta, Огромное спасибо! За подсказку!
Еще мне понравился принцип выбора ком порта без нумератора. Хороша идея!

--- Добавлено в 2025-01-02 00:15:57

Gunta писал(а):
Только что попробовал твою схему. Всё работает. Команды проходят, Ответ приходит.

Да, но почему моя схема у тебя работала или ты ее немного изменял?

Редактировалось 4 раз(а), последний 2025-01-04 18:49:25
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)