nesco, это у меня последний вариант, хотелось бы оставить совместимость моей программы с адаптерами выложенными в интернете для DS18S20.
------------ Дoбавленo в 21.08:
Вот, проверил компонент ComAsync, он позволяет менять скорость порта не закрывая его,а почему не получается со штатным компонентом?
Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,175,49)
{
Width=389
Height=203
Point(onClose)
link(onCreate,16173502:doOpen,[])
link(onClose,16173502:doClose,[])
}
Add(ComAsync,16173502,420,63)
{
ControlDTR=1
ControlRTS=1
Point(doBaudRate)
Point(CurrBaud)
}
Add(Button,7221323,175,91)
{
Left=25
Top=20
Caption="9600"
link(onClick,6738671:doData,[])
}
Add(Button,11835360,175,154)
{
Left=25
Top=50
Caption="115200"
link(onClick,14399095:doData,[])
}
Add(DoData,6738671,245,91)
{
Data=String(9600)
link(onEventData,13451017:doWork2,[])
}
Add(HubEx,13451017,301,91)
{
link(onEvent,16163867:doEvent1,[])
}
Add(DoData,14399095,245,154)
{
Data=String(115200)
link(onEventData,13451017:doWork3,[(305,160)])
}
Add(Label,7549251,427,133)
{
Left=125
Top=25
Width=135
link(Text,16624470:Var,[])
}
Add(Debug,16624470,427,112)
{
link(Data,16173502:CurrBaud,[])
}
Add(Hub,16163867,336,91)
{
link(onEvent1,16173502:doBaudRate,[])
link(onEvent2,10580539:doWork1,[(385,104)])
}
Add(Button,15101976,175,224)
{
Left=25
Top=90
link(onClick,10580539:doWork3,[(385,230)])
}
Add(HubEx,10580539,381,133)
{
link(onEvent,7549251:doText,[])
}